Tạo Userform, list box tìm kiếm theo ngày

[Thaikhoa19nd]

Dear các anh chị!
Em có data hiện tại muốn tạo 1 userform để tìm kiếm theo ngày ( ngày sẽ nhập vào textbox) thì listbox sẽ hiển thị dữ liệu tìm kiếm
Nhờ anh chị chỉ code VBA để chạy Userform theo mô tả trên với ạ.
Em xin cám ơn!

 

[BuiQuangThuan]

Dear các anh chị!
Em có data hiện tại muốn tạo 1 userform để tìm kiếm theo ngày ( ngày sẽ nhập vào textbox) thì listbox sẽ hiển thị dữ liệu tìm kiếm
Nhờ anh chị chỉ code VBA để chạy Userform theo mô tả trên với ạ.
Em xin cám ơn!

Dùng advancefilter cũng được mà bạn. Thiết kế userform chi cho mất công ra. Với lại dùng userform mà nhờ cả thì nó kì kì kiểu gì ấy

 

[Thaikhoa19nd]

Em có tạo userform tìm kiếm nhưng chỉ tìm kiếm được theo text còn date thì không tìm được, nên em nhờ các anh chị chỉ cho code để tìm kiếm theo date được. Sau đó em sẽ tự tạo userform để làm thôi ạ.

 

[BuiQuangThuan]

Em có tạo userform tìm kiếm nhưng chỉ tìm kiếm được theo text còn date thì không tìm được, nên em nhờ các anh chị chỉ cho code để tìm kiếm theo date được. Sau đó em sẽ tự tạo userform để làm thôi ạ.

Thế đính kèm cái file bạn làm dở lên đây nào cho các anh chị em mổ xẻ cho.

 

[Thaikhoa19nd]

Em gửi ạ!Các bác xem lỗi hộ em!

 

[snow25]

Em có tạo userform tìm kiếm nhưng chỉ tìm kiếm được theo text còn date thì không tìm được, nên em nhờ các anh chị chỉ cho code để tìm kiếm theo date được. Sau đó em sẽ tự tạo userform để làm thôi ạ.

Dạng ngày tháng bạn quy đổi sang số rồi so sánh là được.Sửa như này xem chưa kiểm tra hết lỗi.

For i = 1 To UBound(arr)
If arr(i, 2) = CDate(TextBox1.Value) Then

 

[BuiQuangThuan]

Em gửi ạ!Các bác xem lỗi hộ em!

Em gửi ạ!Các bác xem lỗi hộ em!

Tham khảo file này .

 

[Thaikhoa19nd]

Vẫn báo lỗi ạ! các bác xem thêm giúp ạ

Bài đã được tự động gộp: 21/4/23

Tham khảo file này .

Dạ file này của bác chạy OK ạ!
Em cám ơn nhé!

 

[snow25]

Vẫn báo lỗi ạ! các bác xem thêm giúp ạ
View attachment 289302

Ở cái trên sửa 2 cái mà 1 là to đến i sửa thành to đến Ubound(arr).Mà cái mảng sao lại thêm .value làm gì.