軟體: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指定變數