Giúp sửa code để gõ chữ thường ra được cả chữ hoa khi tìm kiếm

[xaydung.vig]

Mong các ACE sửa giúp mình đoạn code này để có thể tim kiếm dduocj cả chữ hoa khi gõ chữ thường. Xin cảm ơn !
Private Sub txtTimkiem_Change()
Dim arr(), kq, i As Long, a As Long
dk = txtTimkiem.Text 'gan dk cho text nhap vao
arr = Sheets("Khachhang").Range("B5:B1000").value
ReDim kq(1 To UBound(arr, 1), 1 To 1)
For i = 1 To UBound(arr, 1)
If arr(i, 1) Like "*" & dk & "*" Then 'so sanh ma hang voi tu khoa nhap vao
a = a + 1
kq(a, 1) = arr(i, 1)
End If
Next i
lsb = ""
lsb.Clear
lsb.List = kq ' gan tro lai listbox
End Sub

 

[zzzsxxx01]

Bạn dùng Lcase("Chuỗi cần tìm") thử xem sao.

 

[xaydung.vig]

Bạn dùng Lcase("Chuỗi cần tìm") thử xem sao.

mình ko thạo VBA lắm chỉ biết chút ít, có thêm Ucase và Lcase vào dk =Ucase(txtTimkiem.Text) nhưng vẫn không thấy tìm dc chữ hoa ? liệu có phải viết thêm gì để nó nhận ko? mong bạn giúp sửa với?

 

[Hoàng Tuấn 868]

mình ko thạo VBA lắm chỉ biết chút ít, có thêm Ucase và Lcase vào dk =Ucase(txtTimkiem.Text) nhưng vẫn không thấy tìm dc chữ hoa ? liệu có phải viết thêm gì để nó nhận ko? mong bạn giúp sửa với?

Nếu sửa hết các chỗ viết tắt và gửi file lên thì mọi việc thật đơn giản.

 

[CHAOQUAY]

Mong các ACE sửa giúp mình đoạn code này để có thể tim kiếm dduocj cả chữ hoa khi gõ chữ thường. Xin cảm ơn !
Private Sub txtTimkiem_Change()
Dim arr(), kq, i As Long, a As Long
dk = txtTimkiem.Text 'gan dk cho text nhap vao
arr = Sheets("Khachhang").Range("B5:B1000").value
ReDim kq(1 To UBound(arr, 1), 1 To 1)
For i = 1 To UBound(arr, 1)
If arr(i, 1) Like "*" & dk & "*" Then 'so sanh ma hang voi tu khoa nhap vao
a = a + 1
kq(a, 1) = arr(i, 1)
End If
Next i
lsb = ""
lsb.Clear
lsb.List = kq ' gan tro lai listbox
End Sub

Nếu là tìm kiếm không phân biệt hoa thường thì bạn thêm "option compare text" xem sao

 

[SA_DQ]

Bạn tham khảo con macro này xem sao:

Private Sub tbHT_Change()    '!!!! GPE !!!!!!!'
Dim Arr(), KQ, i As Long, a As Long
Dim DK As String

'dk = txtTimkiem.Text 'gan dk cho text nhap vao ''
DK = Me!tbHT.Text

Arr = Sheets("CSDL").Range("C5:C1000").Value
ReDim KQ(1 To UBound(Arr, 1), 1 To 1)
For i = 1 To UBound(Arr, 1)
    If Arr(i, 1) Like "*" & DK & "*" Or UCase$(Arr(i, 1)) Like "*" & UCase$(DK) & "*" Then
            'So Sánh Mã Hàng Vói Tù Khoá Nhâp Vào  '
        a = a + 1
        KQ(a, 1) = Arr(i, 1)
    End If
Next i
'lsb = ""   '
'lsb.Clear  '
Me!lbDS.List = KQ ' gan tro lai listbox
End Sub

 

[xaydung.vig]

Bạn tham khảo con macro này xem sao:

Private Sub tbHT_Change()    '!!!! GPE !!!!!!!'
Dim Arr(), KQ, i As Long, a As Long
Dim DK As String

'dk = txtTimkiem.Text 'gan dk cho text nhap vao ''
DK = Me!tbHT.Text

Arr = Sheets("CSDL").Range("C5:C1000").Value
ReDim KQ(1 To UBound(Arr, 1), 1 To 1)
For i = 1 To UBound(Arr, 1)
    If Arr(i, 1) Like "*" & DK & "*" Or UCase$(Arr(i, 1)) Like "*" & UCase$(DK) & "*" Then
            'So Sánh Mã Hàng Vói Tù Khoá Nhâp Vào  '
        a = a + 1
        KQ(a, 1) = Arr(i, 1)
    End If
Next i
'lsb = ""   '
'lsb.Clear  '
Me!lbDS.List = KQ ' gan tro lai listbox
End Sub

Cảm ơn bạn rất nhiều !