|
|
Регистрация Восстановить пароль |
Повторная активизация e-mail |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
|
Опции темы | Поиск в этой теме |
08.12.2011, 12:51 | #1 |
Форумчанин
Регистрация: 19.11.2011
Сообщений: 128
|
Как в середину макроса вставить UserForm1 ?
Подскажите пожалуйста.
Есть макрос. В середине макроса мне необходимо вызвать UserForm1 на которой содержится ComboBox1 и CommandButton1. В ComboBox1 я вибираю значение. При нажатии на CommandButton1 выбранное значение помещается в ячейку A1 (на скрытом листе), Значение в ячейке А2 вычисляется в зависимости от значения в А1. Далее в макросе используется значение из ячейки А2 Если я в нужное место в макросе вставляю: UserForm1.Show x = Sheets("Лист2").Range("А2").Value То макрос не дает мне выбрать в ComboBox1 и продолжает выполняться. Как сделать что бы макрос продолжал выполняться только после нажатия на CommandButton1 ? Что то наподобии: (это не работает так как мне надо) Sub Макрос1() Dim x, y, z x = 2 ' условно, на самом деле тут код, который обязательно должен быть до вызова UserForm1 UserForm1.Show ' Выбирается значение в ComboBox1 и при нажатии на CommandButton1 записывается в ячейку А1. ' А2 вычисляется в зависимости от А1 y = Sheets("Лист2").Range("A2").Value ' значение полученное при помощи вывора из UserForm1 z = x + y Sheets("Лист2").Range("A3").Value = z End Sub
Нет ничего невозможного, главное верить в это.
Последний раз редактировалось Snekich; 08.12.2011 в 13:27. |
08.12.2011, 15:24 | #2 |
Форумчанин
Регистрация: 19.11.2011
Сообщений: 128
|
Проблему решил обьявлением публичных переменных и разбитием макроса на несколько.
Простетский вопрос. Извиняюсь за беспокойство...
Нет ничего невозможного, главное верить в это.
Последний раз редактировалось Snekich; 08.12.2011 в 16:19. |
09.12.2011, 14:38 | #3 |
Форумчанин
Регистрация: 30.01.2008
Сообщений: 314
|
а все должно было работать, как вы и написали..
|
09.12.2011, 14:43 | #4 |
Форумчанин
Регистрация: 19.11.2011
Сообщений: 128
|
Но почему то выводилась юзерформ и макрос не останавливаясь продолжал выолняться (не дожидаясь ввода данных на юзерформ)....
Нет ничего невозможного, главное верить в это.
|
09.12.2011, 15:23 | #5 |
Старожил
Регистрация: 02.05.2009
Сообщений: 3,907
|
Проблем нет,макрос стоит и ожидает ввода
Анализ,обработка данных Недорого
|
Опции темы | Поиск в этой теме |
Похожие темы | ||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
Повреждение данных при записи в середину бинарного файла | Aerial | Общие вопросы C/C++ | 2 | 01.12.2011 19:32 |
Вставка в середину строки | Кинельски | Общие вопросы Delphi | 2 | 03.06.2010 12:19 |
Запись в середину файла | newkobra | Общие вопросы C/C++ | 12 | 22.03.2010 22:35 |
Восстановление окна на середину экрана. | Airou | Общие вопросы Delphi | 5 | 27.10.2009 15:40 |
Как с поиощью hiew вставить в файл строчку, "раздвинуть" файл и вставить туда строчку? | barand | Assembler - Ассемблер (FASM, MASM, WASM, NASM, GoASM, Gas, RosAsm, HLA) и не рекомендуем TASM | 2 | 28.06.2008 10:58 |