※ 引述《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
:
: