Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > Microsoft Office и VBA программирование > Microsoft Office Excel
Регистрация

Восстановить пароль
Повторная активизация e-mail

Купить рекламу на форуме - 42 тыс руб за месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 02.07.2009, 15:27   #1
iamaxl
Пользователь
 
Регистрация: 02.07.2009
Сообщений: 14
По умолчанию постоянное получение системного времени в ячейке

опять я. опять здравствуйте. необходимо было создать ячейку, получающую значение системного время в реальном времени. именно так.
написал следующее
Sub TimeInCell()
Do While Time < #11:00:00 PM#
ActiveSheet.Cells(1, 5).Value = Time
Loop
End Sub
работает, но excel виснет намертво, подскажите, может кто-нибудь знает, как еще получать время или как сделать, чтобы все не висело. спасибо
iamaxl вне форума Ответить с цитированием
Старый 02.07.2009, 16:21   #2
EducatedFool
Программист VBA
СуперМодератор
 
Аватар для EducatedFool
 
Регистрация: 13.07.2008
Сообщений: 6,856
По умолчанию

Используйте DoEvents для временной передачи управления операционной системе.
Тогда не будет виснуть:



Второй пример считает время неточно.
EducatedFool вне форума Ответить с цитированием
Старый 02.07.2009, 20:34   #3
iamaxl
Пользователь
 
Регистрация: 02.07.2009
Сообщений: 14
По умолчанию

огромное спасибо. а в чем проявляется неточность времени во втором примере?
iamaxl вне форума Ответить с цитированием
Ответ


Купить рекламу на форуме - 42 тыс руб за месяц



Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Перевод системного времени средствами Delphi7 Alex Cones Общие вопросы Delphi 7 19.04.2009 08:57
получение системного времени Alex_Pro Общие вопросы C/C++ 1 21.05.2008 20:31
Динамик системного блока Михаил Юрьевич Общие вопросы Delphi 4 28.01.2008 18:31