Создать ежесекундное обновление функции ТДАТА, при этом нормально работать в Excel

@IvanOK · Регистрация: 25.06.2011

Студворк — интернет-сервис помощи студентам

возможно ли создать ежесекундное оновление функции ТДАТА() и при етом нормально работать в екселе

@Апострофф · 20.02.2012, 21:07

В модуль ЭтаКнига -

Visual Basic
1
2
3
4
Private Sub Workbook_Open()
ThisWorkbook.Worksheets(1).Cells(1, 1).NumberFormat = "dd.mm.yy hh:mm:ss"
tik
End Sub

В отдельный модуль -

Visual Basic
1
2
3
4
Sub tik()
Application.OnTime DateAdd("s", 1, Now), "Tik"
ThisWorkbook.Worksheets(1).Cells(1, 1) = Now
End Sub

Дата + Время (с секундами) в первой ячейке первого листа.

Добавлено через 1 час 30 минут
Упсс

Перестала работать отмена (<Ctrl+Z>). Наверняка найдутся и ещё какие-нить заморочки!?

@IvanOK · 21.02.2012, 11:06 **[ТС]**

Апострофф, чудненько а за счет чего виполнение макроса не загружает полностю ЦП и дает в тот же час возможность работать в нормальном режиме

@ironegg · 21.02.2012, 11:23

IvanOK, в прошлый раз не не помогло? Возможно ли использование Application.Wait ("HH:MM:SS") без полной загрузки ЦП

@Казанский · 21.02.2012, 11:26

Сообщение от IvanOK

чудненько

Угу, а теперь попробуйте закрыть книгу или Excel. Получилось?

Надо отменять задание перед закрытием книги. Код ЭтаКнига:

Visual Basic
1
2
3
4
5
6
7
8
9
10
11
Option Explicit
 
Private Sub Workbook_Open()
ThisWorkbook.Worksheets(1).Cells(1, 1).NumberFormat = "dd.mm.yy hh:mm:ss"
tik
End Sub
 
Private Sub Workbook_BeforeClose(Cancel As Boolean)
On Error Resume Next
Application.OnTime nextTime, "tik", , False
End Sub

В обычный модуль

Visual Basic
1
2
3
4
5
6
7
8
9
Option Explicit
 
Public nextTime
 
Sub tik()
ThisWorkbook.Worksheets(1).Cells(1, 1) = Now
nextTime = Now + #12:00:01 AM# 'вводить #0:0:1#
Application.OnTime nextTime, "tik"
End Sub

@IvanOK · 21.02.2012, 12:45 **[ТС]**

ironegg, помогло но сечас мне нужно ежесекундное оновление или идущие часы

Добавлено через 42 секунды
Казанский, неа шото она тупит

Добавлено через 2 минуты
токо обясните мне за счет чего есть возможность паралельной работы в екселе в нормальном режиме и еще возможно при етом использовать другие макросы

@Казанский · 21.02.2012, 12:53

В заданное время происходит прерывание и управление передается на заданную процедуру (tik).
Она назначает новое время запуска себя же через секунду. Так как процедура отрабатывает за несколько миллисекунд, все остальное время в пределах секунды свободно для других макросов или приложений.

@IvanOK · 21.02.2012, 13:46 **[ТС]**

Казанский, а если макрос виполняется около 5 минут

@Апострофф · 21.02.2012, 15:04

Сообщение от IvanOK

а если макрос виполняется около 5 минут

Ничего страшного! Tik вместе с OnTime потерпят!
А если не устраивает замерзший секундомер, вставь в тело цикла длинного (5 минут) макроса DoEvents

@Святой НякаЛайк · 14.12.2018, 15:51

Сообщение от Казанский

Угу, а теперь попробуйте закрыть книгу или Excel. Получилось?
Надо отменять задание перед закрытием книги. Код ЭтаКнига:

Есть ли способ просмотреть задания, назначенные таким образом?
Поскольку назначенный на какое-то время макрос может открыть окно Экселя для выполнения задачи, стало быть само задание хранится не в Экселе. В реестре, в планировщике задач, в папке "Tasks" при назначении задания тоже ничего не добавляется.
Но где-то же оно есть?

@Hugo121 · 14.12.2018, 18:55

Не, Эксель оно не поднимает, так что можно спать спокойно.

