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

【问题标题】：How to add items to a ComboBox from a Excel sheet row?如何将项目从 Excel 工作表行添加到 ComboBox？
【发布时间】：2020-03-13 18:48:44
【问题描述】：

我是 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'。

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

【问题讨论】：

标签： excel vba combobox

【解决方案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

【讨论】：

【解决方案2】：

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

【讨论】：

它不起作用，我得到一个新的执行错误'381'，其中列表没有明确定义。
这是您确实需要指定.Value 的时候之一，否则这很好。
谢谢，我把摘录剪得有点短-编辑-经验教训