пересчет таблицы с использованием макроса

[shematov]

Вообщем проблема вот в чем: есть таблица в excel, ее поля заполняются автоматически ссылкой =MT4|BID!AUDCHF т.е. из прогаммки MetaTrader (экспорт DDE) в excel транслируются котировки. далее я написал макрос, который по этим котировкам производит некоторые вычисления и выводит в этом же листе. но нужно сделать так, чтобы этот макрос запускался каждый раз при изменении любой котировки! пробовал сделать это через Private Sub Worksheet_Change(ByVal Target As Range) , но эта процедура как оказалось не реагирует на изменения котировок, т.е. если менять там занчения "руками" то она работает, т.е. перезапускает макрос, но если котировки меняются сами, то она уже не работает. вообщем очень нужна помощь с этой проблемой, как сделать так, чтобы макрос реагировал на изменения котировок? или хотя бы может быть можно чтобы он автоматически запускался раз в секунду...? буду рад любой помощи, заранее благодраен.

[SAS888]

Метод OnTime как раз для запуска процедуры по времени (см. help по VBA).

[shematov]

метод OnTime.... я думал об этом, только неочень понял как его запустить? т.е. если я хочу чтобы он запускал макрос каждые 5 секунд, то мне нужно сделать бесконечный цикл
Do While (i < 10)
Application.OnTime Now + TimeValue("00:00:05"), "final"
Loop
но это не работает,потому что цикл проходит слишком бысто и просто получается десять таких вызывов подряд, которые выполняются слишком быстро. если же использовать метод wait, то программка подвисает на время выполнения, а мне нужно отслеживать изменения таблицы после каждого запуска макроса.

[SAS888]

Например, так устроит?

Sub Main()
    Application.OnTime Now + TimeValue("00:00:05"), "final"
    DoEvents
End Sub

Sub final()
    Range("A1") = Range("A1") + 1 ' Это для примера и наглядности
    Main
End Sub

Запустите макрос "Main". Начнется отсчет времени, после которого запустится и быстро выполнится другая процедура. Перед выходом из нее - снова запускаем "Main".
Благодаря DoEvents, работе в Excel это не мешает.

[shematov]

здорово, спасибо, большое. есть еще небольшой вопрос, можно ли в excel устанавливать дробное время.... например чтобы запуск происходил через каждые полсекунды или 0.1 секунды?

[shematov]

и еще вопросик... это ведь получается вечный цикл? как его остановить?

[IgorGO]

я делал так:
Sub Main()
' тут реальный код, что нужно сделать, например:
Range("A1") = Range("A1") + 1 ' Это для примера и наглядности
Application.OnTime Now + TimeValue("00:00:05"), "Main"
End Sub

' DoEvents я выбрасывал, Эксель в этот момент реагирует на клавиши и на мышь, он свободен от выполнения макроса, он совершенно открыт для общения, можно писать формулы, открывать новые книги и все такое прочее, в коде только необходимо учитывать, что когда "это" буде выполняться, что в этот момент может быть открыта не та книга, не тот лист и в А1 может оказаться допустим текст

Этот цикл точно нескончаемый. Остановить его можно, закрыв данный файл, (он еще на последок, уже после закрытия, ругнется что не нашел "Main"), или например, вписав в определенную ячейку определенное значение, а там, где должен выполняться "реальный код" сделать проверку этой ячейки с соответсвенными выводами.

[shematov]

спасибо большое, эт классно! вроде даже работает))
а что насчет дробного времени? есть возможность выполнять макрос чаще чем раз в секунду?

[IgorGO]

Кроме TimeValue есть еще SerialTime (может ошибся немного - пишу по памяти) задавал части секунды. честно говоря, хлебанул я горя с такой конструкцией.
Что-то у Экселя коряво происходит с этим всем (или скорее у меня). Вроде все очевидно, но...

[SAS888]

При помощи WinAPI-функции GetTikCount, можно устанавливать временные интервалы с точностью до миллисекунды. Посмотрите вложение. Запустите макрос (любой).
Еще добавлена возможность остановки работы такой конструкции: если в ячейку "B1" занести любое значение, то макрос остановится (соответственно, если "B1" не пуста - макрос не запустится).