Gán item filted trong cell lên combobox

[hadoan-pap]

Em chào mọi người!

Em muốn đưa 3 items như hình bên dưới lên combobox userform. Đây là 3 item có trong list filter ở ô A1 ạ.

Mọi người cho em xin đoạn code nhé.

Em xin cảm ơn nhiều!

 

[ducdoom]

Xin chào!
Gửi bạn tham khảo 1 code mình tham khảo từ Microsoft
Ở đây để lấy được danh sách duy nhất mình sử dụng phương pháp Advanced Filter
và thuộc tính .List của combobox để add item

Private Sub UserForm_Initialize()

    '// code tham khao tu Microsoft
    '// https://docs.microsoft.com/en-us/office/vba/excel/concepts/controls-dialogboxes-forms/add-a-unique-list-of-values-to-a-combo-box
    
    '// khai bao bien workbook, worksheet co ban
    Dim wb As Workbook, ws As Worksheet
    Set wb = Application.ActiveWorkbook
    Set ws = wb.ActiveSheet
    
    '// xac dinh vung du lieu chua cac item
    Dim itemsRange As Range
    Set itemsRange = ws.Range(ws.Range("A1"), ws.Range("A1000").End(xlUp))
    
    '// Su dung advanced filter de lay danh sach item duy nhat
    '// danh sach duoc luu tam thoi tai o "X1"
    itemsRange.AdvancedFilter Action:=xlFilterCopy, _
                                CopyToRange:=ws.Range("X1"), _
                                Unique:=True
    
    '// su dung array de luu danh sach item
    Dim itemsArray As Variant
    itemsArray = ws.Range(ws.Range("X2"), ws.Range("X1000").End(xlUp)).Value
    
    '// xoa danh sach tam thoi tai o "X1"
    ws.Range(ws.Range("X1"), ws.Range("X1000").End(xlUp)).ClearContents
    
    '// add item vao "Combobox1" bang array
    ComboBox1.List = itemsArray

End Sub

 

[hadoan-pap]

Xin chào!
Gửi bạn tham khảo 1 code mình tham khảo từ Microsoft
Ở đây để lấy được danh sách duy nhất mình sử dụng phương pháp Advanced Filter
và thuộc tính .List của combobox để add item

Private Sub UserForm_Initialize()

    '// code tham khao tu Microsoft
    '// https://docs.microsoft.com/en-us/office/vba/excel/concepts/controls-dialogboxes-forms/add-a-unique-list-of-values-to-a-combo-box
    
    '// khai bao bien workbook, worksheet co ban
    Dim wb As Workbook, ws As Worksheet
    Set wb = Application.ActiveWorkbook
    Set ws = wb.ActiveSheet
    
    '// xac dinh vung du lieu chua cac item
    Dim itemsRange As Range
    Set itemsRange = ws.Range(ws.Range("A1"), ws.Range("A1000").End(xlUp))
    
    '// Su dung advanced filter de lay danh sach item duy nhat
    '// danh sach duoc luu tam thoi tai o "X1"
    itemsRange.AdvancedFilter Action:=xlFilterCopy, _
                                CopyToRange:=ws.Range("X1"), _
                                Unique:=True
    
    '// su dung array de luu danh sach item
    Dim itemsArray As Variant
    itemsArray = ws.Range(ws.Range("X2"), ws.Range("X1000").End(xlUp)).Value
    
    '// xoa danh sach tam thoi tai o "X1"
    ws.Range(ws.Range("X1"), ws.Range("X1000").End(xlUp)).ClearContents
    
    '// add item vao "Combobox1" bang array
    ComboBox1.List = itemsArray

End Sub

Cảm ơn bạn rất nhiều