Cách tạo nhiều ô tìm kiếm

[iloveit]

Chào mọi người.

Mình đang tạo nhiều ô tìm kiếm (khi gõ từ khóa vào ô màu xanh của cột nào thì sẽ tìm dữ liệu trong cột đó) nhưng nó ra kết quả lúc đúng lúc không.
Mình gửi file lên nhờ mọi người xem giúp. Chân thành cảm ơn.

 

[1convit789]

Chào mọi người.

Mình đang tạo nhiều ô tìm kiếm (khi gõ từ khóa vào ô màu xanh của cột nào thì sẽ tìm dữ liệu trong cột đó) nhưng nó ra kết quả lúc đúng lúc không.
Mình gửi file lên nhờ mọi người xem giúp. Chân thành cảm ơn.

View attachment 229461

file lỗi rồi ,, ko mở lên đc

 

[iloveit]

file lỗi rồi ,, ko mở lên đc

Mình gửi lại file nha

 

[SA_DQ]

Nếu bạn đồng ý, mình sẽ giúp bạn 1 Form tìm kiếm theo 4 cột mà bạn iêu cầu
Để vậy bạn cần có 4 danh mục dữ liệu của 4 cột này (duy nhất)
Trên Form sẽ có 1 ComboBox đề chọn 1 trong 4 tiêu đề cột mà ta cần tìm
Sau đó là 1 TextBox để ta nhập nội dung cần tìm vô nớ
1 nút lệnh & 1 ListBox, để khi nhấn nút lệnh thì kết quả sẽ hiện lên trên ListBox này

 

[iloveit]

Nếu bạn đồng ý, mình sẽ giúp bạn 1 Form tìm kiếm theo 4 cột mà bạn iêu cầu
Để vậy bạn cần có 4 danh mục dữ liệu của 4 cột này (duy nhất)
Trên Form sẽ có 1 ComboBox đề chọn 1 trong 4 tiêu đề cột mà ta cần tìm
Sau đó là 1 TextBox để ta nhập nội dung cần tìm vô nớ
1 nút lệnh & 1 ListBox, để khi nhấn nút lệnh thì kết quả sẽ hiện lên trên ListBox này

Dạ chú giúp con với. Nếu được chú ghi chú thích để con cần sửa có thể tự sửa ạ

 

[SA_DQ]

Bạn quậy tưng với file này xem sao:

 

[1convit789]

Chào mọi người.

Mình đang tạo nhiều ô tìm kiếm (khi gõ từ khóa vào ô màu xanh của cột nào thì sẽ tìm dữ liệu trong cột đó) nhưng nó ra kết quả lúc đúng lúc không.
Mình gửi file lên nhờ mọi người xem giúp. Chân thành cảm ơn.

View attachment 229461

Mình dùng code này thấy ổn
Private Sub Worksheet_Change(ByVal Target As Range)

Dim i As Integer
i = Sheets(1).Range("a" & Rows.Count).End(xlUp).Row
Sheets(1).Range("A6:K" & i).AdvancedFilter Action:=1, CriteriaRange:=Sheets(1).Range("A6:K7"), Unique:=False
Range("G7").Select



End Sub

 

[SA_DQ]

Chọn cột cần tìm & nhập vô TextBox 3 từ cần tìm nội dung