完整代码如下:
Private Sub ComboBox1_Change()
If ComboBox1 = "AA" Then
ComboBox2.Clear
ComboBox2.AddItem "EE"
ComboBox2.AddItem "FF"
Else
ComboBox2.Clear
ComboBox2.AddItem "CC"
ComboBox2.AddItem "EE"
End If
End Sub
Private Sub UserForm_Initialize()
ComboBox1.AddItem "AA"
ComboBox1.AddItem "BB"
ComboBox2.AddItem "CC"
ComboBox2.AddItem "DD"
ComboBox2.AddItem "EE"
ComboBox2.AddItem "FF"
End Sub
供你参考!