tìm kiếm với combobox

[nhathuyha]

Em xin chào các thầy, cô và anh chị em trong diễn đàn !

Em đang có 1 vấn đề về tìm kiếm , mong mọi người giúp đỡ.
em có 1 file down trên diễn đàn của mình (đính kèm) trong sheet "LIST ALL EQM" là phần tìm kiếm, em chạy code được rồi nhưng em thấy trên youtube có chỉ cách tìm bằng combobox. Links :

Em muốn kết hợp 2 cái này lại với nhau có được không ạ. Có nghĩa khi mình gõ vào tìm kiếm thì nó hiện các kết quả tìm như google, còn hàm tìm kiếm vẫn dùng VBA như cũ.

em xin cảm ơn !

 

[nhathuyha]

có ai giúp em được với không ạ

 

[SA_DQ]

Em xin chào anh chị em trong diễn đàn !
em có 1 file down trên diễn đàn của mình (đính kèm) trong sheet "LIST ALL EQM" là phần tìm kiếm, em chạy code được rồi;
Nhưng em thấy trên youtube có chỉ cách tìm bằng combobox
Em muốn kết hợp 2 cái này lại với nhau có được không ạ. Có nghĩa khi mình gõ vào tìm kiếm thì nó hiện các kết quả tìm như google, còn hàm tìm kiếm vẫn dùng VBA như cũ.

Code của bạn đâu có trên file; Cho nên chưa rõ bạn tìm ở trên cột nào của trang tính?
Tìm ra thì hiển thị nơi mô?
v.v.. . .

 

[nhathuyha]

em gởi file mới nhất em tự làm tuy nhiên khi nhập bằng combobox ở "sheet truy xuất" thì nó không chạy vì phải bấm enter tại ô tìm kiếm B9 nó mới chạy. Mọi người giúp em với ạ.
em xin phép chèn đoạn code trong chương trình

Private Sub Worksheet_Change(ByVal Target As Range)
Dim Arr, dArr, I As Long, J As Long, K As Long, M, S, DK, D, L
If Not Intersect(Target, Range("B9", "D11")) Is Nothing Then
Application.ScreenUpdating = False
With Sheets("Truyxuat")
If .[B9].Value = Empty Then
    M = "*"
Else
    M = "*" & .[B9].Value & "*"
End If
If .[B11].Value = Empty Then
    S = "*"
Else
    S = "*" & .[B11].Value & "*"
End If
If .[D9].Value = Empty Then
    D = "*"
Else
    D = "*" & .[D9].Value & "*"
End If
If .[D11].Value = Empty Then
    L = "*"
Else
    L = "*" & .[D11].Value & "*"
End If
End With
DK = UCase(M & S & D & L)
With Sheets("Data")
    Arr = .Range("A7", .Range("A65000").End(3)).Resize(, 40).Value2
End With
ReDim dArr(1 To UBound(Arr), 1 To 40)
For I = 1 To UBound(Arr)
    If UCase(Arr(I, 3) & Arr(I, 7) & Arr(I, 5) & Arr(I, 8)) Like DK Then
        K = K + 1
            dArr(K, 1) = K
        For J = 1 To 40
            dArr(K, J) = Arr(I, J)
        Next J
    End If
    Next I
With Sheets("Truyxuat")
If .Range("A65000").End(3).Row > 17 Then
    .Range("A18", .Range("A65000").End(3)).Resize(, 40).Borders.LineStyle = 0
    .Range("A18", .Range("A65000").End(3)).Resize(, 40).ClearContents
End If
If K Then
    .Range("A18").Resize(K, 40) = dArr
    .Range("A18").Resize(K, 40).Borders.LineStyle = 1
    .Range("A18").Resize(K, 40).Borders(xlInsideHorizontal).Weight = xlHairline
End If
End With
Application.ScreenUpdating = True
End If
End Sub