vba - 根据另一个组合框的选择更新组合框

Question

在用于应用程序的 VB 中，我有以下代码：

Private Sub cc_Change()

End Sub

Private Sub UserForm_Initialize()
    cc.AddItem "op1"
    cc.AddItem "op2"
    cc.AddItem "op3"
    cc.AddItem "op4"

End Sub

以上工作。

我想进一步开发这个，所以当你点击“op1”你会得到相关的选项，这是我到目前为止的代码；

Private Sub combo2_Change()
    If cc = "op1" Then
    Me.combo2.RowSourceType = "Value List"
    Me.combo2.RowSource = "a; b; c"
    Else
    Me.combo2.RowSourceType = "Value List"
    Me.combo2.RowSource = "default"
    End If
End Sub

我只列出了“op1”，因为它可以转让。请你帮帮我，当我选择“op1”时，我没有得到值“a”“b”或“c”

Answer 1

如果我理解正确，您需要为更改其更改事件中的第一个组合框 (cc) 的事件编写代码。尝试执行以下操作：

Private Sub cc_Change()
    If cc = "op1" Then
        Me.combo2.RowSourceType = "Value List"
        Me.combo2.RowSource = "a; b; c"
    Else
        Me.combo2.RowSourceType = "Value List"
        Me.combo2.RowSource = "default"
    End If
End Sub

Answer 2

在cc_Change() 使用这个的私有子中：

If cc = "op1" Then
        combo2.AddItem "a"
Else
        combo2.AddItem "default"
End If