将.AddItem与Excel VBA用户窗体中的不同组合框一起使用

Question

我有一个带有很多组合框的用户窗体。 我试图在初始化用户窗体时使用.AddItem，但没有成功。

到目前为止，这是我尝试过的：

Sub Userform_Initialize()
  Dim cCont As MSForms.ComboBox

  For Each cCont In Me.Controls
    cCont.AddItem "Item Added"
  Next cCont
End Sub

我通常会收到运行时错误13“类型不匹配”。 不知道这是否与我在用户窗体上的按钮有关。

如何遍历用户窗体并在每个组合框中使用.AddItem ？ 一旦获得有关如何执行此操作的代码，我会将其包装在If语句中，以仅将其添加到名称中带有某些单词的某些组合框中，如果这样做对上下文有所帮助。

提前致谢，

- 安东尼

Answer 1

我找到的向用户窗体添加控件的最佳方法是遵循此过程。

Dim NewComboBox as Control
Set NewComboBox = Me.Controls.Add("Forms.ComboBox.1")
    With NewComboBox
        'Inside of this part you can put .name or any other property in the
        'activex controls properties part, .left .top .width and .height determine the size of the box
        .Name = Whatever Name You Desire
    End With

将此放入您的userform_initialize（）事件中，您应该会很好。

Answer 2

安东尼，

您试图在窗体上的每个控件上调用AddItem方法。 但并非所有控件都提供AddItem方法。 您需要检查特定控件是否为组合框。 并且仅当控件为组合框时，才可以调用AddItem方法。

如何遍历用户窗体并在每个组合框中使用.AddItem？

目前尚不清楚您需要在哪里循环。 你可以再详细一点吗？

Answer 3

您的代码对我来说很好，可以在用户窗体中添加两个组合框。 我唯一能想到的就是由于某些原因未启用正确的引用。