我的ComboBox不显示我在VBA中添加的值

我试图添加选项到用户窗体中的combobox。 当我运行代码时,Excel不会给出任何错误,但是当用户窗体显示时,它不显示我之前添加到combobox的实体。 也就是说,当我单击combobox时,它不显示任何选项,只有一个空行,就好像没有项目被添加到它。

这是我正在使用的代码:

Private Sub UserForm_Initialize() ComboBox1.AddItem "xxx" ComboBox1.AddItem "yyy" ComboBox1.AddItem "zzz" End Sub 

我正在使用以下代码来调用macros中的用户窗体:

 UserForm.Show 

问题中给出的代码工作得很好。 在我的情况下,代码不起作用,因为我手动将这部分代码input到VBA中:

 Private Sub UserForm_Initialize() 

如果你让Excel为你创build这个模块,而不是自己编写,那么你的代码应该完美的工作。 Excel没有“初始化”作为默认的forms,所以我试着“激活”,它的工作。

要创build此模块,您必须执行以下步骤:

  1. 右键点击用户表单
  2. 点击查看代码
  3. 在上面你会看到两个类别你可以select,你应该select“用户窗体”和“激活”,完成这一步后,Excel必须添加一个新的模块到您的代码。
  4. 在这个模块中,你可以编写你想要的关于combobox内容的一切。

如果拼写不正确,则还应注意拼写框的拼写,否则可能无法看到combobox的内容。

确保您发布的代码段位于用户窗体中。

在VBA视图中右键单击用户表单并select“查看代码”。 这是代码的地方吗?

你确定用户表单被称为“UserForm”而不是“UserForm1”? “UserForm1”是默认的,类似于“ComboBox1”。

下面的作品适合我。

 'in the UserForm1 code Private Sub UserForm_Initialize() ComboBox1.AddItem "xxx" ComboBox1.AddItem "yyy" ComboBox1.AddItem "zzz" End Sub 

以下将显示表格。

 UserForm1.Show 

这是工作簿中的唯一forms吗? 创build一个新的,看看它是否做同样的事情。