2010-04-14 9 views
0

Excel 문서의 Userform에서 콤보 상자에 문제가 있습니다. 콤보 상자가 userform에 나타나지 않거나 콤보 상자가 비어있는 상태에서 아무 문자 나 입력하면 항목 목록이 나타나지만 단 한 번이 아니라 2 ~ 3 번 나타납니다. 항목을 선택하면 선택한 항목이 상자에 표시되지 않습니다. Excel ^이 무작위로 선택하는 것처럼 보이며 목록에서 선택한 항목이 항상 상자에 표시되는 것과 같습니다.Excel VBA Userform Combobox 문제

아무에게도 도움이 될 수 있습니까? 고마워요 !!!

이 내가 사용하는 코드입니다 :

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 
+0

는 존재하는 모든 코드가 있다는 것을입니까? 귀하의 정확한 코드를 내 자신의 userform 모듈에 복사했고, 문제없이 실행했습니다. –

+0

안녕하세요, 문제가 이미 해결되었습니다. 감사! Marc – Marc

답변

0

당신은 호출되지 얻을 않습니다 UserForm1_Initialize을 가지고, 그것은 UserForm_Initialize해야합니다 (더 "1")

+0

고마워, 알렉스, 그 트릭을 했어! 친절하게, 마크 – Marc