Програмный код паузы в макросе

Пользователь

Сообщений: 23 Регистрация: 01.01.1970

19.01.2012 17:34:39

Доброе время суток!
Мною написан макрос в нем не хватает одной функции:
Необходимо при определенных условиях, что б макрос преостановился - что-то типа Ctrl+Pause Break.
Например:
If Cells(m, n).Value = 2 Then "ПАУЗА"
Какой програмный код будет у "ПАУЗА"?

Юрий М Модератор Сообщений: 61089 Регистрация: 14.09.2012 Контакты см. в профиле	#2 19.01.2012 17:53:34 ... Then Application.Wait Time:=Now + TimeValue("0:00:05") Приостановка на 5 секунд

KuklP Пользователь Сообщений: 14868 Регистрация: 21.12.2012 E-mail и реквизиты в профиле.	#3 19.01.2012 17:54:02 Application.Wait Я сам - дурнее всякого примера! ...

Guest Гость	#4 19.01.2012 18:24:29 А, что б сообщение всплыло после паузы или кнопочка... - Продолжить или закончить (потому что в большинстве случаев необходимо будет продолжить выполнение макроса)

artclon1 Пользователь Сообщений: 23 Регистрация: 01.01.1970	#5 19.01.2012 18:29:23 А что б программно вызвать окно "Ctrl+Pause Break" (был бы идеальный вариант для меня...)

Юрий М

Модератор

Сообщений: 61089 Регистрация: 14.09.2012

Контакты см. в профиле

19.01.2012 19:52:06

{quote}{login=}{date=19.01.2012 06:24}{thema=}{post}А, что б сообщение всплыло после паузы или кнопочка... - Продолжить или закончить
(потому что в большинстве случаев необходимо будет продолжить выполнение макроса){/post}{/quote}После паузы:
If MsgBox("Продолжить работу программы?", vbYesNo + 32, "Чё делать, ваще?") = vbNo Then Exit Sub

EducatedFool Пользователь Сообщений: 3695 Регистрация: 23.12.2012	#7 20.01.2012 07:43:36 Чтобы макрос не притормаживал комп, можно использовать оператор Doevents А если надо просто остановить макрос, чтобы продолжить его выполнение нажатием ПУСК (или F5) из редактора VBA, то можно так написать: If Cells(m, n).Value = 2 Then Stop Надстройки для Excel Парсинг сайтов Мониторинг цен конкурентов

Читают тему