无法在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