Tổng hợp cách gán thuộc tính Rowsource của combobox

Cách 1: gán từng item cho ComboBox1 bằng đoạn code dưới đây:

With ComboBox1
    .AddItem "Item 1"
    .AddItem "Item 2"
    .AddItem "Item 3"
    .AddItem "Item 4"
End With

Cách 2: Khai báo Rowsource trong Properties của ComboBox, chọn ComboBox1 trong cửa sổ Properties của ComboBox ta khai báo tại dòng Rowsource. Ví dụ: Nhaplieu!B13:B20 trong đó Nhaplieu là tên sheet. Cách 3: Để làm cách này đầu tiên các bạn khai báo 2 biến Arr và lr_dongcuoi và code cho ComboBox như sau:

    Dim lr_SoPhieu As Long
    Dim Arr
    lr_dongcuoi = ThisWorkbook.Worksheets("NhapLieu").Columns("B").Find("*", SearchDirection:=xlPrevious, SearchOrder:=xlByRows, LookIn:=xlValues).Row
    Arr = ThisWorkbook.Worksheets("NhapLieu").Range("B12:B" & lr_SoPhieu).Value
    With ComboBox1
        .List = Arr
    End With

Trong đó NhapLieu là tên sheet, với cách này dữ liệu sẽ tự động cập nhật khi bạn có thêm nhiều dòng dữ liệu muốn đưa vào ComboBox, trong ví dụ này mình thêm dữ liệu tại cột B sheet NhapLieu bắt đầu từ dòng B12 cho đến dòng cuối của cột B có chứa dữ liệu ^-^ Chúc bạn thành công!