如何从 Excel sheet 行向 ComboBox 添加项目？

Question

我是 VBA 宏世界的新手。我正在尝试创建一个包含多个 ComboBox 的用户表单。我知道一个项目一个项目的方法，但我试图从另一个 Excel sheet.

添加一整行

我尝试过的：

Private Sub UserForm_Initialize() 'initialize the user form
    Dim lRow As Long
    Worksheets("Data").Activate
    lRow = Cells(Rows.Count, 1).End(xlUp).Row

    ComboBox1.List = Sheets("Data").Range("B2:lRow").Value
End Sub

我得到了执行错误“1004”。

有人可以帮助我吗？干杯。

Answer 1

尝试ComboBox1.List = Sheets("Data").Range("B2:B" & lRow).Value

Answer 2

试试这个。您的语法略有偏差。 Range("B2:lRow") 不是有效范围。

并且您可以避免激活 sheet。

Private Sub UserForm_Initialize() 'initialize the user form
    Dim lRow As Long

    With Worksheets("Data")
        lRow = .Cells(Rows.Count, 1).End(xlUp).Row
        ComboBox1.List = .Range("B2:B" & lRow).Value
    End With

End Sub

如何从 Excel sheet 行向 ComboBox 添加项目？

How to add items to a ComboBox from a Excel sheet row?

excel

vba

combobox