Question

我正在尝试通过VBA将一些项目添加到下拉列表中。每当我设置组合变量时，我得到13错误。我不能将组合变量设置为libro工作表中的组合框，因此我无法使用combobox.additem属性，如何设置直线？

Sub Prueba()
Dim libro As Worksheet
Dim combo As ComboBox

Set libro = ActiveWorkbook.Sheets("Tabla Paquetes")
Set combo = libro.Shapes("ComboBox1")

    With combo
        .AddItem "Paris"
        .AddItem "New York"
        .AddItem "London"
    End With

End Sub

Answer 1

您的组合框不是形状，因此您的代码将无法在Shapes集合中找到它。

相反，请执行以下操作：

Sub Prueba()

    Dim libro As Worksheet
    Dim combo As ComboBox

    Set libro = ActiveWorkbook.Sheets("Tabla Paquetes")
    'Set combo = libro.Shapes("ComboBox1")

    With ComboBox1 ' assuming the name of your control is "ComboBox1"
        .AddItem "Paris"
        .AddItem "New York"
        .AddItem "London"
    End With

End Sub

VBA：无法将项目添加到组合框中

1 个答案: