Функція часу Excel VBA
Функція часу VBA повертає поточний час, також важливо відзначити, що ця функція не має жодних аргументів, ще одним важливим фактором, який слід пам’ятати, є те, що ця функція повертає поточний системний час. За допомогою цієї функції ми можемо фактично знайти фактичний час, який займає рядок кодів для завершення процесу.
ЧАС - це різновид летючої функції, вона не має жодного синтаксису.
У нас також є подібна функція в excel - функція NOW (), яка вставляє як поточний час, так і поточну дату в електронну таблицю
ЧАС ()
Нам просто потрібно ввести функцію, насправді, для вставки поточного часу недостатньо необхідності вводити в дужки лише ТИМ. Результат, наданий функцією TIME, є у рядку.
Як використовувати функцію TIME у VBA?
Дозвольте мені показати вам приклад простого TIME у функції excel. Виконайте наведені нижче дії, щоб створити код для використання функції TIME.
Ви можете завантажити цей шаблон функцій часу VBA тут - Шаблон функції часу VBAКрок 1: Створіть макрос.
Код:
Sub Time_Example1 () Кінець Sub
Крок 2: Оголосіть змінну як String.
Код:
Sub Time_Example1 () Затемнити CurrentTime як рядок End Sub
Крок 3: Призначте значення цій змінній за допомогою функції TIME.
Код:
Sub Time_Example1 () Затемнити CurrentTime як рядок CurrentTime = Час Кінець Sub
Крок 4: Тепер покажіть результат у вікні повідомлення.
Код:
Sub Time_Example1 () Затемнити CurrentTime як рядок CurrentTime = Час MsgBox CurrentTime End Sub
Запустіть цей код за допомогою клавіші F5 або вручну ми отримаємо поточний час.
Отже, коли я запускаю цей код, час був 11.51.54 AM.
Альтернатива функції Now ()
Поєднання дати та часу як альтернатива функції ЗАРАЗ
Як я вже говорив на початку статті, ЗАРАЗ можна вставити поточну дату та час. Однак ми можемо використовувати дві інші функції як альтернативну функцію ЗАРАЗ функцію, ці дві функції є функціями VBA DATE і VBA TIME.
VBA Date поверне поточну дату, а Time - поточний, тому це робить функцію NOW. Нижче набір коду, який вставить поточну дату та час у клітинку А1.
Код:
Sub Time_Example2 () Діапазон ("A1"). Значення = Дата & "" & Час Кінець Sub
Цей код вставить поточну дату та час у клітинку А1.
Ми також можемо застосувати формат до цих значень за допомогою функції FORMAT. Наведений нижче код буде форматувати дату та час.
Код:
Sub Time_Example2 () Діапазон ("A1"). Значення = Дата & "" & Діапазон часу ("A1"). NumberFormat = "dd-mmm-yyyy hh: mm: ss AM / PM" End Sub
Тепер результат цього коду такий.
Відстежуйте відкриті записи вашої книги за допомогою функції часу у VBA
Часто нам потрібно знати частоту відкриття нашої робочої книги. Існує ситуація, коли ми досить часто відкриваємо книгу і вносимо деякі зміни. Відстежуючи час та дату відкриття книги, ми можемо відстежувати час її відкриття.
Створіть новий аркуш і перейменуйте його на «Трек-аркуш».
Крок 1: Двічі клацніть на цій книзі з редактора VBE.
Step 2: Select the workbook from the object drop-down list.
Step 3: As soon as you select this option you can see new macro automatically created by itself in the name “Workbook_Open()”.
Step 4: Inside this macro, we will need to write a code to track the workbook opening date & time.
I have already written code and below is the code for you.
Code:
Private Sub Workbook_Open() Dim LR As Long LR = Sheets("Track Sheet").Cells(Rows.Count, 1).End(xlUp).Row + 1 Sheets("Track Sheet").Cells(LR, 1).Value = Date & " " & Time() Sheets("Track Sheet").Cells(LR, 1).NumberFormat = "dd-mmm-yyyy hh:mm:ss AM/PM" End Sub
This will record your workbook opening times like the below one.