VBA Excel thực hành Bài 5 - Tìm kiếm trong VBA, Form tìm kiếm dữ liệu trong VBA

Tiếp tục series các video về tự học VBA trong bài này hướng dẫn các bạn cách tạo một form VBA có thể tìm kiếm dữ liệu từ bảng tính và hiện kết quả tìm kiếm lên form VBA. Chi tiết mời bạn đọc xem video bên dưới:

Code minh họa trong Video:

Code cho nút tìm kiếm:

 Private Sub Userform_intialize() '// thiet lap form de tim kiem
Me.txtSearch.SetFocus
End Sub

Private Sub btnSearch_Click() '// tim kiem du lieu
On Error Resume Next
Me.ListBox1.Clear
Me.ListBox1.AddItem Sheet1.Cells(1, "A")
For B = 2 To 6
Me.ListBox1.List(ListBox1.ListCount - 1, B - 1) = Sheet1.Cells(1, B)
Next B
Me.ListBox1.Selected(0) = True
Dim i As Long
For i = 2 To Application.WorksheetFunction.CountA(Sheet1.Range("A:A"))
For x = 1 To 6
a = Len(Me.txtSearch.Text)
If Left(Sheet1.Cells(i, x).Value, a) = Me.txtSearch.Text And Me.txtSearch.Text <> "" Then
Me.ListBox1.AddItem Sheet1.Cells(i, 1).Value
For c = 1 To 6
Me.ListBox1.List(ListBox1.ListCount - 1, c) = Sheet1.Cells(i, c + 1).Value
Next c
End If
Next x
Next i
End Sub

Code đưa dữ liệu từ ô ListBox sang TextBox

Private Sub ListBox1_Click()
On Error Resume Next
Me.txtMa.Text = ListBox1.List(ListBox1.ListIndex, 0)
Me.txtDate.Text = ListBox1.List(ListBox1.ListIndex, 1)
Me.txtTen.Text = ListBox1.List(ListBox1.ListIndex, 2)
Me.txtNgaysinh.Text = ListBox1.List(ListBox1.ListIndex, 3)
Me.txtNghenghiep.Text = ListBox1.List(ListBox1.ListIndex, 4)
Me.txtDiachi.Text = ListBox1.List(ListBox1.ListIndex, 5)
End Sub