| |
|
|
| | уже всё перепробовал есть например userform с названием "дюбель" и ещё различные формы, хочу сделать так чтобы открывалась та у которой название совпадает с тем что ввожу в inputbox, не знаю как правильно ввести чтобы не было ошибки | |
| |
| |
| |
|
|
| | Может так:
Str = InputBox("Form")
If Str = "UserForm1" Then
UserForm1.Show
ElseIf Str = "UserForm2" Then
UserForm2.Show
'...
End If
Если форм конечно не сотня.
Лучше конечно использовать комбобокс, чтобы не было ошибки. | |
| |
| |
| |
|
|
| | А если количество пользовательских форм неизвестно, допустим, даже несколько сотен, то можно использовать следующий вариант.
iUserForm = InputBox(Prompt:="Введите имя формы", Title:="", Default:="UserForm1")
If iUserForm <> "" Then _
UserForms.Add(iUserForm).Show
|
Обратите внимание на то, что имя UserForm должно быть указано верно, в противном случае, возникнет ошибка, которую, впрочем, можно избежать (см. пример) | |
| |
| |
