作者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/m.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