→ ptguitar: 我解決了 >1 那邊改成>=1 04/26 19:32
※ 引述《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://www.ptt.cc/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://www.ptt.cc/bbs/Office/M.1524742109.A.F39.html