Tạo 1 textbox để tìm kiếm bất kỳ nội dung trong lisboxt trên cùng 1 userform trong VBA

[huanmms123]

Dear các anh chị!
- Anh chị giúp em tạo 1 đoạn code cho textbox mà từ cái textbox đó em có thể tìm kiếm bất kỳ nội dung nào trong listbox trên cùng 1 userform ạ. sau đó em click vào đối tượng đã được chon ý, nó sẽ hiện ra 1 số các textbox như trong userform em đã làm để add data sang 1 sheet mới ạ. Mong nhận được phản hồi sớm từ các anh chị. Em cám ơn ạ!

 

[huanmms123]

Dear các anh chị!
- Anh chị giúp em tạo 1 đoạn code cho textbox mà từ cái textbox đó em có thể tìm kiếm bất kỳ nội dung nào trong listbox trên cùng 1 userform ạ. sau đó em click vào đối tượng đã được chon ý, nó sẽ hiện ra 1 số các textbox như trong userform em đã làm để add data sang 1 sheet mới ạ. Mong nhận được phản hồi sớm từ các anh chị. Em cám ơn ạ!

 

[Nguyễn Hồng Quang]

Mình thấy file của bạn chưa gán vào đâu cái lệnh hiện listbox mà bạn để cập đến. Chả nhẽ mỗi lần dùng lại Alt+F11 rồi vào module ấn F5????
Tiếp đó là cái ý tưởng textbox để tìm kiếm trong listbox bạn cũng nên thiết kế, hoặc nêu cụ thể các nội dung tìm kiếm để mọi người biết được cần phải tìm kiếm những thông tin gì trong listbox

 

[huanmms123]

Anh ơi anh nhấn ctrl+Q trên bàn phím nó sẽ hiện ra ạ. Còn textbox e muốn nó tìm kiếm thỏa mãn các giá trị cột ngày tháng, số OBD, số shipment và biển số xe trên listbox đã show ạ

 

[Nguyễn Hồng Quang]

Mình thử trình bày 1 cách hiện Textbox tìm kiếm cho listbox của bạn, nếu hợp với ý tưởng của bạn thì bạn sửa lại cách trình bày file gốc của bạn và up lại file của #1, để các anh chị và các bạn trên diễn đàn khi đọc bài sẽ hiểu ý tưởng của bạn và tiện cho việc giúp đỡ tiếp cho bạn.

 

[huanmms123]

Cám ơn sự hỗ trợ của anh ạ. Nhưng ý tưởng của em sẽ như file đính kèm nhé. Em mong muốn có 1 đoạn code cho thằng combobox (Cmb3) mà khi gõ vào texbox 1 giá trị bất kỳ sau đó nhấn nút tìm kiếm nó sẽ tìm kiếm chính xác tới listbox. Sau đó, nhấn vào kết quả tìm tại listbox nó sẽ hiện ra tại các ô texbox bên dưới và em add dữ liệu sang 1 sheet mới ạ.

 

[Nguyễn Hồng Quang]

Cám ơn sự hỗ trợ của anh ạ. Nhưng ý tưởng của em sẽ như file đính kèm nhé. Em mong muốn có 1 đoạn code cho thằng combobox (Cmb3) mà khi gõ vào texbox 1 giá trị bất kỳ sau đó nhấn nút tìm kiếm nó sẽ tìm kiếm chính xác tới listbox. Sau đó, nhấn vào kết quả tìm tại listbox nó sẽ hiện ra tại các ô texbox bên dưới và em add dữ liệu sang 1 sheet mới ạ.

Bạn tham khảo link này và nghiên cứu nhé
https://www.giaiphapexcel.com/diendan/threads/nhờ-giúp-đỡ-filter-listbox-theo-điều-kiện-combo-box.134877/
Hoặc file này của bạn vanthinh đã làm ở link

 

[huanmms123]

