添加ComboBox项目
有没有办法缩短这个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
如果您只是将这些项目添加到一个完全空白的List ，则可以使用如下所示的内容：
Me.cboDeptU1.List = Array("1", "2", "3", "4", "5")