Страница 1 из 1

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

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

Добавлено: 07 дек 2005, 14:21
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

Добавлено: 08 дек 2005, 12:35
Avsha
Спасибо Naeel Maqsudov, все отлично работает даже в секунде.
Не знал, что Excel такой планировщик у себя в арсенале имеет, крепко сделан :)