excel - 无法将项目添加到vba excel中的组合框(表单控件)

Question

我在 sheet1 上有几个 ComboBox(表单控件)。我想循环并填充它们。没有任何反应，没有错误，或者每个组合框的列表中没有项目。我使用这段代码:

Sub cmbBox()
    Dim ctrl As Shape
    For Each ctrl In Sheet1.Shapes
        If ctrl.Type = msoOLEControlObject Then
            ctrl.AddItem "Done"
            ctrl.AddItem "Not Done"
        End If
    Next
End Sub

Answer 1

您可以直接循环DropDowns(这就是表单控件“ComboBoxes”的调用方式)，而不是循环所有Shapes ...

Option Explicit

Public Sub PopulateCombos()
    Dim dd As DropDown
    For Each dd In Sheet1.DropDowns
        dd.AddItem "Done"
        dd.AddItem "Not Done"
    Next dd
End Sub