下拉框选项

Question

    我想vba窗体里的ComboBox1的下拉框的选项决定ComboBox2的下拉框选项，比如ComboBox1选A的话ComboBox2里的下拉框里显示1，2，3、ComboBox1选B的话ComboBox2里显示4，5，6，
    我刚学vba呢
    哪位高手能帮个忙我，谢谢 

Answer 1

Private Sub Form_Load()
Combo1.AddItem "A"
Combo1.AddItem "B"
Combo1.ListIndex = 0
End SubPrivate Sub Combo1_Click()
Combo2.Clear
If Combo1.ListIndex = 0 Then
    Combo2.AddItem "1"
    Combo2.AddItem "2"
    Combo2.AddItem "3"
Else
    Combo2.AddItem "4"
    Combo2.AddItem "5"
    Combo2.AddItem "6"
End If
Combo2.ListIndex = 0
End Sub

Answer 2

窗口中加入两个combobox，不要改名，将下面代码拷贝到代码窗口
注意，这段代码要求两个combox有相同数量的项目。Private Sub Form_Load()
    With Combo1
        .AddItem "1"
        .AddItem "2"
        .AddItem "3"
        .AddItem "4"
        .AddItem "5"
    End With
    
    With Combo2
        .AddItem "abc"
        .AddItem "efg"
        .AddItem "sdfgdsg"
        .AddItem "gvgfvcx"
        .AddItem "sdfgdsz"
    End With
End SubPrivate Sub Combo1_Click()
    With Combo2
        .ListIndex = Combo1.ListIndex
    End With
End Sub

Answer 3

楼上误会了。楼主的需求是 Combo2 根据 Combo1 的选择改变所加载的列表项。比如 Combo1 是省份，可以选河南、河北等等。根据 Combo1 的选择，Combo2 中列出该省的各个地市。当然，还可以有 Combo3 列出所选地市的县级市和县。