Новые блоги и статьи Все статьи Все блоги /
сукцессия микоризы: основная теория в виде двух уравнений. anaschu 11.01.2026 https:/ / rutube. ru/ video/ 7a537f578d808e67a3c6fd818a44a5c4/	WordPad для Windows 11 Jel 10.01.2026 WordPad для Windows 11 — это приложение, которое восстанавливает классический текстовый редактор WordPad в операционной системе Windows 11. После того как Microsoft исключила WordPad из. . .	Classic Notepad for Windows 11 Jel 10.01.2026 Old Classic Notepad for Windows 11 Приложение для Windows 11, позволяющее пользователям вернуть классическую версию текстового редактора «Блокнот» из Windows 10. Программа предоставляет более. . .	Почему дизайн решает? Neotwalker 09.01.2026 В современном мире, где конкуренция за внимание потребителя достигла пика, дизайн становится мощным инструментом для успеха бренда. Это не просто красивый внешний вид продукта или сайта — это. . .
Модель микоризы: классовый агентный подход 3 anaschu 06.01.2026 aa0a7f55b50dd51c5ec569d2d10c54f6/ O1rJuneU_ls https:/ / vkvideo. ru/ video-115721503_456239114	Owen Logic: О недопустимости использования связки «аналоговый ПИД» + RegKZR ФедосеевПавел 06.01.2026 Owen Logic: О недопустимости использования связки «аналоговый ПИД» + RegKZR ВВЕДЕНИЕ Введу сокращения: аналоговый ПИД — ПИД регулятор с управляющим выходом в виде числа в диапазоне от 0% до. . .	Модель микоризы: классовый агентный подход 2 anaschu 06.01.2026 репозиторий https:/ / github. com/ shumilovas/ fungi ветка по-частям. коммит Create переделка под биомассу. txt вход sc, но sm считается внутри мицелия. кстати, обьем тоже должен там считаться. . . .	Расчёт токов в цепи постоянного тока igorrr37 05.01.2026 / * Дана цепь постоянного тока с сопротивлениями и источниками (напряжения, ЭДС и тока). Найти токи и напряжения во всех элементах. Программа составляет систему уравнений по 1 и 2 законам Кирхгофа и. . .

@IvanOK 693 / 99 / 10 Регистрация: 25.06.2011 Сообщений: 718

	Создать ежесекундное обновление функции ТДАТА, при этом нормально работать в Excel 20.02.2012, 19:19. Показов 11843. Ответов 10 Метки нет (Все метки) возможно ли создать ежесекундное оновление функции ТДАТА() и при етом нормально работать в екселе 0

@IvanOK 693 / 99 / 10 Регистрация: 25.06.2011 Сообщений: 718
	21.02.2012, 11:06 [ТС]
	Апострофф, чудненько а за счет чего виполнение макроса не загружает полностю ЦП и дает в тот же час возможность работать в нормальном режиме 0

@ironegg 1905 / 782 / 31 Регистрация: 11.02.2010 Сообщений: 1,567
	21.02.2012, 11:23
	IvanOK, в прошлый раз не не помогло? Возможно ли использование Application.Wait ("HH:MM:SS") без полной загрузки ЦП 0

@IvanOK 693 / 99 / 10 Регистрация: 25.06.2011 Сообщений: 718
	21.02.2012, 12:45 [ТС]
	ironegg, помогло но сечас мне нужно ежесекундное оновление или идущие часы Добавлено через 42 секунды Казанский, неа шото она тупит Добавлено через 2 минуты токо обясните мне за счет чего есть возможность паралельной работы в екселе в нормальном режиме и еще возможно при етом использовать другие макросы 0

@Казанский 15155 / 6428 / 1731 Регистрация: 24.09.2011 Сообщений: 9,999
	21.02.2012, 12:53
	В заданное время происходит прерывание и управление передается на заданную процедуру (tik). Она назначает новое время запуска себя же через секунду. Так как процедура отрабатывает за несколько миллисекунд, все остальное время в пределах секунды свободно для других макросов или приложений. 1

@IvanOK 693 / 99 / 10 Регистрация: 25.06.2011 Сообщений: 718
	21.02.2012, 13:46 [ТС]
	Казанский, а если макрос виполняется около 5 минут 0

@Hugo121 6997 / 2895 / 555 Регистрация: 19.10.2012 Сообщений: 8,803
	14.12.2018, 18:55
	Не, Эксель оно не поднимает, так что можно спать спокойно. 1

Создать ежесекундное обновление функции ТДАТА, при этом нормально работать в Excel

Решение