ExcelVBA实现窗体二级下拉菜单

1FOR i=1 to 5 combobox1.add sheets("定义的名称").cells(1,i)next2select case combobox1.valuecase "上装"for i=1 to 100 if sheets("定义的名称").cells(i,1)="" then exit for combobox2.add sheets("定义的名称").cells(i,1)nextcalse "下装"for i=1 to 100 if sheets("定义的名称").cells(i,2)="" then exit for combobox2.add sheets("定义的名称").cells(i,2)next......