※ 引述《ptguitar (佩蒂吉他)》之铭言：
: 软件: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
:
: