Вызов UserForm

28.07.2010, 17:20. **Показов** 75783. **Ответов** 9

Author24 — интернет-сервис помощи студентам

В общем, у меня есть форма, мне нужно, чтобы она вызывалась, не заходя непосредственно в VBA, кнопку вынести или сочетание клавиш назначить, можно так сделать?

@Teslenko_EA · 28.07.2010, 19:11

В общем здравствуйте Anutka55.
открывать форму можно не только кнопкой но и меню, в этом сможете убедиться изучив образец.
Евгений.

Комментарий модератора

архив не копируется, возможно слишком старый, RAR - архивы весьма капризны, зависят от версии архиватора, я тоже не скопировала 11/10/2021

28.07.2010, 19:17

Вариант1: Открыть форму сразу после запуска файла с макросом

Visual Basic

Sub auto_open ()                    'Макрос для автоматического запуска нужного Вам макроса
    Application.Run ("OpenUserForm")
End Sub
 
Sub OpenUserForm ()             'Нужный Вам макрос
    UserForm1.Show                'Показать Вашу форму!!!
End Sub

Вариант2: Открыть форму в процессе выполнения Вашего макроса
В Вашем макросе в месте, где нужно вызвать форму напишите

UserForm1.Show 'Показать Вашу форму!!!

затем, в месте, где Вашу форму нужно скрыть - напишите

UserForm1.Hide 'Скрыть Вашу форму!!!

29.07.2010, 18:04

Спасибо большое

Поставила открытие на сочетание клавиш

@mdsticks · 30.09.2021, 21:44

Не могли бы обновить архив? Я понимаю что прошло много времени но все-таки интересно увидеть пример кода.

@КостяФедореев · 30.09.2021, 22:40

mdsticks, разбираться тут что было никто не будет.
Создайте новую тему с вашим вопросом и вам помогут

@vedunasv · 30.09.2021, 22:42

КостяФедореев, просто архив не открывается - пишет "ОЩИБКА-ОШИБКА СЕТИ"
и потому mdsticks, наверное, и просит обновить архив

Сообщение от Teslenko_EA

Вызов_формы.rar (10.3 Кб, 74319 просмотров)

по крайней мере - у меня не открывается.

@mdsticks · 11.10.2021, 09:23

КостяФедореев, если выложен пример, то он должен быть рабочим и не важно сколько времени прошло. Возможно в этом архиве и есть ответ на мой вопрос, так зачем плодить никому ненужные вопросы?
vedunasv, вы совершенно правы, архив у меня не открывается, останавливается скачивание с ошибкой сети. Дело не в моей системе, возможно необходимо перезалить архив. Teslenko_EA, обновите пожалуйста если есть возможность. Спасибо.

shanemac51 · 11.10.2021, 09:39

архив не копируется, возможно слишком старый, RAR - архивы весьма капризны, зависят от версии архиватора, я тоже не скопировала 11/10/2021

@vedunasv · 11.10.2021, 20:59

хм.... Мне кажется, просто момент архивации неудачно, При архивации получилась ошибка, а её не заметили..
Но в любом случае надо новый экземпляр архива.

Дело не в старости.

Anutka55
		1
	Вызов UserForm 28.07.2010, 17:20. Показов 75783. Ответов 9 Метки нет (Все метки) В общем, у меня есть форма, мне нужно, чтобы она вызывалась, не заходя непосредственно в VBA, кнопку вынести или сочетание клавиш назначить, можно так сделать?

Anutka55
	29.07.2010, 18:04	4
	Спасибо большое Поставила открытие на сочетание клавиш

@mdsticks 0 / 0 / 0 Регистрация: 30.09.2021 Сообщений: 2
	30.09.2021, 21:44	5
	Не могли бы обновить архив? Я понимаю что прошло много времени но все-таки интересно увидеть пример кода. 0

@КостяФедореев Часто онлайн 903 / 609 / 272 Регистрация: 09.01.2017 Сообщений: 2,012
	30.09.2021, 22:40	6
	mdsticks, разбираться тут что было никто не будет. Создайте новую тему с вашим вопросом и вам помогут 0

@vedunasv Наивное Существо 666 / 141 / 27 Регистрация: 09.05.2020 Сообщений: 750 Записей в блоге: 15
	30.09.2021, 22:42	7
	КостяФедореев, просто архив не открывается - пишет "ОЩИБКА-ОШИБКА СЕТИ" и потому mdsticks, наверное, и просит обновить архив Сообщение от Teslenko_EA Вызов_формы.rar (10.3 Кб, 74319 просмотров) по крайней мере - у меня не открывается. 0

@mdsticks 0 / 0 / 0 Регистрация: 30.09.2021 Сообщений: 2
	11.10.2021, 09:23	8
	КостяФедореев, если выложен пример, то он должен быть рабочим и не важно сколько времени прошло. Возможно в этом архиве и есть ответ на мой вопрос, так зачем плодить никому ненужные вопросы? vedunasv, вы совершенно правы, архив у меня не открывается, останавливается скачивание с ошибкой сети. Дело не в моей системе, возможно необходимо перезалить архив. Teslenko_EA, обновите пожалуйста если есть возможность. Спасибо. 0

shanemac51 Модератор 12059 / 4921 / 789 Регистрация: 07.08.2010 Сообщений: 14,399 Записей в блоге: 4
	11.10.2021, 09:39	9
	архив не копируется, возможно слишком старый, RAR - архивы весьма капризны, зависят от версии архиватора, я тоже не скопировала 11/10/2021 1

@vedunasv Наивное Существо 666 / 141 / 27 Регистрация: 09.05.2020 Сообщений: 750 Записей в блоге: 15
	11.10.2021, 20:59	10
	хм.... Мне кажется, просто момент архивации неудачно, При архивации получилась ошибка, а её не заметили.. Но в любом случае надо новый экземпляр архива. Дело не в старости. 0