Новости:

Подпишитесь на рассылку новых сообщений форума через службу рассылок: Subscribe.ru

Главное меню

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

Автор edmar07, 19.03.2013, 21:18

« назад - далее »

edmar07

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

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

Serge 007

#1
Раз в минуту:
Sub Fresh()
Application.OnTime Now + TimeValue("00:01:00"), "Calc"
End Sub

Sub Calc()
    Calculate
End Sub


Пример с файлом здесь
Бесплатная помощь: www.excelworld.ru
Платная помощь: sergeyizotov@excelworld.ru
Ю-money: 41001419691823 | WMR:126292472390

edmar07

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

Wasilic

Цитата: Serge 007 от 19.03.2013, 21:36
Раз в минуту:
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

Цитата: Wasilic от 20.03.2013, 01:03
Серега, извини, но так он сработает только 1 раз.
Ага. Поэтому в 22:23:18 я отредактировал пост и дал ссылку на рабочий пример :) 

Там ещё короче:
Sub Timer_()
Calculate
Application.OnTime Now + TimeValue("00:01:00"), "Timer_"
End Sub


ЗЫ Кстати, остановить макрос можно так
Бесплатная помощь: www.excelworld.ru
Платная помощь: sergeyizotov@excelworld.ru
Ю-money: 41001419691823 | WMR:126292472390

edmar07

Цитата: Serge 007 от 20.03.2013, 05:46

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

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