MyTetra Share
Делитесь знаниями!
Запуск макроса с заданной частотой
Время создания: 22.02.2020 22:49
Раздел: !Закладки - VBA

Dim TimeToRun   'глобальная переменная, где хранится следующее время запуска

 

'это главный макрос

Sub MyMacro()

    Application.Calculate                               'пересчитываем книгу

    Range("A1").Interior.ColorIndex = Int(Rnd() * 56)   'заливаем ячейку А1 случайным цветом :)

    Call NextRun                                        'запускаем макрос NextRun для назначения след.времени запуска

End Sub

 

'этот макрос назначает время следующего запуска главного макроса

Sub NextRun()

    TimeToRun = Now + TimeValue("00:00:03")     'прибавляем к текущему времени 3 сек

    Application.OnTime TimeToRun, "MyMacro"     'назначаем следующий запуск

End Sub

 

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

Sub Start()

    Call NextRun

End Sub

 

'макрос для остановки последовательности повторений

Sub Finish()

    Application.OnTime TimeToRun, "MyMacro", , False

End Sub

Так же в этом разделе:
 
MyTetra Share v.0.52
Яндекс индекс цитирования