Không hiện được nội dung trong listbox khi nhấn nút ghi tạm (1 người xem)

[tuanh1979]

Mình đang làm một form nhâp hàng và đã hiện được nội dung mình nhập vào list box ở dưới nhưng bây giờ chẳng hiểu tại sao lại không hiện ra được nữa mặc dù dữ liệu vãn nhập vào sheet như bình thường. Khi đóng phiếu nhập và mở lại thì mới thấy dữ liệu được hiện ra. giải thịch giùm mính dòng lệnh này nữa nhé: i =application.worksheetfunction.max(val(Me.H_DKSTT.caption)+2,3). Thanks

 

[anhphuong]

Bạn phải gửi file lên mọi ngưồi mới giúp bạn được chứ. Chắc chắn có một dòng lệnh bị lỗi hoăc thiếu

 

[tuanh1979]

Mình gửi bài lên nhờ mọi người xem hộ nhé. có những vấn đề sau mà mình làm mãi k được:
- Không hiện được nội dung trong listbox( hôm qua thì được nhưng hôm nay thì không)
- Không xoá được dữ liệu khi đang nhập
- In phiếu nhập
- không tự động hiện được ngày nhập trên form mà phải ấn một phím nào đó mới hiện ra được
- Không tự động hiện số 1 trong ô thứ tự mà phải nhập lúc ban đầu
Mình làm mãi mà vẫn không được , nhờ mọi người nhé, thanks

 

[minhlev]

Bạn thử thêm dòng code sau vào trước dòng Sheet3.Select trong Private sub ghitam xem:

Me.chitiet.RowSource = "solieu"

 

[tuanh1979]

mình đã thêm và hiện được ra rồi, nhưng hôm qua mình k có dòng lệnh này mà vẫn hiện được lạ thật. bạn giúp minh những vấn đề kia nữa đi. mình làm cả tuần nay rồi mà không nghĩ ra được. thanks bạn lần nữa nhé

 

[tuanh1979]

mình đã xoá được dòng trong listbox bằng cách thay số 3 bằng số 1 trong dòng lệnh i = Application.WorksheetFunction.Max(Val(Me.SoTT.Value), 1) của Private sub Xoa_Click(). Nhưng nó lại thực hiện thế này
lần 1: chọn dòng thứ 3 nhưng xoá dòng thứ 1
lần 2: còn lại 2 dòng chọn dòng thứ 2 xoá dòng thứ hai
lần 3: xoá được dòng còn lại
nhưng phải tắt phiếu đi và mở lại mới xoá được tiếp chứ không xoá liên tục được.
Nhờ mọi người giúp mính nhé

 

[tuanh1979]

Mình mới phát hiện ra ( không biết có phải phát minh mới không) : khi mình kích hoạt nút xoá thì nó sẽ cắt hẳn 1 dòng trong bảng dữ liệu của mình. VD vùng số liệu mình đặt là D1:G10 thì một lần xoá vùng số liệu mất đi 1 dòng dần dần mất hẳn nên chẳng hiện được nội dung vừa nhập trong listbox. mọi người xem giúp mình với

 

[Mr Okebab]

Mình mới phát hiện ra ( không biết có phải phát minh mới không) : khi mình kích hoạt nút xoá thì nó sẽ cắt hẳn 1 dòng trong bảng dữ liệu của mình. VD vùng số liệu mình đặt là D1:G10 thì một lần xoá vùng số liệu mất đi 1 dòng dần dần mất hẳn nên chẳng hiện được nội dung vừa nhập trong listbox. mọi người xem giúp mình với

Trong Refers to (Name) bạn đặt lại :

=OFFSET(Sheet1!$D$1;0;0;10;4)

Thân!

 

[anhphuong]

Mình gửi bài lên nhờ mọi người xem hộ nhé. có những vấn đề sau mà mình làm mãi k được:
- Không hiện được nội dung trong listbox( hôm qua thì được nhưng hôm nay thì không)
- Không xoá được dữ liệu khi đang nhập
- In phiếu nhập
- không tự động hiện được ngày nhập trên form mà phải ấn một phím nào đó mới hiện ra được
- Không tự động hiện số 1 trong ô thứ tự mà phải nhập lúc ban đầu
Mình làm mãi mà vẫn không được , nhờ mọi người nhé, thanks

Muốn có số 1 tự động hiển thị tại ô STT và ngay tự động điền ngày hiện tại, ghi thêm dòng lệnh sau :
Private Sub UserForm_Initialize()
Me.SoTT = 1
Me.ngaynhap = Date
End Sub

Thân

 

[tuanh1979]

Mình đã làm được theo hướng dẫn của AnhPhuong va Mr Okebab rồi. Thank các bác thêm lần nữa nhé. Các bác giúp mình phần xoá và phần in nữa đi. Thank you very much

 

[Mr Okebab]

Bạn thử thêm dòng code sau vào trước dòng Sheet3.Select trong Private sub ghitam xem:

Me.chitiet.RowSource = "solieu"

To : tuanh1979 :
Đối với các đối tượng dùng List (combobox, listbox) thì khi bạn thay đổi nguồn thì nên refresh lại nó . Khi đó nó mới cập nhật các thây đổi của bạn.
Bác Minhlev làm đó chính là cách Refresh đó.
Chú ý nhé.

Thân!

 

[tuanh1979]

Mình cũng đưa dòng lệnh đó vào đoạn code rồi nhưng khi ấn nút xoá mình kiểm tra lại thì vùng dữ liệu ban đầu là offset(sheet1!$D$1,0,0,10,4) chuyển thành offset(sheet1!REF!,0,0,10,4). Bạn giúp minh nhé

 

[Mr Okebab]

Mình cũng đưa dòng lệnh đó vào đoạn code rồi nhưng khi ấn nút xoá mình kiểm tra lại thì vùng dữ liệu ban đầu là offset(sheet1!$D$1,0,0,10,4) chuyển thành offset(sheet1!REF!,0,0,10,4). Bạn giúp minh nhé

Do bạn đã xoa scả ô tham chiếu nên sai là phải (ô tham chiếu 1)
Nếu không muốn phụ thuộc vào ô tham chiếu, bạn dùng công thức sau :
=OFFSET(INDIRECT("Sheet1!$D$1");0;0;10;4)

Nhớ là tên sheet phải trung với tên trong hàm indirect : Sheet1
Thân!

 

[tuanh1979]

Mình làm theo ban Mr Okebab và có thể xoá được dữ liệu mà không bị thay đôi vùng dữ liệu gốc. Nhưng nút xoá cua mỉnh vẫn chưa hoàn chỉnh. Bạn giúp mình nữa đi

 

[viettrithanyeu]

...