Question

我在Excel文档中的用户窗体中遇到了Combobox的问题。组合框不会出现在用户窗体中，或者组合框保持空白，当我在其中输入任何字符时，项目列表会显示，但会出现2或3次，而不是仅出现一次。当我选择一个项目时，所选项目不会出现在框中。似乎Excel ^随机选择一个，无论我从列表中选择哪个项目，它总是相同的一个最终显示在框中。

任何人都可以帮我这个吗？非常感谢!!!

这是我使用的代码：

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

Answer 1

你有UserForm1_Initialize永远不会被调用，它必须是UserForm_Initialize（没有“1”）

Excel VBA Userform组合框问题

1 个答案: