软件:excel
版本: 2007
若想在表单的下拉选单新增项目
因为下拉选单很多
下面这段
只要有符合吃的就 加入" "跟素食
符合类型的加入"直系亲属","配偶" ,"朋友(含旁系亲属"
我下面这样写很长
不知道有没有更简短的写法?
Private Sub UserForm_Activate()
'新增荤素食
员工吃.AddItem " "
员工吃.AddItem "素食"
吃一.AddItem " "
吃一.AddItem "素食"
吃二.AddItem " "
吃二.AddItem "素食"
吃三.AddItem " "
吃三.AddItem "素食"
吃四.AddItem " "
吃四.AddItem "素食"
'新增类型
类型一.AddItem "直系亲属"
类型一.AddItem "配偶"
类型一.AddItem "朋友(含旁系亲属)"
类型二.AddItem "直系亲属"
类型二.AddItem "配偶"
类型二.AddItem "朋友(含旁系亲属)"
类型三.AddItem "直系亲属"
类型三.AddItem "配偶"
类型三.AddItem "朋友(含旁系亲属)"
类型四.AddItem "直系亲属"
类型四.AddItem "配偶"
类型四.AddItem "朋友(含旁系亲属)"
End Sub

可设个变量带入array()，combobox.list指定该变量如name内有固定出现字串，如"吃"和"类型"，也可循环于controls集合内，判断instr，再list指定变量