ComboBox

[sashok60]

ситуация такая есть форма на ней 4 ComboBox, как при определенных условиях добавить во все ComboBoxы определенный список?

[iGrok]

ситуация такая есть форма на ней 4 ComboBox, как при определенных условиях добавить во все ComboBoxы определенный список?

1) Добавить в первый комбобокс определённый список.
2) Добавить во второй комбобокс определённый список.
3) ... Ну ты понял, да?

[sashok60]

это понятно, а чтобы не прописывать по отдельности каждый ComboBox, а типа с ComboBox1.List по ComboBox10.List присвоить Range("A5:A23").Value

[Brudda]

Если других ComboBox_ов на форме нет, можно так попробовать:

Код: Выделить всё

     With UserForm1
            Dim СВВ As Control
                  For Each СВВ In .Controls
                        If TypeOf TB Is MSForms.ComboBox Then
                             .... тут заполняешь  ComboBox_ы
                        End If
                  Next
    End With



[arvitaly]

можно так попробовать

только так и не иначе, а другие комбобоксы отсекаются по имени легко СВВ.name