有沒有辦法縮短這個VBA：添加組合框項目
Me.cboDeptU1.AddItem "1"
Me.cboDeptU1.AddItem "2"
Me.cboDeptU1.AddItem "3"
Me.cboDeptU1.AddItem "4"
Me.cboDeptU1.AddItem "5"
Me.cboDeptU.SetFocus
我也有這個在同一個小組：
Me.cboDeptL1.AddItem "1"
Me.cboDeptL1.AddItem "2"
Me.cboDeptL1.AddItem "3"
Me.cboDeptL1.AddItem "4"
Me.cboDeptL1.AddItem "5"
Me.cboDeptL.SetFocus
更換
Me.cboDeptU1.AddItem "1"
Me.cboDeptU1.AddItem "2"
Me.cboDeptU1.AddItem "3"
Me.cboDeptU1.AddItem "4"
Me.cboDeptU1.AddItem "5"
隨着
For i = 1 to 5
Me.cboDeptU1.AddItem Cstr(i)
Next i
非常感謝。 anddddddd我愛你< - 我的意思是 –
@DavidQuetglas你可以點擊這個答案旁邊的投票按鈕下方的空白複選標記，將它標記爲* accepted *作爲你的愛的標記......或者只是爲了獲得+2代表接受答案。 –
如果你只需要添加這些項目完全空List，你可以使用類似：
Me.cboDeptU1.List = Array("1", "2", "3", "4", "5")
除了你有，你可以刪除'Me'符的答案，這是隱/冗餘。 –