excel - 如何将项目从 Excel 工作表行添加到 ComboBox？

Question

我是 VBA 宏世界的新手。我正在尝试创建一个包含多个 ComboBox 的用户表单。我一个接一个地知道一个项目的方法，但我试图从另一个 Excel 工作表中添加一整行。

我试过的:

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

尝试这个。你的语法有点不对劲。 Range("B2:lRow")不是有效范围。

您可以避免激活工作表。

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