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