Excel VBA Userform組合框問題

我在Excel文檔的用戶窗體中遇到Combobox問題。組合框或者不出現在用戶窗體中，或者組合框保持空白，並且當我在其中輸入任何字符時，出現項目列表，但出現2到3次，而不是一次。當我選擇一個項目時，所選項目不會出現在框中。看起來好像Excel ^隨機選取一個，並且我從列表中選擇哪個項目，它始終是最後顯示在框中的那個項目。Excel VBA Userform組合框問題

任何人都可以幫助我解決這個問題嗎？非常感謝！！！

這是我使用的代碼：

Private Sub ComboBox1_Change() 
    Select Case ComboBox1.Text 
     Case "Een nieuwe start" 
     Case "Alles heeft zijn tijd" 
     Case "De wereld aan je voeten" 
     Case "Een levend boek" 
     Case "Drempels" 
     Case "Kerstmis" 
     Case "Confituur of choco" 
     Case "Hoe groot is de hemel?" 
     Case "Ongelovige Thomas" 
     Case "Feesten" 
     Case "Er is er één jarig!" 
     Case "Eén van hart" 
     Case "Ervoor gaan" 
     Case "Groen gras" 
     Case "RELatie" 
     Case "Vele plaatjes" 
     Case "Iedereen fan" 
     Case "Schattenjacht" 
     Case "Lichtbakens" 
     Case "Rijke Luis" 
     Case "Hemel op aarde" 
     Case "Op bezoek" 

     Case Else 
    End Select 
End Sub 

Private Sub UserForm1_Initialize() 
     ComboBox1.Clear 
     ComboBox1.AddItem "Een nieuwe start" 
     ComboBox1.AddItem "Alles heeft zijn tijd" 
     ComboBox1.AddItem "De wereld aan je voeten" 
     ComboBox1.AddItem "Een levend boek" 
     ComboBox1.AddItem "Drempels" 
     ComboBox1.AddItem "Kerstmis" 
     ComboBox1.AddItem "Confituur of choco" 
     ComboBox1.AddItem "Hoe groot is de hemel?" 
     ComboBox1.AddItem "Ongelovige Thomas" 
     ComboBox1.AddItem "Feesten" 
     ComboBox1.AddItem "Er is er één jarig!" 
     ComboBox1.AddItem "Eén van hart" 
     ComboBox1.AddItem "Ervoor gaan" 
     ComboBox1.AddItem "Groen gras" 
     ComboBox1.AddItem "RELatie" 
     ComboBox1.AddItem "Vele plaatjes" 
     ComboBox1.AddItem "Iedereen fan" 
     ComboBox1.AddItem "Schattenjacht" 
     ComboBox1.AddItem "Lichtbakens" 
     ComboBox1.AddItem "Rijke Luis" 
     ComboBox1.AddItem "Hemel op aarde" 
     ComboBox1.AddItem "Op bezoek" 
     ComboBox1.Text = ComboBox1.List(0) 
End Sub

來源

2010-04-14 Marc

是，所有的代碼，目前的？我將你的確切代碼複製到我自己的用戶表單模塊中，並且順利運行。 – 2010-04-14 18:29:46

嗨，問題已經解決！謝謝！ Marc – Marc 2010-04-16 13:41:13

你有UserForm1_Initialize這將永遠不會被調用，它必須是UserForm_Initialize（沒有「1」）

來源

2010-04-14 19:19:39

謝謝亞歷克斯，那就是訣竅！親切的問候， Marc – Marc 2010-04-16 10:09:14

Excel VBA Userform組合框問題

回答

相關問題