Bạn tham khảo link này và nghiên cứu nhé
https://www.giaiphapexcel.com/diendan/threads/nhờ-giúp-đỡ-filter-listbox-theo-điều-kiện-combo-box.134877/
Hoặc file này của bạn vanthinh đã làm ở link

cám ơn anh nhiều nhé, đúng ý em rùi ạ

 

[Nguyễn Hồng Quang]

cám ơn anh nhiều nhé, đúng ý em rùi ạ

Ngoài ra bạn có thể tham khảo 1 kiểu lọc bằng textbox cho listbox trong file gửi kèm này. Có lẽ cái này sẽ khiến bạn thích hơn đấy
Mình sưu tập được trên diễn đàn từ các anh chị khác

 

[huanmms123]

Ngoài ra bạn có thể tham khảo 1 kiểu lọc bằng textbox cho listbox trong file gửi kèm này. Có lẽ cái này sẽ khiến bạn thích hơn đấy
Mình sưu tập được trên diễn đàn từ các anh chị khác

Anh ơi cho e hỏi anh có đoạn code nào mà khi add dữ liệu từ list box sang 1 sheet mới thì đồng nghĩa với dòng dữ liệu trên cái listbox cũng biến mất luôn. E cám ơn ạ!

 

[Nguyễn Hồng Quang]

Anh ơi cho e hỏi anh có đoạn code nào mà khi add dữ liệu từ list box sang 1 sheet mới thì đồng nghĩa với dòng dữ liệu trên cái listbox cũng biến mất luôn. E cám ơn ạ!

Nghiên cứu ở đây nhé bạn
https://stackoverflow.com/questions/40255387/remove-item-in-a-listbox-by-selecting-in-vba

Bài đã được tự động gộp: 9/11/18

Hoặc bạn tham khảo động tác Remove Item của Double Click trong Listbox của Form mình ví dụ này
Sau khi danh sách hiện lên trong Listbox, double click vào 1 dòng bất kỳ, dữ liệu được xuất ra vùng M20:T20, đồng thời dữ liệu đó trong listbox sẽ bị remove
Ghi chú: Form này mình tham khảo của bác SADQ

 

[huanmms123]

Nghiên cứu ở đây nhé bạn
https://stackoverflow.com/questions/40255387/remove-item-in-a-listbox-by-selecting-in-vba

Bài đã được tự động gộp: 9/11/18

Hoặc bạn tham khảo động tác Remove Item của Double Click trong Listbox của Form mình ví dụ này
Sau khi danh sách hiện lên trong Listbox, double click vào 1 dòng bất kỳ, dữ liệu được xuất ra vùng M20:T20, đồng thời dữ liệu đó trong listbox sẽ bị remove
Ghi chú: Form này mình tham khảo của bác SADQ

Anh ơi, hỗ trợ viết e code của 4 mục em khoanh đỏ như hình với. Em coi cái file anh gửi nhưng em viết không ra anh ạ. Em cám ơn nhiều nhé!

 

[Nguyễn Hồng Quang]

Anh ơi, hỗ trợ viết e code của 4 mục em khoanh đỏ như hình với. Em coi cái file anh gửi nhưng em viết không ra anh ạ. Em cám ơn nhiều nhé!
View attachment 207344

chắc bạn phải chờ lâu đấy, vì hiện tại mình đang bận, và mình cũng như bạn thôi, bạn chịu khó mày mò lắp ráp code từ file của bạn vanthinh ở #7 mà mình đã gửi
Tổng quát là bạn phải tạo 1 module cho hàm Filter Listbox, sau đó kết nối sự kiện Change cho các textbox vào hàm Filter Listbox đó
Quan trọng bạn điều chỉnh được các thông số trong hàm Filter Listbox của người ta sao cho phù hợp với file của bạn

 

[huanmms123]

chắc bạn phải chờ lâu đấy, vì hiện tại mình đang bận, và mình cũng như bạn thôi, bạn chịu khó mày mò lắp ráp code từ file của bạn vanthinh ở #7 mà mình đã gửi
Tổng quát là bạn phải tạo 1 module cho hàm Filter Listbox, sau đó kết nối sự kiện Change cho các textbox vào hàm Filter Listbox đó
Quan trọng bạn điều chỉnh được các thông số trong hàm Filter Listbox của người ta sao cho phù hợp với file của bạn

Vâng, em cũng mày mò lắp cả ngày nay nhưng nó không được anh ạ, em khó cái đoạn dò tìm từ từ text box xuống listbox anh ạ. Và cái đoạn code liên quan giữa uniform và module anh à

 

[be_09]

Dear các anh chị!
- Anh chị giúp em tạo 1 đoạn code cho textbox mà từ cái textbox đó em có thể tìm kiếm bất kỳ nội dung nào trong listbox trên cùng 1 userform ạ. sau đó em click vào đối tượng đã được chon ý, nó sẽ hiện ra 1 số các textbox như trong userform em đã làm để add data sang 1 sheet mới ạ. Mong nhận được phản hồi sớm từ các anh chị. Em cám ơn ạ!

Muốn tìm để add data sang 1 sheet mới sao không dùng Advanced Filter cho nhanh lẹ và có thể Add nhiều dòng cùng 1 lúc code lại gọn gàng, bạn chơi UserForm chi cho cực khổ vậy.

 

[Nguyễn Hồng Quang]

Vâng, em cũng mày mò lắp cả ngày nay nhưng nó không được anh ạ, em khó cái đoạn dò tìm từ từ text box xuống listbox anh ạ. Và cái đoạn code liên quan giữa uniform và module anh à

Trước tiên 1 phần là vì nhận thấy file bạn gửi lên có giao diện nhìn cũng lạ lạ hay hay, nên mình thấy có hứng thú tìm tòi nghiên cứu
Như mình đã trao đổi ở bài #7 có file của bạn vanthinh sử dụng code "Filter Listbox" Mình chỉnh sửa lại áp vào file của bạn. Tất nhiên là mình
không làm ra đúng những gì bạn muốn. Bởi Vì mình làm theo góc độ nghiên cứu vọc vạch nên đối với Listbox của bạn mình làm lọc theo "Tuần" và "NPP".
Riêng đối với nhu cầu của bạn ở Button1 nhập data và remove item trong Listbox mình đã làm thử theo cách mình tìm được trên google
Nếu bạn đúng thật sự là tác giả của cái file này thì mình nghĩ những gì mình bổ sung trên file của bạn, sẽ giúp bạn có thể chỉnh sửa lại cho phù hợp với nhu cầu của bạn.
Chúc bạn nghiên cứu và áp dụng thành công

 

[letienmai]

Ngoài ra bạn có thể tham khảo 1 kiểu lọc bằng textbox cho listbox trong file gửi kèm này. Có lẽ cái này sẽ khiến bạn thích hơn đấy
Mình sưu tập được trên diễn đàn từ các anh chị khác

File này của bạn rất hay.
Nhưng sao mình dán code vô file mình chỉ đơn giản là tìm kiếm thì khi tìm ở textbox thì danh sách ở listbox nó không thu gọn lại mà chỉ thu gọn lại ở dữ liệu nguồn ngoài sheet.
Bạn có rãnh xem mình giúp với mình dò mỏi mắt nhưng vẫn không tìm được lỗi tại sao.
Cám ơn bạn.

 

[Nguyễn Hồng Quang]

File này của bạn rất hay.
Nhưng sao mình dán code vô file mình chỉ đơn giản là tìm kiếm thì khi tìm ở textbox thì danh sách ở listbox nó không thu gọn lại mà chỉ thu gọn lại ở dữ liệu nguồn ngoài sheet.
Bạn có rãnh xem mình giúp với mình dò mỏi mắt nhưng vẫn không tìm được lỗi tại sao.
Cám ơn bạn.

Có thể file gốc của bạn bị lỗi, Mình đã tái lập lại ở file này Bạn xem nhé