作者ptguitar (佩蒂吉他)
看板Office
标题[算表] excel vba additem多项目
时间Wed Apr 25 07:54:43 2018
软体: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
--
※ 发信站: 批踢踢实业坊(ptt.cc), 来自: 27.247.101.35
※ 文章网址: https://webptt.com/cn.aspx?n=bbs/Office/M.1524614085.A.B14.html
1F:→ soyoso: 可设个变数带入array(),combobox.list指定该变数 04/25 08:07
2F:→ soyoso: 如name内有固定出现字串,如"吃"和"类型",也可回圈於 04/25 08:15
3F:→ soyoso: controls集合内,判断instr,再list指定变数 04/25 08:15