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

※ 發信站: 批踢踢實業坊(ptt.cc), 來自: 27.247.101.35 : ※ 文章網址: https://webptt.com/m.aspx?n=bbs/Office/M.1524614085.A.B14.html : → soyoso: 可設個變數帶入array()，combobox.list指定該變數 04/25 08:07 : → soyoso: 如name內有固定出現字串，如"吃"和"類型"，也可迴圈於 04/25 08:15 : → soyoso: controls集合內，判斷instr，再list指定變數 04/25 08:15 我嘗試寫了一個 Private Sub UserForm_Activate() Dim c As Control For Each c In Me.Controls If TypeName(c) = "ComboBox" And InStr(c, "吃") > 1 Then c.AddItem " " c.AddItem "素食" End If Next c End Sub 有包含吃這個字的combobox 就會增加 一個空格 跟素食 但是跑不出東西 不知道哪邊思考有錯誤＠＠ --

※ 發信站: 批踢踢實業坊(ptt.cc), 來自: 27.52.197.42 ※ 文章網址: https://webptt.com/m.aspx?n=bbs/Office/M.1524742109.A.F39.html