VBA：無法將項目添加到組合框

Question

我正在嘗試通過VBA將一些項目添加到下拉列表中。 每當我設置組合變量時，都會出現13錯誤。 我沒有從libro表中將combo變量設置為combobox，因此無法使用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