Поиск  Пользователи  Правила  Войти
Форумы "Планета Excel" » Вопросы по Microsoft Excel
Страницы: 1
RSS
Запуск по расписанию макроса с аргументами
 
#1
12.03.2018 08:06:39
У меня успешно работала команда
Код
Application.OnTime Now() + TimeSerial(0, 0, 2), "Лист4.Poll"
В процессе расширения функционала мне стало нужно запускать ту же процедуру опроса, но уже с параметрами. Попробовал добавить
Код
Application.OnTime Now() + TimeSerial(0, 0, 2), "Лист4.Poll(" & Number & ")"
Естественно, VBA начал ругаться.
Не подскажите, возможна ли передача аргументов при таком способе вызова процедуры?
 
 
 
#2
12.03.2018 09:39:30
У меня получилось только через промежуточный макрос. Что  то типа такого
В стандартный модуль
Код
Sub myMacro()
    Application.OnTime Now() + TimeSerial(0, 0, 2), "Лист4.tmpMacro"
End Sub
В модуль листа
Код
Sub tmpMacro()
    myNum = 44
    Call Poll(myNum)
End Sub

Sub Poll(iNum)
    MsgBox iNum * 100
End Sub
Согласие есть продукт при полном непротивлении сторон
 
 
 
#3
12.03.2018 11:00:09
Запуск OnTime с параметром делается так:
Application.OnTime Now() + TimeSerial(0, 0, 1), "'Лист4.Poll " & Number & "'"
 
 
 
#4
12.03.2018 11:03:01
Владимир, спасибо!
Согласие есть продукт при полном непротивлении сторон
 
 
 
#5
12.03.2018 11:11:13
При запуске OnTime с параметром есть один нюанс  - если нужно отменить уже заряженный запуск по Schedule:=False (например, при закрытии книги), то требуется указывать не только имя процедуры, но и тот же параметр:
Application.OnTime EarliestTime:=SavedTimeToRun, Procedure:="'Лист4.Poll " & SavedNumber & "'", Schedule:=False
здесь SavedTimeToRun - глобальная переменная, в которой сохранена дата и время отложенного запуска макроса, а SavedNumber  - глобальная переменная, в которой сохранено значение параметра Number, посланного в OnTime.
 
 
 
#6
12.03.2018 12:18:07
Спасибо, работает.
И за дополнение спасибо - отмена запуска макроса у меня делалась сложным кодом, а оказывается можно в одну строку уложиться :)
 
 
 
#7
12.03.2018 15:40:08
Цитата
Sanja написал: Владимир, спасибо!
Виталий, всегда рад поделиться знаниями :)

Цитата
stahon написал: И за дополнение спасибо
А это уже не из знаний, а из опыта. Приятно, что и это пригодилось, удачи Вам!
 
 
 
#8
12.03.2018 16:34:56
Можно Number сделать глобальной переменной, которую будет использовать запланированный макрос, и присвоить ей значение перед Application.OnTime.
 
 
 
Страницы: 1
Читают тему
Наверх