Tìm kiếm tất cả các trường trong listbox theo điều kiện nhập vào từ textbox.

[sonnguyenqna]

Dạ thưa các thầy cô và các anh chị em trong diễn đàn, em mới học viết code vba và gặp một vấn đề về tìm kiếm rất mong được chỉ giáo ạ.
Cho em xin hỏi cách code tìm kiếm tất cả các trường trong listbox, có thể tìm kiếm theo mã số KH, ngày tạo, tên KH, địa chỉ, số đt,... khi nhập vào textbox ạ.
Em cảm ơn và kính chúc mọi người ngày mới vui vẻ.
Rất mong nhận được sự giúp đỡ,
Trân trọng,
File đính kèm được chỉnh sửa từ file mẫu Theo dõi Công Văn của thầy bên Sở Tài Nguyên và Môi Trường Đồng Nai ạ.

 

[leonguyenz]

File đính kèm được chỉnh sửa từ file mẫu Theo dõi Công Văn của thầy bên Sở Tài Nguyên và Môi Trường Đồng Nai ạ.
View attachment 227132

Nhờ bác @be09 hỗ trợ em út cho anh ạ

 

[snow25]

Nhờ bác @be09 hỗ trợ em út cho anh ạ

Sao anh biết là em út vậy.

 

[VetMini]

Sao anh biết là em út vậy.

Nếu là đồng niên, hoặc sếp bác ta thì đã không hỏi.
Luận chứng loại suy. Toán cấp 3:
Tập hợp H có hai kiểu phần tử A và B. A có tính chất a và B có tính chất b.
Như vậy xét phần tử X không có tính chất a nên không thể là A; chỉ có thể là B.

 

[befaint]

Sao anh biết là em út vậy.

Vì hiện tại là 'em' cuối cùng, chưa tìm/ 'đẻ' thêm ẻm nào nữa thì vẫn là em út.

 

[sonnguyenqna]

Em có tham khảo cách code hướng dẫn của Bluesoft khi cài Atool:
Public Arra As Variant
Private Sub TextBox1_Change()
Dim BN As New BSFunctions
Dim a As Variant
a = BN.bs_Vlookup("*" & TextBox1 & "*", Arra)
If IsArray(a) Then
lbxTTKH.List = a
Else
lbxTTKH.Clear
End If
Set BN = Nothing
End Sub
------------------------------------------------
Private Sub UserForm_Activate()
Arra = Range("DATA_KHACHHANG").Value
TextBox1_Change
End Sub
và cho ra kết quả nhưng listbox lại không hiển thị columheads mặc dù trong listbox em đặt columnheads = true ạ.

 

[snow25]

Em có tham khảo cách code hướng dẫn của Bluesoft khi cài Atool:
Public Arra As Variant
Private Sub TextBox1_Change()
Dim BN As New BSFunctions
Dim a As Variant
a = BN.bs_Vlookup("*" & TextBox1 & "*", Arra)
If IsArray(a) Then
lbxTTKH.List = a
Else
lbxTTKH.Clear
End If
Set BN = Nothing
End Sub
------------------------------------------------
Private Sub UserForm_Activate()
Arra = Range("DATA_KHACHHANG").Value
TextBox1_Change
End Sub
và cho ra kết quả nhưng listbox lại không hiển thị columheads mặc dù trong listbox em đặt columnheads = true ạ.View attachment 227141

Tiêu đề của listbox chỉ có được khi nó được lấy từ excel thôi.Nếu mình gán bằng mảng thì nó sẽ không còn nữa.Nếu muốn tiêu đề thì bỏ dòng đầu tiên và viết tiêu đề cho nó.Còn không muốn dùng addin thì viết code mảng cũng được.

 

[sonnguyenqna]

Tiêu đề của listbox chỉ có được khi nó được lấy từ excel thôi.Nếu mình gán bằng mảng thì nó sẽ không còn nữa.Nếu muốn tiêu đề thì bỏ dòng đầu tiên và viết tiêu đề cho nó.Còn không muốn dùng addin thì viết code mảng cũng được.

Dạ, em vẫn chưa hiểu câu này "Nếu muốn tiêu đề thì bỏ dòng đầu tiên và viết tiêu đề cho nó" lắm anh ạ, anh có thể demo giúp em cách tự viết tiêu đề như thế nào được không ạ?
File đính kèm là file đã tìm kiếm được nhưng chưa có tiêu đề ạ.

 

[sonnguyenqna]

Các anh chị ơi, đến giờ em vẫn chưa giải quyết được vấn đề này, nhà mình có cao kiến gì hỗ trợ em với được không ạ? Chẳng hạn tìm kiếm tương đối theo 1 trường trong listbox dựa vào dữ liệu nhập từ textbox cũng được ạ.

 

[snow25]

Các anh chị ơi, đến giờ em vẫn chưa giải quyết được vấn đề này, nhà mình có cao kiến gì hỗ trợ em với được không ạ? Chẳng hạn tìm kiếm tương đối theo 1 trường trong listbox dựa vào dữ liệu nhập từ textbox cũng được ạ.

Có bạn duyệt dữ liệu vào mảng rồi gán vào listbox.

 

[thuyyeu99]

Mình nhớ không lầm thì bạn kiếm files tìm kiếm listbox của @ongke0711 cũng hay lắm đó