Как заполнить несколько ComboBox'ов?

[tns-ka]

Доброго времени суток!

Проблема такая: на форме есть 10 комбобоксов, все - одинакового содержания.
На данный момент код заполнения комбобоксов выглядит следующим образом:

Private Sub UserForm_Initialize()

combobox1.additem "1"
combobox1.additem "2"

combobox2.additem "1"
combobox2.additem "2"

.....

combobox10.additem "1"
combobox10.additem "2"

End Sub

Со временем каждый из боксов надо будет дополнять (в каждый - одну и ту же строчку). Можно ли как-то сделать так (например, при помощи цикла), чтобы добавить в код одну строку, но заполнить ей все комбобоксы? Получить что-то вроде:

For x=1 to 10
Combobox(x).additem "1"
Combobox(x).additem "2"
Combobox(x).additem "3"
...
Combobox(x).additem "n"
next

[Юнлинг]

Сообщение от tns-ka

Доброго времени суток!

Проблема такая: на форме есть 10 комбобоксов, все - одинакового содержания.
На данный момент код заполнения комбобоксов выглядит следующим образом:

Private Sub UserForm_Initialize()

combobox1.additem "1"
combobox1.additem "2"

combobox2.additem "1"
combobox2.additem "2"

.....

combobox10.additem "1"
combobox10.additem "2"

End Sub

Со временем каждый из боксов надо будет дополнять (в каждый - одну и ту же строчку). Можно ли как-то сделать так (например, при помощи цикла), чтобы добавить в код одну строку, но заполнить ей все комбобоксы? Получить что-то вроде:

For x=1 to 10
Combobox(x).additem "1"
Combobox(x).additem "2"
Combobox(x).additem "3"
...
Combobox(x).additem "n"
next

пропробуй так

dim cm(10) as ComboBox
set cm(1)=userform.combobox1
...
set cm(10)=userform.combobox10
...
For x=1 to 10
	cm(x).additem "1"
	cm(x).additem "2"
	cm(x).additem "3"
	...
	cm(x).additem "n"
next

где userform - место где находятся твои Cоmbobox

[The_Prist]

Можно так

Dim oControl As Control
For Each oControl In UserForm1.Controls
 If TypeOf oControl Is MSForms.ComboBox Then oControl.additem "n"
Next oControl

Этот же код можете применять и при первичном заполнении Боксов

[tns-ka]

Спасибо за ответы, решение Юнлинг мне в самый раз. The_Prist, если я правильно понял, в Вашем примере указанный цикл проходит один раз по всем боксам и забивает только одно значение? А как первоначально при помощи этого цикла внести в боксы несколько значений?

[The_Prist]

Сообщение от tns-ka

А как первоначально при помощи этого цикла внести в боксы несколько значений?

Ну где же Ваша смекалка и догадливость? :-)

Dim oControl As Control, avArr
avArr = Array(1, 2, 3, 4, 5, 6, 7, 8, 9, 10)
For Each oControl In UserForm1.Controls
 If TypeOf oControl Is MSForms.ComboBox Then oControl.List = avArr
Next oControl

Для добавления элемента в список, просто добавляете его в avArr. Тольк помните, если значения текстовые, то их надо заключать в кавычки

avArr = Array("привет", "пока")