Chỉnh Code Tìm Kiếm (1 người xem)

[Rùa Con 1080]

Em có đoạn code sưu tầm trên DD, trong code chỉ tìm theo cột thứ nhất của mảng ArrChungLoai.
Bây giờ em mong mọi người giúp em chỉnh code để tìm theo cột thứ 2, mong các AC giúp đỡ

Private Sub TimKiem()
Dim GetRows()
Dim strType As String
Dim n As Long, r As Long
strType = UCase(TextBox1) & "*"
If Trim(TextBox1) = "" Then
ListBox1.Clear
Else
' xoa ket qua cu
ListBox1.Clear
For r = 1 To UBound(Arrchungloai, 1)
If UCase(Arrchungloai(r, 1)) Like strType Then
n = n + 1
ReDim Preserve GetRows(1 To n)
GetRows(n) = r + 1
End If
Next
If n Then
Dim ArrFilter(), c As Byte
ReDim ArrFilter(1 To n, 1 To UBound(Arrchungloai, 2))
For r = 1 To n
For c = 1 To UBound(Arrchungloai, 2)
ArrFilter(r, c) = Arrchungloai(GetRows(r), c)
Next
Next
' nhap ket qua moi
ListBox1.List = ArrFilter
End If
End If
End Sub

code mảng chủng loại

Arrchungloai = .Range(.Range("A65000").End(xlUp), .Range("C2")).Value

 

[Rùa Con 1080]

Em đã chỉnh được rồi

If UCase(Arrchungloai(r, 1)) Like strType Then

thay 1 bang 2, nhưng em thấy tìm không chính xác lắm.
như em gỏ "dầu" thì hiện "Dầu Ăn" vả cả "Neptune" nữa.
không biết chỉnh "Like strType" để cho chính xác.