VBA组合框不显示值

Question

试图将ComboBox与VBA一起使用，并且当您单击向下箭头时，它只显示1空行。我以前从未使用过ComboBox，并且仍然是VBA的初学者。

Private Sub ComboBoxT_Change() 
    ComboBoxT.AddItem "apple" 
    ComboBoxT.AddItem "orange" 
    ComboBoxT.AddItem "banana" 
End Sub 

Answer 1

像Saagar说，他们的代码是当前写入方式，它只会增加项目到您的组合框如果在组合框的变化。我会用看起来像这样的代码：

Private Sub UserFormName_Activate() 
    ComboBoxT.AddItem "apple" 
    ComboBoxT.AddItem "orange" 
    ComboBoxT.AddItem "banana" 
end sub 

实现这一目标最简单的方法是在用户形式的创造者，用户窗体框架上双击。这应该显示你将要使用的代码，然后从顶部下拉栏（第一个可能会说“UserForm”或“General”），你可以选择第一个“Userform”和第二个“激活” 。这应该给你一个开始的好地方，你想添加到组合框的项目应该就在那里，随时可以开始。希望这有助于:)

Answer 2

您选择将项目添加到组合框的事件只会在组合框发生更改时触发。您需要输入这段代码才能在ComboBox的另一个事件中添加新项目，这是在您想使用ComboBox之前触发的。

大多数情况下，它是在Form_Load事件中完成的，因此您可以在Form完全加载时在ComboBox中提供项目。

尝试以下

Private Sub Form_Load() 
    ComboBoxT.AddItem "apple" 
    ComboBoxT.AddItem "orange" 
    ComboBoxT.AddItem "banana" 
End Sub