[英]VBA UserForm multiple comboboxes with same values
我想在Excel UserForm中制作3个不同的组合框。 每种类型总共有x个。
我想编写这样的代码:
With ComboboxAi for i = 1 to 5
.AddItem "monday"
.AddItem "tuesday"
With ComboboxBj for j = 1 to 6
.AddItem "january"
.AddItem "february"
我的组合框的名称如下: ComboboxA1,..,ComboboxA5,ComboboxB1,..,ComboboxB6
有人可以帮助我编写正确的代码吗?
这是语法:
Dim i As Long
For i = 1 To 5
With Controls("ComboboxA" & i)
.AddItem "Monday"
.AddItem "Tuesday"
End With
Next i
For i = 1 To 6
With Controls("ComboboxB" & i)
.AddItem "January"
.AddItem "February"
End With
Next i
但是,以下可能是实现同一目标的更好方法:
Dim ctrl As MSForms.Control
For Each ctrl In Controls
If TypeOf ctrl Is MSForms.ComboBox Then
If ctrl.Name Like "ComboboxA*" Then ctrl.List = Array("Monday", "Tuesday")
If ctrl.Name Like "ComboboxB*" Then ctrl.List = Array("January", "February")
End If
Next ctrl
声明:本站的技术帖子网页,遵循CC BY-SA 4.0协议,如果您需要转载,请注明本站网址或者原文地址。任何问题请咨询:yoyou2525@163.com.