[已解决]窗体初始化时，如何同时给窗体中的多个ComboBox赋值

E直很D调

各位大侠，在下有个问题想请教的，如题（窗体初始化时，如何同时给窗体中的多个ComboBox赋值），
我有一个窗体，如图

窗体截图

红色框中的ComboBox的值都是一样的，都是从1到7，这些ComboBox的作用是用来输入乘客人数的。参考了Excel [已解决][求助]多个组合框同时赋值又该怎么写代码？ - 『Excel VBA程序开发』 - Excel精英培训网 - Powered by Discuz!  http://www.excelpx.com/thread-89182-1-1.html，但是这个帖子当中只有3个ComboBox，而我的有19个，分别是从ComboBox 4 到ComboBox 22，如果按照帖子当中的代码写法，将会很繁琐，针对我目前的情况，希望各位大侠能提供更好的方法，谢谢！
现把附件上传
车辆管理.rar (26.65 KB, 下载次数: 46)

2016-9-9 15:41 上传

点击文件名下载附件

最佳答案

月排行榜 / 总排行榜

ghostjiao

2016-9-9 16:06

1. Private Sub UserForm_Initialize()
   
2.     Dim arr, i%
   
3.     arr = [row(1:7)]
   
4.     For i = 4 To 22
   
5.         Me.Controls("ComboBox" & i).List = arr
   
6.     Next
   
7. End Sub

复制代码

把你自己写的那部分加上就行了

跳转到最佳答案楼层

ghostjiao

1. Private Sub UserForm_Initialize()
   
2.     Dim arr, i%
   
3.     arr = [row(1:7)]
   
4.     For i = 4 To 22
   
5.         Me.Controls("ComboBox" & i).List = arr
   
6.     Next
   
7. End Sub

复制代码

把你自己写的那部分加上就行了

gufengaoyue

加这句

1.     For j = 4 To 22
   
2.         Controls("combobox" & j).List = [{1,2,3,4,5,6,7}]
   
3.     Next

复制代码

E直很D调

ghostjiao 发表于 2016-9-9 16:06
把你自己写的那部分加上就行了

谢谢，ghostjiao大侠啊！搞定了