Tìm kiếm nhiều lần kết hợp Textbox và Listbox

[letienmai]

Kính gửi: các anh/chị
Không biết chủ đề này có ai thảo luận chưa nên xin phép Admin cho mình được đăng đàn nhờ giúp đỡ, cụ thể
- Mình muốn tìm kiếm trên danh sách họ tên trên Listbox từ Textbox (Hiện tại phần này mình đã làm được xin gửi file đính kèm)
- Tuy nhiên hiện tại mình chỉ nghĩ ra được code mỗi lần tìm kiếm chỉ được một người, không tiếp tục chọn được người khác
- Để rõ hơn mình xin phép gửi đường link video để mọi người xem dễ hiểu hơn (

)
Theo video code làm được những việc là:
+ Gõ ký tự ngẫu nhiên hiện ra giá trị gợi ý
+ Người dùng Tick vào để chọn một giá trị
+ Xóa dữ liệu trong textbox và gõ tìm tên người khác
+ Sau đó Tick chọn và cộng dồn danh sách các nhân sự được chọn.
Mình đang bị bí khi chọn nhân sự khác thì xóa luôn dữ liệu đã chọn
Rất mong nhận được sự tư vấn, giúp đỡ
Xin chân thành cám ơn và xin phép mời cốc cà phê ạ.

 

[letienmai]

Thay sub Loc

Option Explicit
Option Compare Text

Sub loc()
  Dim Dulieu(), Dic As Object, iKey, k&, iD&, i, c&

  Dulieu = Sheet1.Range("E3:E51").Value
  Set Dic = CreateObject("scripting.dictionary")
  iD = detnhap.ListBox1.ListCount
  For i = 0 To iD - 1
    If detnhap.ListBox1.Selected(i) = True Then
      Dic.Item(detnhap.ListBox1.List(i)) = ""
    End If
  Next i
  Call an
  If Dic.Count > 0 Then
    For Each iKey In Dic.keys
      detnhap.ListBox1.AddItem iKey
      detnhap.ListBox1.Selected(k) = True
      k = k + 1
    Next
  End If
 
  c = 1
  For i = 1 To UBound(Dulieu)
      If Dulieu(i, c) <> "" Then
          If TV(Dulieu(i, c)) Like TV("*" & detnhap.txttencn.Value & "*") Then
            If Dic.exists(Dulieu(i, c)) = False Then
              detnhap.ListBox1.AddItem Dulieu(i, c)
            End If
          End If
      End If
    Next
End Sub

Kính chào anh @HieuCD cùng các anh/chị trên diễn đàn
1/ Hôm trước anh Hiếu có giúp em đoạn code rất hay về việc tìm kiếm nhiều lần và lưu lại lịch sử của mỗi lần chọn trên ListBox (Sheet 1_COLUMN). Tuy nhiên trong Data lúc đó em chỉ lưu một cột là Họ Tên, nay vì yêu cầu công việc em có phát sinh thêm các 03 cột nữa em có tự sửa lại code để mở rộng thêm cho phạm vi 04 cột nhưng em chỉ mò mẫm được code để tìm kiếm nhưng khi Click chọn thì nó không Select dòng đã được chọn để tìm kiếm cho các lần tiếp theo như ở Sheet 1_COLUMN;
2/ Thật sự em cũng đã tự thân vận động viết và test rất nhiều lần và rất nhiều ngày nhưng do kiến thức còn hạn hẹp và ít ỏi nên không biết xử lý ở đoạn nào và sai ở đâu;
3/ Em rất mong nhận được sự trợ giúp từ các anh/chị (Em có đính kèm file và dữ liệu ở Sheet MULTI_COLUMN ạ).
Thật lòng biết ơn mọi sự giúp đỡ ạ.
Trân trọng !

 

[dung_an]

Làm thế nào trong properties vba vừa là textbox vừa là combobox như hình gửi kèm theo

 

[Maika8008]

Nói với trời đất thinh không

 

[ptm0412]

Nói với trời đất thinh không

Khỏi cần file. Loại trời sinh là combobox, tên cha mẹ đặt cho là TextboxAbc.

 

[namvu230397]

Làm thế nào trong properties vba vừa là textbox vừa là combobox như hình gửi kèm theo

Là combobox nhưng tên là textbox thôi bạn

 

[TH2]

Làm thế nào trong properties vba vừa là textbox vừa là combobox như hình gửi kèm theo
View attachment 289362

Ở vị trí name, bạn nhập: TextBoxCuaTui <-- là thành Textbox thôi, hoặc là gõ HopSoanThaoCuaTui
Túm lại, nó vẫn luôn là combobox, tên chỉ là do người dùng đặt