Очень нужен таймер обратного отчета, лист обновляется автоматически через выставленный параметр задержки, нужно визуализировать процесс обратного отчета оставшегося времени (можно в ячейке), и чтобы отчет начинался заново после каждого окончания автообновления, такое осуществимо?
Как сделать таймер для автообновляемого листа., Как сделать таймер для автообновляемого листа.
27.09.2022 09:30:22
|
|
|
|
27.09.2022 09:42:03
Narmer,
т.е. нужно указать через сколько начнется обновление? может быть лучше обновлять данные вот так:
или так
Изменено: |
|||||
|
|
27.09.2022 09:44:30
|
|||
|
|
27.09.2022 09:46:40
Narmer,
а для чего данная информация? слишком долго обновляется? и как Вы себе это представляете? как можно замерить не завершенный процесс? можно попробовать взять какую-то константу, но это будет очень примерно и в зависимости от кучи условий будет изменяться
Изменено: |
|
|
|
27.09.2022 09:51:33
|
|||
|
|
27.09.2022 09:54:23
|
|||
|
|
27.09.2022 10:07:35
изначально автоматически запускается макрос на обновление страницы, лист обновился, начинается обратный отчет 15 сек до следующего обновления, процесс обратного отчета времени до следующего обновления нужно вывести в ячейку для визуализации остатка времени.
Изменено: |
|||||
|
|
27.09.2022 10:42:38
двойной клик по ячейке с временем
Программисты - это люди, решающие проблемы, о существовании которых Вы не подозревали, методами, которых Вы не понимаете!
|
|
|
|
27.09.2022 10:59:19
Изменено: |
|||
|
|
27.09.2022 11:06:40
а в примере не зациклено? (на бесконечный цикл)
Программисты - это люди, решающие проблемы, о существовании которых Вы не подозревали, методами, которых Вы не понимаете!
|
|
|
|
27.09.2022 11:19:48
а можете Ваш макрос законнектить к моему макросу, а то я в этом мало что разбираюсь: Sub UpdateCell() ActiveWorkbook.RefreshAll Application.OnTime Now + TimeValue("00:00:15"), "UpdateCell" End Sub Не получается видео файл приложить, сделал скрин
Изменено: |
|||
|
|
27.09.2022 11:24:31
Изменено: |
|
|
|
27.09.2022 11:28:14
Изменено: |
|||
|
|
27.09.2022 11:35:03
см. сообщение 12
закомментируйте MsgBox "ReFresh" раскомментируйте ThisWorkbook.RefreshAll
Изменено:
Программисты - это люди, решающие проблемы, о существовании которых Вы не подозревали, методами, которых Вы не понимаете!
|
|
|
|
27.09.2022 11:37:36
del
Изменено: |
|
|
|
27.09.2022 12:11:15
Narmer,
86400 - количество секунд в сутках |
|
|
|
27.09.2022 12:17:35
|
|
|
|
27.09.2022 15:01:06
Вариант Игоря Гончаренко, синхронизированный с часами
Изменено: |
|||
|
|
27.09.2022 15:35:04
|
|||||
|
|
27.09.2022 15:44:06
Narmer, все то же самое, только более строгая привязка ко времени
|
|
|
|
27.09.2022 16:10:14
Еще так можно ActiveSheet.ListObjects(1).Refresh
Изменено: |
||||
|
|
|||