Gửi lại bạn nha. Mình nghĩ bạn nên học cơ bản trước cách sử dụng các control là ok thôi. cái này cũng đơn giản thôi mà.
Cảm ơn bạn nha, bạn sửa lại theo mẫu này dùm mình được không?
Bạn chỉnh lại hết code của tui thì có nghĩa bạn hiểu được và có thể sửa theo ý của bạn cho phù hợp mục đích. nên mấy cái phần còn lại tui nghĩ bạn làm được. chịu khó mày mò là ok thôi.
Mình chỉ biết cơ bản thế này thôi, còn CODE thì yếu lắm. Nhờ bạn chỉ cho mình chỗ nghiên cứu với, nói sơ lược cũng được
1/ Trong sự kiện textbox_change, khi giá trị thay đổi thì filter cái mảng listbox => ra 1 mảng mới, dùng hàm filter2darray. xong rồi gán mảng kết quả đó vào lại listbox.
Private Sub CommandButton1_Click()
Dim addme As Range
Dim x As Integer
Set addme = Sheet1.Cells(Rows.Count, 3).End(xlUp).Offset(1, 0)
For x = 0 To Me.lstSelector.ListCount - 1
If Me.lstSelector.Selected(x) Then
addme = Me.lstSelector.List(x)
addme.Offset(0, 1) = Me.lstSelector.List(x, 1)
addme.Offset(0, 2) = Me.lstSelector.List(x, 2)
addme.Offset(0, 3) = Me.lstSelector.List(x, 3)
addme.Offset(0, 4) = Me.lstSelector.List(x, 4)
addme.Offset(0, 5) = Me.lstSelector.List(x, 5)
Set addme = addme.Offset(1, 0)
End If
Next x
For x = 0 To Me.lstSelector.ListCount - 1
If Me.lstSelector.Selected(x) Then Me.lstSelector.Selected(x) = False
Next x
End Sub
Tham khảo File trong bài viết của Link sau:
Mình thấy có phần tìm kiếm ** mà không biết nên viết code thế nào cho đúng.
