Макрос обновления страницы

[edmar07]

Нужна помощь,
как написать макрос обновления страницы (перерасчета формул, ну или Ф9) через определенный интервал??

ну вдруг кто знает

[Serge 007]

Раз в минуту:

Код Выделить Развернуть

Sub Fresh()
Application.OnTime Now + TimeValue("00:01:00"), "Calc"
End Sub

Sub Calc()
    Calculate
End Sub


Пример с файлом здесь

[edmar07]

вот спасибочки, завтра проверю но плюсик уже ткнул за скорость )))

[Wasilic]

Раз в минуту:

Код Выделить Развернуть

Sub Fresh()
Application.OnTime Now + TimeValue("00:01:00"), "Calc"
End Sub

Sub Calc()
    Calculate
End Sub


Серега, извини, но так он сработает только 1 раз.

А так, действительно, каждую минуту

Sub Auto_open() ' автозапуск при открытии файла
  Обновление
End Sub
Sub Обновление()
  Calculate
  Application.OnTime Now + TimeValue("00:01:00"), "Обновление"
End Sub

[Serge 007]

Серега, извини, но так он сработает только 1 раз.

Ага. Поэтому в 22:23:18 я отредактировал пост и дал ссылку на рабочий пример  

Там ещё короче:

Код Выделить Развернуть

Sub Timer_()
Calculate
Application.OnTime Now + TimeValue("00:01:00"), "Timer_"
End Sub


ЗЫ Кстати, остановить макрос можно так

[edmar07]

ЗЫ Кстати, остановить макрос можно так

а меня  почему-то только на главную по ссылке переносит (

и парни, спасибо за участие, а то у меня задача глобальная, часть я знаю как сделать, часть нужно много читать, а вот до еще одной части  я не скоро еще смогу дойти ))