Question

excel vba 如何实现combobox菜单联动

我有一个分类
在窗体上建了三个combobox,
但是combobox的列表是通过下面这种方式获取的
Dim r As Range
Dim m As Long
Set r = Range("a2")
m = Range("a65536").End(xlUp).Row
If ComboBox1.Value = "" Then
Do While r.Row <= m
If r.Value <> "" Then ComboBox1.AddItem r.Value
Set r = r.Offset(1, 0)
Loop
请问有什么好的方法实现联动
添加用我的方法没有问题，主要是联动
combobox1选择后，如何让combobox2显示出选择类别的内容，
如果你有邮箱，我可以把源程序发给你

Answer 1

Dim aim As Worksheet
Set aim = Sheets(1)
Dim rownum As Integer
rownum = aim.Range("A2").CurrentRegion.Rows.Count
For i = 2 To rownum
ComboBox1.AddItem aim.Cells(i, 1) '添加
next i
'这段代码我试过好几次，遇到类此问题我常用这段代码，绝对没问题。