Tạo chức năng Search dữ liệu trên các Sheet (1 người xem)

[kp20mar]

Mình muốn tạo 1 box để Search các dữ liệu câu hỏi trên các sheet trong 1 file. Ví dụ như khi mình type 1 từ vào serach box thì nó sẽ search trong các cột câu hỏi ở các sheet. Nếu có từ mình type vào, thì nó sẽ xuất ra các câu hỏi có từ liên quan. Các bạn giúp mình với! Cám ơn mọi người!

 

[vu_tuan_manh_linh]

hic hic, bạn bấm ctrl + F mà search, tội gì lập fomr cho khổ. Khi cửa sổ hiện ra, bạn vào option, chọn mục Match entire cell contents, nó sẽ lọc các cell chứa từ khóa bạn search.

 

[kp20mar]

vấn đề là yêu cầu sử dụng box để search bạn ơi, chứ dùng Ctrl + F thì k đúng yêu cầu. Thanks bạn!

 

[vu_tuan_manh_linh]

Vậy bạn thiết kế 1 Textbox1, 1 CommandButton1, 1 ListBox. Đoạn code cho CommandButton như sau:
Private Sub CommandButton1_Click()
Dim Cll As Range
Dim i As Long, j As Long
Dim FindCll(0 To 30000) As Variant
ListBox1.Clear
If TextBox1.Value <> "" Then
i = 0
For Each Cll In ActiveSheet.UsedRange
If InStr(1, LCase(Cll.Value), LCase(TextBox1.Value)) > 0 Then
FindCll(i) = Cll.Address
i = i + 1
End If
Next
If i > 0 Then
For j = 0 To i - 1
ListBox1.AddItem FindCll(j)
Next j
End If
End If
End Sub
----
đoạn code cho listbox như sau:
Private Sub ListBox1_Click()
Dim i As Long
For i = 0 To ListBox1.ListCount - 1
If ListBox1.Selected(i) Then
Range(ListBox1.List(i)).Select
If Range(ListBox1.List(i)).Row > 6 Then
ActiveWindow.ScrollRow = Range(ListBox1.List(i)).Row - 6
Else
ActiveWindow.ScrollRow = 1
End If
End If
Next i
End Sub
---- Sau khi search, bấm vào 1 dòng nào đó của listbox, sẽ tự động chạy đến Cell chứa kết quả tìm kiếm.

 

[vu_tuan_manh_linh]

vấn đề là yêu cầu sử dụng box để search bạn ơi, chứ dùng Ctrl + F thì k đúng yêu cầu. Thanks bạn!

Bạn tham khảo file này nhé!

 

[coitam]

Hay quá, nếu như gõ từ khóa tìm kiếm rồi nhấn enter và thực hiện tìm kiếm trên cột B trên tất cả các sheet của WB thì làm thế nào vậy bạn?

 

[vu_tuan_manh_linh]

Hay quá, nếu như gõ từ khóa tìm kiếm rồi nhấn enter và thực hiện tìm kiếm trên cột B trên tất cả các sheet của WB thì làm thế nào vậy bạn?

Vậy thì phải chơi kiểu này thôi. Bấm Ctrl + Q để hiện Form nhé bạn!

 

[kp20mar]

hic, bạn giấu code đi thì phải manh linh ơi

 

[vu_tuan_manh_linh]

không! Code trong Modul mà bạn.