Nhờ tạo List xổ xuống có ô tìm kiếm như Filter

[Khanhminh35]

Xin Chào Cả nhà!
Nhờ mọi người viết code tạo List xổ xuống
Đề bài:
- trong cột "diễn giải" - Sheet "DNMH" (đã bôi vàng) sẽ có các viết mục đề nghị mua hàng. Danh mục gồm nhiều sản phẩm (bình thường chỉ <10 mục)
Nhờ viết code để tạo list có ô tìm kiếm mà khi viết vài từ sẽ hiện ra các danh mục có từ đấy để chọn
- Dữ liệu lấy ở sheet "danh mục" bên cạnh có thể thêm bớt hoặc sửa chữa
Thanks All!!

 

[HUONGHCKT]

Xin Chào Cả nhà!
Nhờ mọi người viết code tạo List xổ xuống
Đề bài:
- trong cột "diễn giải" - Sheet "DNMH" (đã bôi vàng) sẽ có các viết mục đề nghị mua hàng. Danh mục gồm nhiều sản phẩm (bình thường chỉ <10 mục)
Nhờ viết code để tạo list có ô tìm kiếm mà khi viết vài từ sẽ hiện ra các danh mục có từ đấy để chọn
- Dữ liệu lấy ở sheet "danh mục" bên cạnh có thể thêm bớt hoặc sửa chữa
Thanks All!!

Của bạn đây. Code của anh Batman1. Hãy gửi lời cảm ơn đến BQT diễn đàn và cá nhân anh Batman1 nhé.
P/S Tôi muốn làm combox có tính năng tìm kiếm như Google nhưng làm mãi mà không được.

 

[HUONGHCKT]

Xin Chào Cả nhà!
Nhờ mọi người viết code tạo List xổ xuống
Đề bài:
- trong cột "diễn giải" - Sheet "DNMH" (đã bôi vàng) sẽ có các viết mục đề nghị mua hàng. Danh mục gồm nhiều sản phẩm (bình thường chỉ <10 mục)
Nhờ viết code để tạo list có ô tìm kiếm mà khi viết vài từ sẽ hiện ra các danh mục có từ đấy để chọn
- Dữ liệu lấy ở sheet "danh mục" bên cạnh có thể thêm bớt hoặc sửa chữa
Thanks All!!

Nếu bạn thích thì một lựa chọn nữa. Textbox kết hợp với Listbox

 

[ongke0711]

P/S Tôi muốn làm combox có tính năng tìm kiếm như Google nhưng làm mãi mà không được.

Thấy bên đây bàn tán sôi nổi quá chừng sao bạn không qua đây xem.
[TẶNG] Thuật toán lọc tìm kiếm mới trên ComboBox.

 

[vanthinh3101]

Của bạn đây. Code của anh Batman1. Hãy gửi lời cảm ơn đến BQT diễn đàn và cá nhân anh Batman1 nhé.
P/S Tôi muốn làm combox có tính năng tìm kiếm như Google nhưng làm mãi mà không được.

Combobox tự động điền dữ liệu khi bạn gõ 1 vài ký tự ban đầu.
Bạn sửa lại Properties của Combobox theo bài ở link này: https://www.giaiphapexcel.com/diendan/threads/tìm-kiếm-với-code-với-combobox.157109/post-1040837
Làm như vậy thì mới làm được tính năng tìm kiếm mà bạn muốn.

 

[batman1]

Bạn có thể dùng Data Validation, trừ phi bạn có lý do để dùng code.

 

[HUONGHCKT]

Combobox tự động điền dữ liệu khi bạn gõ 1 vài ký tự ban đầu.
Bạn sửa lại Properties của Combobox theo bài ở link này: https://www.giaiphapexcel.com/diendan/threads/tìm-kiếm-với-code-với-combobox.157109/post-1040837
Làm như vậy thì mới làm được tính năng tìm kiếm mà bạn muốn.

Đúng là phải sửa lại Propeties của combobox theo như hình là được. xin được cảm ơn anh vanthinh 3101 đã chỉ giáo.

 

[Khanhminh35]

Bạn có thể dùng Data Validation, trừ phi bạn có lý do để dùng code.

vì danh mục mua hàng ở sheet danh mục gồm rất nhiều mục. Nếu mà ko có ô tìm kiếm thì tìm mục cần mua sẽ rất mất thời gian a ah

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

Nếu bạn thích thì một lựa chọn nữa. Textbox kết hợp với Listbox

File bị lỗi rồi ah. cứ hiện ô trắng

 

[befaint]

Add-in Input From List - Hỗ trợ nhập liệu từ danh mục có sẵn

