Поиск  Пользователи  Правила  Войти
Форумы "Планета Excel" » Вопросы по Microsoft Excel (архив)
Страницы: 1
RSS
Автоматический пересчет формул.
 
#1
21.03.2011 12:02:46
Доброго времени суток!  
 
Возможно ли заставить excel постоянно пересчитывать формулы автоматически? Например, каждые 30 секунд, но чтобы это не касалось всего экселя, а работало только на текущей книге?  
 
Это нужно для файла, который будет следить за блайндами в покере. Пример такого файла прикрепляю.
 
 
 
#2
21.03.2011 12:12:54
Здравствуйте.  
 
Думаю это достаточно просто сделать макросом, который запускается каждые 30 сек и выполняет Workbook.Calculate.
 
 
 
#3
21.03.2011 12:41:19
Serge 007, спасибо. Я предполагал, что именно таким образом можно решить вопрос. Но не знаю как заставить макрос автоматически запускаться каждый 30 секунд. Не подскажите?
 
 
 
#4
21.03.2011 12:52:43
Sub Main()  
   Application.OnTime Now + TimeValue("00:00:30"), "Calc"  
   DoEvents  
End Sub  
 
Sub Calc()  
   Calculate  
End Sub
 
 
 
#5
21.03.2011 13:11:51
Точнее даже так (см. вложение).  
 
40,5 Кб
 
 
 
#6
21.03.2011 13:18:33
Спасибо! Но, как остановить это чудо? Книга даже не закрывается, пока код работает...
 
 
 
#7
21.03.2011 13:20:11
{quote}{login=BioVR}{date=21.03.2011 01:18}{thema=}{post}Спасибо! Но, как остановить это чудо? Книга даже не закрывается, пока код работает...{/post}{/quote}Alt+F4 :-)
 
 
 
#8
21.03.2011 13:29:17
Но все же нужна остановка работы макроса - он не сохраняется, пока код работает.  
А Alt+F4 не пробовал, но закрывает :)
 
 
 
#9
21.03.2011 13:57:56
Вопрос решил таким кодом:  
 
Sub Stop_Timer()  
Application.OnTime Now + TimeValue("00:00:01"), _  
   Procedure:="Timer_", Schedule:=False  
End Sub  
 
Serge 007, спасибо за помощь!
 
 
 
#10
21.03.2011 14:11:22
Ошибся в коде, правильно так:  
Sub Stop_Timer()  
Application.OnTime EarliestTime:=Now + TimeValue("00:00:01"), _  
   Procedure:="Timer_", Schedule:=False  
End Sub
 
 
 
#11
21.03.2011 18:02:23
{quote}{login=BioVR}{date=21.03.2011 01:29}{thema=}{post}Alt+F4 не пробовал, но закрывает :){/post}{/quote}  
Это как?!    
:-)))
 
 
 
Страницы: 1
Наверх