VBA UserForm具有相同值的多个combobox

我想在Excel用户窗体中创build3个不同的combobox。 总共会有每种types的x。

我想要这样的代码：

With ComboboxAi for i = 1 to 5 .AddItem "monday" .AddItem "tuesday" With ComboboxBj for j = 1 to 6 .AddItem "january" .AddItem "february" 

我的combobox被命名为： ComboboxA1，..，ComboboxA5，ComboboxB1，..，ComboboxB6

有人可以帮我做出正确的代码吗？

Answer 1

这是语法：

  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