Excel VBA ComboBox2 未获取正确的内容

Question

我对组合框的内容有疑问。在我的用户表单上，有 3 个组合框。 根据从组合框 1 中选择的项目，组合框 2 应显示集 1 或集 2。

组合框 3 的内容也会发生同样的情况，这取决于从组合框 1 和 2 中选择的项目的组合。

但是，我正在运行遇到组合框 2 的问题，组合框 2 始终由集合 2 填充，即使我选择组合框 1 中应在第二个组合框中生成集合 1 的项目。

这是我使用的代码：

Private Sub UserForm_Initialize()
    With ComboBox1
        .Clear
        .AddItem "In contrast"
        .AddItem "Eng?"
        .AddItem "Trillers"
        .AddItem "Natuur(lijk)"
        .AddItem "Muziektrafiek"
    End With

    If ComboBox1.Value = "In contrast" Then
        GoTo LineComboBox1Set1
    End If

    If ComboBox1.Value = "Eng?" Then
        GoTo LineComboBox1set2
    End If

    If ComboBox1.Value = "Trillers" Then
        GoTo LineComboBox1set2
    End If

    If ComboBox1.Value = "Natuur(lijk)" Then
        GoTo LineComboBox1set2
    End If

    If ComboBox1.Value = "Muziektrafiek" Then
        GoTo LineComboBox1set2
    End If


LineComboBox1Set1:
     With ComboBox2
        .Clear
        .AddItem "Op verkenning"
        .AddItem "Gehoord? Gezien?"
        .AddItem "On stage"
        .AddItem "Creabende"
        .AddItem "Ingeblikt"
     End With

LineComboBox1set2:
     With ComboBox2
        .Clear
        .AddItem "Op verkenning"
        .AddItem "Gehoord? Gezien?"
        .AddItem "On stage"
        .AddItem "Creabende"
        .AddItem "Ingeblikt"
        .AddItem "Speak up"
        .AddItem "In de kijker"
    End With

任何人都可以帮我解决这个问题吗？

非常感谢！

亲切的问候， 马克

Answer 1

它会起作用，因为当您使用 goto 语句时您的代码不会结束。即，您将代码发送到 LineComboBox1set1，代码执行该代码，然后继续运行每一行代码，因为没有什么可以阻止它！

快速修复只是在每个“End With”之后添加“Exit Sub”，但如果这是我的代码，我会使用 SELECT CASE 开关重构它，即

SELECT CASE ComboBox1.Value
     Case "In contrast"
           With ComboBox2
                Etc.....
           End With
     Case "Eng?", "Thriller" and so on
           With ComboBox2
                Stuff for set 2
           End With
  End Select