Add-in hỗ trợ nhập liệu trên Excel từ một danh mục có sẵn. Cách sử dụng vui lòng xem video. DOWNLOAD

www.giaiphapexcel.com

 

[Khanhminh35]

Add-in Input From List - Hỗ trợ nhập liệu từ danh mục có sẵn

Add-in hỗ trợ nhập liệu trên Excel từ một danh mục có sẵn. Cách sử dụng vui lòng xem video. DOWNLOAD

www.giaiphapexcel.com

File ko tải được ah? Mà thấy comment là ko sử dụng được cho office > 2013 64 bit ah

 

[befaint]

File ko tải được ah? Mà thấy comment là ko sử dụng được cho office > 2013 64 bit ah

A hát ca cô pằng pằng.

 

[Khanhminh35]

A hát ca cô pằng pằng.

View attachment 265757

chắc link tải bị lỗi nên ko tải được ah/ A/c gửi giúp cho tôi được ko ah. Tks!!!

 

[HUONGHCKT]

vì danh mục mua hàng ở sheet danh mục gồm rất nhiều mục. Nếu mà ko có ô tìm kiếm thì tìm mục cần mua sẽ rất mất thời gian a ah

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

View attachment 265754
File bị lỗi rồi ah. cứ hiện ô trắng

File của mình chạy bình thường mà.
Có thể trong sh danh mục không có bản ghi nào có 2 ký tự đầu là Th. kiểm tả lại nhé.
Nếu tìm từ ký tự nằm trong chuỗi Thì bạn vào cửa sổ VBE/modul1/sub loc và tìm dòng
DK = (Sheets("DNMH").TextBox1 & "*") và thay thành DK = ("*"&Sheets("DNMH").TextBox1 & "*")
mình gửi lại file trong đó đã tô màu cho Textbox và listbox.

 

[Khanhminh35]

File của mình chạy bình thường mà.
Có thể trong sh danh mục không có bản ghi nào có 2 ký tự đầu là Th. kiểm tả lại nhé.
Nếu tìm từ ký tự nằm trong chuỗi Thì bạn vào cửa sổ VBE/modul1/sub loc và tìm dòng
DK = (Sheets("DNMH").TextBox1 & "*") và thay thành DK = ("*"&Sheets("DNMH").TextBox1 & "*")
mình gửi lại file trong đó đã tô màu cho Textbox và listbox.

Được rồi ah. Cảm ơn bạn nhiều
Do lỗi chữ In hoa và chữ thường. Bắt buộc pải chữ cái đầu phải đúng ký tự in hoa đầu tiên.
Cái này chỉ tìm được cho các mục có chữ cái đầu tiên của danh mục chứ không tìm được khi đánh các từ trong chuỗi đúng ko ah
" Nếu tìm từ ký tự nằm trong chuỗi Thì bạn vào cửa sổ VBE/modul1/sub loc và tìm dòng
DK = (Sheets("DNMH").TextBox1 & "*") và thay thành DK = ("*"&Sheets("DNMH").TextBox1 & "*") " >> Cái này ko tìm thấy ah

Giúp mình nốt là khi đánh chữ tìm kiếm sẽ hiện từ bất ký trong chuỗi và không phân biệt in hoa in thường ah. Thanks !!!!

 

[HUONGHCKT]

Được rồi ah. Cảm ơn bạn nhiều
Do lỗi chữ In hoa và chữ thường. Bắt buộc pải chữ cái đầu phải đúng ký tự in hoa đầu tiên.
Cái này chỉ tìm được cho các mục có chữ cái đầu tiên của danh mục chứ không tìm được khi đánh các từ trong chuỗi đúng ko ah
" Nếu tìm từ ký tự nằm trong chuỗi Thì bạn vào cửa sổ VBE/modul1/sub loc và tìm dòng
DK = (Sheets("DNMH").TextBox1 & "*") và thay thành DK = ("*"&Sheets("DNMH").TextBox1 & "*") " >> Cái này ko tìm thấy ah
View attachment 265766
Giúp mình nốt là khi đánh chữ tìm kiếm sẽ hiện từ bất ký trong chuỗi và không phân biệt in hoa in thường ah. Thanks !!!!

Bạn đã vào file mình gửi cho bạn chưa (bài #13). Nhìn trên ảnh thì là bạn vẫn sử dung file ở bài#3.
Ở code đó bạn sửa lại như hướng dẫn chỗ bôi đen ấy là bạn sẽ tìm kể cả ký tự ở giữa các chuỗi ("*" là ký tự đại diện mà)

 

[Khanhminh35]

Bạn đã vào file mình gửi cho bạn chưa (bài #13). Nhìn trên ảnh thì là bạn vẫn sử dung file ở bài#3.
Ở code đó bạn sửa lại như hướng dẫn chỗ bôi đen ấy là bạn sẽ tìm kể cả ký tự ở giữa các chuỗi ("*" là ký tự đại diện mà)

Chắc do mình tải ko đè lên file cũ. được rồi bạn ah.
Còn 2 vấn đề nữa là:
1/ tìm kiếm đang phân biệt chữ in hoa và chữ thường
Bạn giúp mình nốt cái này được không? Tức là mình muốn tìm kiếm viết chữ hoa hay chữ thường thì lọc vẫn ra cả 2 loại
2/ Ô Listbox đang nhỏ quá ko hiển thị được hết danh mục mà mình chỉ kéo rộng ra sau lưu lại nó vẫn hiển thị như cũ
Cảm ơn bạn rất nhiều !!!

 

[HUONGHCKT]

Chắc do mình tải ko đè lên file cũ. được rồi bạn ah.
Còn 1 vấn đề nữa là tìm kiếm đang phân biệt chữ in hoa và chữ thường
Bạn giúp mình nốt cái này được không? Tức là mình muốn tìm kiếm viết chữ hoa hay chữ thường thì lọc vẫn ra cả 2 loại
Cảm ơn bạn rất nhiều !!!

Bạn vào file của bài #13 và tim đoạn code này
DK = (Sheets("DNMH").TextBox1 & "*")
For i = 1 To UBound(DL)
If DL(i, 1) Like DK Then
và thay bằng
DK = UCase((Sheets("DNMH").TextBox1 & "*"))
For i = 1 To UBound(DL)
If UCase(DL(i, 1)) Like DK Then
Thêm hàm Ucase để chuyển cả điều kiện lọc và dữ liệu về chữ hoa để tìm, nếu thỏa mãn thì nhặt vào Listbox.

 

[Maika8008]

Chắc do mình tải ko đè lên file cũ. được rồi bạn ah.
Còn 2 vấn đề nữa là:
1/ tìm kiếm đang phân biệt chữ in hoa và chữ thường
Bạn giúp mình nốt cái này được không? Tức là mình muốn tìm kiếm viết chữ hoa hay chữ thường thì lọc vẫn ra cả 2 loại
2/ Ô Listbox đang nhỏ quá ko hiển thị được hết danh mục mà mình chỉ kéo rộng ra sau lưu lại nó vẫn hiển thị như cũ
Cảm ơn bạn rất nhiều !!!

Của bạn đây. Code của anh Batman1. Hãy gửi lời cảm ơn đến BQT diễn đàn và cá nhân anh Batman1 nhé.
P/S Tôi muốn làm combox có tính năng tìm kiếm như Google nhưng làm mãi mà không được.

Gửi bạn chủ thớt và bạn @HUONGHCKT file dùng combobox để tìm và nhập liệu. File dùng 2 cách:
1/ Sheet TypeHTN dùng code của Hoàng Trọng Nghĩa biến hóa chút để tìm cho 2 cột (A và B) và nhập liệu cho 5 cột (từ A đến E)
2/ Sheet TypeBM1 dùng code tìm kiếm của Batman1 sửa lại để dùng cho combobox cũng để tìm trên 2 cột và nhập liệu cho 5 cột.

 

[Khanhminh35]

Gửi bạn chủ thớt và bạn @HUONGHCKT file dùng combobox để tìm và nhập liệu. File dùng 2 cách:
1/ Sheet TypeHTN dùng code của Hoàng Trọng Nghĩa biến hóa chút để tìm cho 2 cột (A và B) và nhập liệu cho 5 cột (từ A đến E)
2/ Sheet TypeBM1 dùng code tìm kiếm của Batman1 sửa lại để dùng cho combobox cũng để tìm trên 2 cột và nhập liệu cho 5 cột.

Cảm ơn bạn nhiều !!

 

[batman1]

vì danh mục mua hàng ở sheet danh mục gồm rất nhiều mục. Nếu mà ko có ô tìm kiếm thì tìm mục cần mua sẽ rất mất thời gian a ah

Nếu ý bạn là gõ trong ô nào đó và những mục khớp sẽ hiện ra, tức bạn có thể có 1000 mục mà trong đó có 10 mục bắt đầu bằng "Xe" (Xe cẩu, Xe chuyên dụng, Xe đổ rác ...) thì khi gõ xong "Xe" bạn sẽ có 10 và chỉ 10 mục bắt đầu từ "Xe" để bạn chọn, nếu đúng thế thì như tôi đã nói: Data Validation làm được.