Автоматическое вычисление листа в Excel

[Avsha]

Требуется с заданным периодом (например 1 сек) осуществлять перерасчет несложного по расчетам листа рабочей книги,
т.е. выполнять метод Calculate (F9) циклически раз в 1 сек.
Желательно иметь кнопки Пуск и Стоп соответственно для запуска и останова такого режима вычислений.
Возможно ли это реализовать в Excel ?
Или же подойдет вариант, что циклически будет меняться хотя бы одна ячейка Excel.

[Naeel Maqsudov]

Лехко!

Код: Выделить всё

Dim gate As Boolean
Const Sec = 5 'секунд

Private Sub SomeProcedure()
  Sheet1.Calculate
  If gate Then Application.OnTime Now + 1 / 24 / 60 / 60 * Sec, "SomeProcedure"
End Sub

Sub Go()
  gate = True
  SomeProcedure
End Sub


Sub Stp()
  gate = False
End Sub

[Avsha]

Спасибо Naeel Maqsudov, все отлично работает даже в секунде.
Не знал, что Excel такой планировщик у себя в арсенале имеет, крепко сделан