Private Sub TextBox1_KeyUp(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer) 'Khi txt6 dung phim len or xuong
If KeyCode = 40 Or KeyCode = 38 Then Exit Sub 'Khi nhan phim mui ten xuong or len
If KeyCode = 13 Then 'Phim tro lai/enter
Me.TextBox1.SetFocus 'Setfocus cho txt6
Exit Sub
End If
'-----------------------------------'Loc du lieu tu listbox theo txt6
Dim Lr As Integer 'Khai bao bien
Dim i, a As Integer
Dim dk1 As String
Dim kq, dk2
Const rt As Byte = 1 'Tieu de dong 1 'Giu tieu de dong 1
dk1 = UCase(TextBox1.Text) 'dua toan bo chu Hoa thanh chu thuong
dk2 = UniConvert(dk1, "Telex") 'Unicode
With ListBox1
.Clear ' xoa toan bo listbox
.ColumnCount = 7 ' Chia listbox thnh 7 cot
'.ColumnWidths = "20;90;60;60;60;60;0" 'Chia do dong cua cac cot trong listbox
'.ListStyle = fmListStyleOption
.MultiSelect = False 'Chon nhieu dong trong listbox là false
ReDim kq(1 To UBound(Arrkq), 1 To 7) ' Khai bao lai mang (kq) theo mang da gan vao listbox 'So cot là:7
For i = LBound(Arrkq, 1) To UBound(Arrkq, 1) Step 1 'Cho i chay tu ... den ...
If InStr(1, UCase(Arrkq(i, 2)), dk2) Then 'Tim cac ky tu danh vao textbox(txt_tenhang.value) trong mang ArrKQ()
a = a + 1 'Tim theo dk2 trong cot 2 mang ArrKQ
kq(a, 1) = Arrkq(i, 1) 'Gan ket qua vao mang kq
kq(a, 2) = Arrkq(i, 2)
kq(a, 3) = Arrkq(i, 3)
kq(a, 4) = Arrkq(i, 4)
kq(a, 5) = Arrkq(i, 5)
kq(a, 6) = Arrkq(i, 6)
kq(a, 7) = Arrkq(i, 7)
End If
Next i
ListBox1.List = kq 'dua ket qua loc vao listbox
End With
End Sub