Скрипт для остановки циклического макроса

[Jarik]

Добрый день!

Есть скрипт, который выполняет периодически процедуру Test:

Sub LoopTest()
        Test
        Application.OnTime Now() + TimeSerial(0, 1, 0), "Test"
End Sub

Какой при помощи VBA остановить выполнение этого такого скрипта?
Спасибо!

[IgorGO]

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

[Jarik]

ПРошу прощения, в примере описался. Правильно так:

Sub LoopTest()
        Test
        Application.OnTime Now() + TimeSerial(0, 1, 0), "LoopTest"
End Sub

Не важно, что делает Test, но допустим, он записывает в ячейку случайное число:

Sub Test()
        Cells(1, 1) = rnd()
End Sub

[IgorGO]

Sub LoopTest()
        Test
        if ВЫПОЛНЯЕТСЯ_УСЛОВИЕ then Application.OnTime Now() + TimeSerial(0, 1, 0), "LoopTest"
End Sub

согласен, при такой записи совершенно не важно что происходит в Test.

напишите код функции

Function ВЫПОЛНЯЕТСЯ_УСЛОВИЕ() as boolean
   ВЫПОЛНЯЕТСЯ_УСЛОВИЕ = ....
End Function

удачи!

[Казанский]

Изучайте: http://www.cyberforum.ru/vba/thread3...ml#post2044327