Как вставить временную метку с помощью 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