Excel VBA用户表单组合框问题答案

【问题标题】：Excel VBA Userform Combobox problemExcel VBA用户表单组合框问题
【发布时间】：2011-02-07 22:22:41
【问题描述】：

我在 Excel 文档中的用户窗体中使用组合框时遇到问题。组合框要么不出现在用户窗体中，要么组合框保持空白，当我在其中输入任何字符时，项目列表会出现，但会出现 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

【问题讨论】：

这就是所有的代码吗？我将您的确切代码复制到我自己的用户表单模块中，并且运行顺利。
您好，问题已经解决！谢谢！马克

标签： excel vba combobox items

【解决方案1】：

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

【讨论】：