Question

ExcelVBA实现窗体二级下拉菜单

之前都是用数据有效性做了，但是现在想改成窗体，下拉列表的内容都存在工作表“定义的名称”中（如图2），想要实现的是：
一级分类包含：上装、下装、配饰、首饰、套装
二级分类是每个一级分类所对应的子分类，比如一级分类选择套装，二级分类对应西服套装、运动套装
另外二级分类的内容以后可能会增加的
请大神们帮帮忙，指点一下代码怎么写，最好每一句代码都加个注释解释一下，万分感谢

图1

图2





Answer 1

1
FOR i=1 to 5
combobox1.add sheets("定义的名称").cells(1,i)

next

2
select case combobox1.value
case "上装"
for i=1 to 100
if sheets("定义的名称").cells(i,1)="" then exit for
combobox2.add sheets("定义的名称").cells(i,1)
next
calse "下装"
for i=1 to 100
if sheets("定义的名称").cells(i,2)="" then exit for
combobox2.add sheets("定义的名称").cells(i,2)
next
..
.
.
.
.