文章/答案/技术大牛

发布

问添加ComboBox项目
EN

Stack Overflow用户

提问于 2017-02-08 05:11:22

回答 3查看 44关注 0票数 2

有没有办法缩短这个VBA：

Me.cboDeptU1.AddItem "1"
Me.cboDeptU1.AddItem "2"
Me.cboDeptU1.AddItem "3"
Me.cboDeptU1.AddItem "4" 
Me.cboDeptU1.AddItem "5"

Me.cboDeptU.SetFocus

我在同一个Sub中也有这个：

Me.cboDeptL1.AddItem "1"
Me.cboDeptL1.AddItem "2"
Me.cboDeptL1.AddItem "3"
Me.cboDeptL1.AddItem "4"
Me.cboDeptL1.AddItem "5"

Me.cboDeptL.SetFocus

vba

excel

回答 3

Stack Overflow用户

回答已采纳

发布于 2017-02-08 05:16:05

替换

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

票数 5

Stack Overflow用户

发布于 2017-02-08 05:18:51

如果您只将这些项添加到一个完全为空的List中，则可以使用如下所示：

Me.cboDeptU1.List = Array("1", "2", "3", "4", "5")

票数 2

Stack Overflow用户

发布于 2017-02-12 01:28:43

这可能是您的首选资源。

http://www.fontstuff.com/access/acctut20.htm

http://www.fontstuff.com/access/acctut13a.htm

And...for ListBoxes...

http://www.fontstuff.com/access/acctut11.htm

票数 0

页面原文内容由Stack Overflow提供。腾讯云小微IT领域专用引擎提供翻译支持

原文链接：

https://stackoverflow.com/questions/42100074

复制

相似问题

问添加ComboBox项目
EN

回答 3

Stack Overflow用户

Stack Overflow用户

Stack Overflow用户

社区

活动

圈层

关于

腾讯云开发者

热门产品

热门推荐

更多推荐

问添加ComboBox项目EN

回答 3

Stack Overflow用户

Stack Overflow用户

Stack Overflow用户

社区

活动

圈层

关于

腾讯云开发者

热门产品

热门推荐

更多推荐

问添加ComboBox项目
EN