Як вставити мітку часу за допомогою vba (з прикладом)

Ви можете використовувати такий базовий синтаксис у VBA, щоб вставити мітку часу в певну клітинку в Excel:

 SubInsertTimestamp ()

Range("A1").Value = Format(Now, "mm/dd/yyyy hh:mm:ss")
    
End Sub

Цей конкретний макрос вставляє поточний час у форматі мм/дд/рррр гг:хх:сс у клітинку A1 .

Примітка . Функція Now у VBA повертає поточну дату й час на основі системної дати й часу вашого комп’ютера.

У наступному прикладі показано, як використовувати цей синтаксис на практиці.

Приклад: як вставити позначку часу за допомогою VBA

Припустімо, ми створюємо такий макрос, щоб вставити поточну дату й час як позначку часу в клітинку A1 нашого поточного аркуша в Excel:

 SubInsertTimestamp ()

Range("A1").Value = Format(Now, "mm/dd/yyyy hh:mm:ss")
    
End Sub

Коли ми запускаємо цей макрос, ми отримуємо такий результат:

У комірці A1 тепер відображається поточна дата й час виконання цього макросу.

Для цього конкретного прикладу дата й час мають формат мм/дд/рррр гг:хх:сс .

Зверніть увагу, що ми також можемо вказати інший формат для використання.

Наприклад, ми могли б створити такий макрос для відображення поточного часу у форматі дд-мм-рррр гг:хх:сс у клітинці B1 :

 SubInsertTimestamp ()

Range("A1").Value = Format(Now, "mm/dd/yyyy hh:mm:ss")
Range("B1").Value = Format(Now, "dd-mm-yyyy hh:mm:ss")

End Sub

Коли ми запускаємо цей макрос, ми отримуємо такий результат:

Тепер клітинки A1 і B1 відображають поточну дату й час у різних форматах.

Примітка . Ви можете знайти повну документацію функції Format у VBA тут .

Додаткові ресурси

У наступних посібниках пояснюється, як виконувати інші типові завдання у VBA:

Як порівняти дати у VBA
Як відформатувати час у VBA
Як розрахувати різницю в часі у VBA