Как сделать секундомер в 1с

Обновлено: 07.01.2025

Здравствуйте.
Хочу проверить 1 теорию.
Вывожу данные в таблицу из Quik через DDE-сервер и данные меняются примерно 1 раз в секунду.
Разобрался как отсеять лишнее, но не понял как настроить макрос, чтобы можно было отследить сколько времени значение остаётся неизменным.
Есть подготовленный файл с моими формулами, прошу сделать макрос чтобы напротив каждого слова "Покупка" и "Продажа" появился секундомер способный досчитать до нескольких часов, если значение не меняется. И если значение изменилось, то пусть начинает считать сначала.
Не понятно как быть если связь оборвётся или интернет пропадёт.

борода в 2014 уже написал таймер, я так понимаю это он и есть, но как его вставить и подключить я не понимаю.

Sub StartClock()
t_ = 0
UpdateClock
End Sub

Sub StopClock()
On Error Resume Next
Application.OnTime tt, "UpdateClock", , False
End Sub

Sub UpdateClock()
t_ = t_ + TimeValue("00:00:01")
[A1] = t_
tt = Now + TimeValue("00:00:01")
Application.OnTime tt, "UpdateClock"
End Sub

борода в 2014 уже написал таймер, я так понимаю это он и есть, но как его вставить и подключить я не понимаю.

Sub StartClock()
t_ = 0
UpdateClock
End Sub

Sub StopClock()
On Error Resume Next
Application.OnTime tt, "UpdateClock", , False
End Sub

Sub UpdateClock()
t_ = t_ + TimeValue("00:00:01")
[A1] = t_
tt = Now + TimeValue("00:00:01")
Application.OnTime tt, "UpdateClock"
End Sub serhiishytikov

Читайте также: