nhờ anh chị sửa giúp code cập nhập dữ liệu trên Listbox (2 người xem)

[lexuantruong]

nội dung như tiêu đề ạ.
Cụ thể là: ở bên danh sách thuốc hết hạn, sau khi bấm nút " Xóa" để cập nhập lại dữ liệu thì trên listbox hiển thị không đúng. anh chị sửa giúp em sau khi bấm " Cập Nhập Dữ Liệu" thì trên listbox không bị lỗi, đồng thời những thuốc vừa " cập nhập" đó không hiện lại trên listbox nữa ( vì đã xóa hạn dùng của thuốc hết hạn nên không cần hiển thị lên listbox nữa, chỉ hiển thị những thuốc hết hạn thôi)
Nhờ anh chị sửa giúp ạ, em cám ơn nhiều nhiều ạ.

 

[ngocvaneahleo]

haizzz rắc rối wá ................

 

[lexuantruong]

http://www.giaiphapexcel.com/forum/...nhập-dữ-liệu-trên-Listbox&p=747380#post747380

anh giúp em làm trên cái userfom đi anh

http://www.giaiphapexcel.com/forum/...nhập-dữ-liệu-trên-Listbox&p=747401#post747401

 

[ngocvaneahleo]

anh giúp em làm trên cái userfom đi anh

http://www.giaiphapexcel.com/forum/...nhập-dữ-liệu-trên-Listbox&p=747401#post747401

vẫn chưa có ai giúp bạn à, mình cũng đang cần file sửa của bạn để làm cái thông báo sinh nhật, đành lót dép ngồi hóng tiếp vậy ...

 

[sealand]

em dùng Form để nhập dữ liệu luôn cho nó nhanh anh, chứ vào excel nhìn rối mắt lắm ( em thì thích dùng Form hơn)



nghĩa là thuốc nào sắp hết hạn dùng thì báo trước khoảng 3 tháng để mà bán đi chứ anh, chứ để hết hạn thì tiêu em rồi.

em dựa theo bài #9 của anh sealand, thay vì hết hạn thì em sửa lại sắp hết hạn trước 3 tháng, nhưng nó lại hiện luôn cả thuốc hết hạn vào luôn.

Tôi đã xem file định làm cho bạn nhưng cái file của bạn nó rắc rối quá. Mở lên thì lặn tiêu mất Exc. Trên form thì báo có Object không chạy được trên máy của mình. Đành bó tay.
Còn bạn nói cải biên đoạn code của mình không được, chỉ cấn sửa thế này thôi

Đoạn code cũ:If DateDiff("d", Date, Tm(i, 6)) < 0 Then

Sửa lại thành:

If DateDiff("d", Date, Tm(i, 6)) < 91 and DateDiff("d", Date, Tm(i, 6)) > 0 Then

 

[lexuantruong]

Tôi đã xem file định làm cho bạn nhưng cái file của bạn nó rắc rối quá. Mở lên thì lặn tiêu mất Exc. Trên form thì báo có Object không chạy được trên máy của mình. Đành bó tay.
Còn bạn nói cải biên đoạn code của mình không được, chỉ cấn sửa thế này thôi

Đoạn code cũ:If DateDiff("d", Date, Tm(i, 6)) < 0 Then

Sửa lại thành:

If DateDiff("d", Date, Tm(i, 6)) < 91 and DateDiff("d", Date, Tm(i, 6)) > 0 Then

em làm được rồi, cám ơn anh nhiều nha