Справочник функций

Ваш аккаунт

Войти через: 
Забыли пароль?
Регистрация
Информацию о новых материалах можно получать и без регистрации:

Почтовая рассылка

Подписчиков: -1
Последний выпуск: 19.06.2015

как сделать поузу во времени во время выполнения макроса??

2.6K
17 ноября 2002 года
wanton
1 / / 17.11.2002
типа Aplication.wait не проходит :(
мне надо чтоб типа VBAProject.wait или pause ???
т.е. надо отслеживать работу макроса и если что то не так сделать паузу , подправить и снова запустить с той же точки останова...
не ^{BREAK}.
я создал кнопочки ихочу назначить им Sub....
если Aplication.wait - хрен нажмёшь :/

10х!
267
18 ноября 2002 года
Cutty Sark
1.2K / / 17.10.2002
Цитата:
Originally posted by wanton
типа Aplication.wait не проходит :(
мне надо чтоб типа VBAProject.wait или pause ???
т.е. надо отслеживать работу макроса и если что то не так сделать паузу , подправить и снова запустить с той же точки останова...
не ^{BREAK}.
я создал кнопочки ихочу назначить им Sub....
если Aplication.wait - хрен нажмёшь :/

10х!



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

2.5K
02 декабря 2002 года
ataman
11 / / 02.12.2002
Цитата:
Originally posted by wanton
типа Aplication.wait не проходит :(
мне надо чтоб типа VBAProject.wait или pause ???
т.е. надо отслеживать работу макроса и если что то не так сделать паузу , подправить и снова запустить с той же точки останова...
не ^{BREAK}.
я создал кнопочки ихочу назначить им Sub....
если Aplication.wait - хрен нажмёшь :/

10х!



Ежли надо отслеживать работу макроса, а брикпойнты ставить не хоца, можно использовать метод Assert.

'<--- Code Begin
Option Explicit
Public blnGotoDebug As Boolean
Sub dura()

' your code is here


blnGotoDebug = False 'we need Debug to run ASAP

' your code is here

'Make a pause, just eat a twix :)
Debug.Assert blnGotoDebug 'Run Debug at this point anyway
blnGotoDebug = Not blnGotoDebug 'Back to TRUE mode if necessary


' your code is here

End Sub
'<--- Code End

причем строчка
blnGotoDebug = False
может быть в одной процедуре, а
Debug.Assert blnGotoDebug -- много мозже в другой процедуре

С бестами и регардами,
Алекс

Реклама на сайте | Обмен ссылками | Ссылки | Экспорт (RSS) | Контакты
Добавить статью | Добавить исходник | Добавить хостинг-провайдера | Добавить сайт в каталог