Hỏi về listbox lọc bỏ dữ liệu trùng

Liên hệ QC

lamquang11

Thành viên chính thức
Tham gia
21/9/09
Bài viết
63
Được thích
3
Gởi ACE, giúp giùm vấn đề này nhé.
Xem file kèm.

Xin cám ơnUntitled.png
 

File đính kèm

  • New Microsoft Excel Worksheet.xlsx
    10.3 KB · Đọc: 15
Thêm 1 cách bạn có thể tham khảo
Cái List mà người ta dùng ở bài 1 là ComboBox thuộc Forms control chứ hổng phải ComboBox ActiveX đâu nha. Bạn cố tình "chế" lại kiểu khác, vậy đâu có được
Nếu bắt buộc phải là ComboBox như file bài 1 thì phải làm sao?
 
Cái List mà người ta dùng ở bài 1 là ComboBox thuộc Forms control chứ hổng phải ComboBox ActiveX đâu nha. Bạn cố tình "chế" lại kiểu khác, vậy đâu có được
Nếu bắt buộc phải là ComboBox như file bài 1 thì phải làm sao?
À ý em là tham khảo thôi đó thầy, chứ không phải theo bài của bạn đó.
 
Cái List mà người ta dùng ở bài 1 là ComboBox thuộc Forms control chứ hổng phải ComboBox ActiveX đâu nha. Bạn cố tình "chế" lại kiểu khác, vậy đâu có được
Nếu bắt buộc phải là ComboBox như file bài 1 thì phải làm sao?
Em thử thế này được không anh?

Private Sub UserForm_Initialize()
Dim sArr()
Dim i As Long, Dic1 As Object
sArr() = Sheet1.Range("b3", Sheet1.Range("b13").End(xlDown)).Resize(, 2).Value
Set Dic1 = CreateObject("Scripting.Dictionary")
For i = 1 To UBound(sArr, 1)
If Not Dic1.exists(sArr(i, 1)) Then Dic1.Add sArr(i, 1), ""
Next i
Me.ComboBox1.List = Application.Transpose(Dic1.keys)
End Sub
 
Cái này có các cách làm công thức thuần túy hoặc VBA nhưng thôi khuyên không dùng công thức vì làm chậm file Excel, anh dùng VBA.
Cách dùng VBA là tạo ra mảng, loại bỏ giá trị trùng (dùng Dic hay dùng phép so sánh Array), đổ mảng ra sheet rồi tạo Name. Name đó đưa vào Validation List là ok nhé.
 
Cái này có các cách làm công thức thuần túy hoặc VBA nhưng thôi khuyên không dùng công thức vì làm chậm file Excel, anh dùng VBA.
Cách dùng VBA là tạo ra mảng, loại bỏ giá trị trùng (dùng Dic hay dùng phép so sánh Array), đổ mảng ra sheet rồi tạo Name. Name đó đưa vào Validation List là ok nhé.
Vậy thì bạn giúp mình 1 vé nha, cám ơn nhiều
 

File đính kèm

  • New Microsoft Excel Worksheet.xlsm
    21.8 KB · Đọc: 27
Gởi ACE, giúp giùm vấn đề này nhé.
Xem file kèm.

Xin cám ơnView attachment 201470
Góp ý cho bạn:
1/ Nếu đã dùng Listbox thì nên sử dụng nó trên UserForm cho thuận tiện trong việc lựa chọn để nhập liệu hàng loạt.
2/ Nếu hỏi về Listbox với UserForm thì nên có tiêu đề đầy đủ đồng thời kèm theo một ít dữ liệu để có cái mà thử.
 
Web KT
Back
Top Bottom