На форме в режиме работы макроса содать динамически CheBoxы?

[Павел_В]

Вообще имеется ли возможность создавать динамически кнопки и др. компоненты?? Спасибо за ответ!

[RayShade]

Да, имеется. Через userform.controls.add

[Павел_В]

Может я что не так делаю ??

Dim Ch As CommandButton
Private Sub CommandButton1_Click()
Set Ch = UserForm1.Controls.Add("CommandButton", Name:=Ch, Visible:=True)
End Sub

Выдает ошибку инвалид класс

[RayShade]

Потому что если тебе надо чекбокс, то класс будет CheckBox. А во вторых, все стандартные классы контролов Office имеют префикс MSForms. То есть, писать надо MSForms.CheckBox

[Павел_В]

Да разницы то нет, кнопка это или чекбокс, дело в том, что я и так пробовал, но все равно ошибка инвалид класс, а когда просто пробуешь написать MSFORMS. то CheckBox класса там нет
Что делать ?

[RayShade]

Dim Ch As CommandButton

Private Sub CommandButton1_Click()

Set Ch = UserForm1.Controls.Add("MSForms.CommandButton", Name:="Ch", Visible:=True)

End Sub

Вот так.

[Павел_В]

Да не работает это, все разобрался вот так надо:

Private Sub CommandButton1_Click()
Set Ch = UserForm1.Controls.Add("Forms.CheckBox.1")
End Sub

[Павел_В]

Все равно огромное спасибо, что наставил на путь истинный

[RayShade]

Странно как то, а в Object Browser все эти классы в MSForms либе прописаны.

[MaDriver]

У меня примерно та же проблема, не знаю разрешима ли Можно ли добавить нужное мне количество refedit'ов в форму, через цикл или еще как? А может я вообще не по тому пути пошел Я хочу написать макрос, который будет искать совпадения в двух листах со схожими данными и по нескольким критериям, а для этого в первой форме моего макроса задается кол-во сравниваемых критериев, а потом по этому количеству создается нужное кол-во refedit'ов в которых предпологается вводить диапазоны этих критериев. Может есть более оптимальная схема для этой задачи?