Giúp đỡ về tìm kiếm bằng VBA

[vietkid221992]

Chào các bác,
sau thời gian cóp nhặt từ nhiều nguồn e có làm cái file quản lý kho nhỏ nhỏ này và gặp chút rắc rối về tìm kiếm mã hàng
em để ý tìm kiếm với số thì ko sao, nhưng tìm kiếm bằng chữ thì:
- gõ đk tìm kiếm 1 ký tự thì ko sao
- gõ tìm kiếm 2 ký tự thì nếu cả 2 ký tự đích đều viết hoa thì tìm được, còn lại thì ko tìm được,
mong các bác chỉ giúp, làm sao để tìm kiếm 2 ký tự được,
em cảm ơn
- ko hiểu sao e quay màn hình lại ko ghi lại được list hàng hiện ra
các bác xem file giúp ạ

 

[letienmai]

Dùng code này cho TextBox txtTimKiem

Private Sub txtTimKiem_Change()
Dim arr(), kq(), i As Long, a As Long, dk As String
dk = txtTimKiem.Text 'gan dk cho text nhap vao'
arr = Sheets("DM").Range("b3:f3000").Value
ReDim kq(1 To UBound(arr, 1), 1 To 5)
For i = 1 To UBound(arr, 1)
If LCase(arr(i, 2)) Like "*" & dk & "*" Or _
LCase(arr(i, 3)) Like "*" & dk & "*" Then
a = a + 1
kq(a, 1) = arr(i, 1)
kq(a, 2) = arr(i, 2)
kq(a, 3) = arr(i, 3)
kq(a, 4) = arr(i, 4)
kq(a, 5) = arr(i, 5)
End If
Next i
LstHanghoa = ""
LstHanghoa = Clear
LstHanghoa.List = kq
End Sub

 

[huuthang_bd]

Bạn thử thêm dòng sau vào trên cùng code của userform.
Option Compare Text

 

[vietkid221992]

Dùng code này cho TextBox txtTimKiem

Private Sub txtTimKiem_Change()
Dim arr(), kq(), i As Long, a As Long, dk As String
dk = txtTimKiem.Text 'gan dk cho text nhap vao'
arr = Sheets("DM").Range("b3:f3000").Value
ReDim kq(1 To UBound(arr, 1), 1 To 5)
For i = 1 To UBound(arr, 1)
If LCase(arr(i, 2)) Like "*" & dk & "*" Or _
LCase(arr(i, 3)) Like "*" & dk & "*" Then
a = a + 1
kq(a, 1) = arr(i, 1)
kq(a, 2) = arr(i, 2)
kq(a, 3) = arr(i, 3)
kq(a, 4) = arr(i, 4)
kq(a, 5) = arr(i, 5)
End If
Next i
LstHanghoa = ""
LstHanghoa = Clear
LstHanghoa.List = kq
End Sub

cảm ơn bác nhiều, em dùng OK rồi ạ, :v

 

[huuthang_bd]

Nên làm theo bài #3, sẽ hiệu quả hơn.

 

[vietkid221992]

Nên làm theo bài #3, sẽ hiệu quả hơn.

VÂNG, E CẢM ƠN, EM SẼ THỬ XEM SAO