макрос - тайминг

[peq]

добрый день.

есть xlsm-файл, на котором ряд данных каким-то образом обновляется.
мне бы хотелось, чтобы, скажем, раз в 0,5 секунды запускался макрос, который будет делать что-то (напр. msgbox)
все остальное время должны выполняться другие процессы, процессор должен быть не занят.

если кто-нибудь знает, как это сделать, напишите, пожалуйста, команду.

над worksheet.change я думал, это не совсем то, а других вариантов я, к сожалению, не вижу

[VictorM]

Посмотрите ЗДЕСЬ
А вообще, поиск по форуму - таймер

[peq]

Спасибо, Виктор.

наткнулся на какой-то парадокс

при
>>Application.OnTime Now + TimeSerial(0, 0, 0.51), "NextTime"
>>Application.OnTime Now + TimeSerial(0, 0, 0.6), "NextTime"
>>Application.OnTime Now + TimeSerial(0, 0, 0.8), "NextTime"
загрузка процессора ~20%
при
>>Application.OnTime Now + TimeSerial(0, 0, 0.5), "NextTime"
и меньше загрузка процессора =100%

вы не знаете, из-за чего такое может возникать?
в файл импортятся данные из разных источников, во времени данные приходят вроде бы равномерно.

[VictorM]

вы не знаете, из-за чего такое может возникать?

нет, не могу сказать
причин может быть много

[EducatedFool]

>>Application.OnTime Now + TimeSerial(0, 0, 0.5), "NextTime"
и меньше загрузка процессора =100%

потому что TimeSerial округляет количество секунд.

когда вы ставите 0,5 - TimeSerial понимает это как 0 секунд, и запускает макрос моментально
когда вы ставите 0,51 или больше - TimeSerial понимает это как 1 секунду, и запускает макрос через секунду

Чтобы запускать макрос чаще, чем раз в секунду, воспользуйтесь этим решением:

10. Использование Application.OnTime с задержкой меньше секунды

Sub ЗапускМакросаСНебольшойЗадержкой() ' по мотивам макроса ZVI_Timer
   ЗадержкаВСекундах = 0.3    ' в секундах
   НазваниеМакроса$ = "test"    ' этот макрос будет запущен через 0.3 сек.
   ЗадержкаВЧасах$ = Replace(Format(CDbl(TimeSerial(0, 0, 1)) * ЗадержкаВСекундах, "0.000000000"), ",", ".")
    macro = "ON.TIME(NOW()+" & ЗадержкаВЧасах$ & ", """ & НазваниеМакроса$ & """)" ' формируем команду запуска
   ExecuteExcel4Macro macro ' macro = ON.TIME(NOW()+0.000003472, "test")
End Sub

[peq]

понятно. спасибо большое.

[DiemonStar]

CDbl(TimeSerial(0, 0, 1))

хмм.. а преобразование зачем? там же как был Double так и остался... умножение прекрасно и без него работает.