更新基于另一个组合框的选择

问题描述：

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”

答

如果我得到它的正确，你需要编写改变事件的代码第一个组合框（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

答

内cc_Change() 使用该专用子：

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

更新基于另一个组合框的选择

相关推荐