bạn diemhuyenanh ơi bạn có thể giải thích giúp mình ở giai doạn này ko, mình cố gắng làm đến đây thì bị lỗi rùi, bạn có thể giải thich giúp mình những đoạn code thực hiện " nhập vào mã số khách hang nhấn enter sẽ hiện lên thông tin khách hang. click "All" hiện toàn bộ danh sách khác hang, sau đó click vào khách hang bất kỳ trong listbox sẽ tự động load thông tin về khách hang đó." được ko bạn, cảm ơn ban
*********************
Private Sub CmdAll_Click()
Dim Rng(), LastRow As Long, i As Long
LastRow = Worksheets("Datalist").Range("A65536").End(xlUp).Row
Rng = Worksheets("Datalist").Range("A2:B" & LastRow).Value
With UserForm1
.LtBMakh.ColumnCount = 2
.LtBMakh.ColumnWidths = ("300,200")
.LtBMakh.List = Rng
End With
End Sub
**************************************
Private Sub CommandButton1_Click()
MaKH.Show
End Sub
***********************************
Private Sub LtBMakh_Click()
With UserForm1
If .LtBMakh.ListCount < 1 Then Exit Sub
.txtMaSo = .LtBMakh.List(.LtBMakh.ListIndex, 0)
.txtHovaten.SetFocus
End With
txtMaSo_AfterUpdate
End Sub
******************************************
Private Sub txtMaSo_AfterUpdate()
Dim Rng As Range, Cl As Range
Set Rng = Worksheets("nguonttkh").Range([B9], [B9].End(xlDown))
Set Cl = Rng.Find(UserForm1.txtMaSo, , xlValues, xlWhole)
If Not Cl Is Nothing Then
sRow = Cl.Row
With UserForm1
.txtSoTT = Cl.Offset(, -1)
.txtHovaten = Cl.Offset(, 1)
.txtTencongty = Cl.Offset(, 2)
.txtNhucau = Cl.Offset(, 3)
.txtTennguoinhan = Cl.Offset(, 4)
.txtDiaChiXH = Cl.Offset(, 5)
.txtDienThoai = Cl.Offset(, 6)
.txtNgaysinh = Format(Cl.Offset(, 8), "dd/mm/yyyy")
.txtEmail = Cl.Offset(, 7)
.txtGHICHU = Cl.Offset(, 9)
.txtghichu2 = Cl.Offset(, 10)
End With
Else
MsgBox "KHONG CO MA KHACH HANG NAY"
End If
End Sub
