Быстрая и автоматическая Вставить дату и отметка времени в Excel

Вставка даты и времени в Excel — это обычная операция. В данном руководстве описаны различные методы ручной и автоматической вставки даты и времени в ячейки Excel на примерах разных ситуаций.

Вставить дату и отметка времени с помощью сочетаний клавиш

Вставить дату и отметка времени с помощью формулы

Формула для автоматической вставки отметки времени при вводе данных в другой столбец

Макрос VBA для автоматической вставки отметки времени при вводе данных в другой столбец

---

Если вам нужно вставить дату и отметку времени лишь в несколько ячеек, просто воспользуйтесь соответствующими сочетаниями клавиш.

Вставить текущую дату:Ctrl+;

Вставить текущее время:Shift+Ctrl+;

См. снимок экрана:

Советы:

1. Вы можете отформатировать результаты в нужный вам формат даты или времени в диалоговом окне Формат даты.

2. Если у вас установлено Kutools для Excel, вы можете вставить текущую или любую другую дату в нужном формате с помощью функции Вставить дату. Нажмите для бесплатной загрузки

---

Если вы хотите вставить дату или отметку времени, которая будет автоматически обновляться, воспользуйтесь приведёнными ниже формулами.

Вставить текущую дату

=TODAY()

Нажмите клавишу Enter — и текущая дата вставится в ячейку.

Вставить текущее время:

=NOW()

Нажмите клавишу Enter — и текущие дата и время будут вставлены в ячейку.

Советы:

1. Вы можете отформатировать результаты в нужный вам формат даты Формат даты или времени в диалоговом окне. Например, если вы хотите отображать только текущее время, просто отформатируйте ячейку как «Время» после использования формулы =NOW().

2. Если вы хотите вставить текущую дату и время в верхний или нижний колонтитул листа, воспользуйтесь функцией Вставить информацию о книге из Kutools для Excel, чтобы быстро выполнить эту задачу. Нажмите для бесплатной загрузки

---

Допустим, у вас есть два столбца — A и B. Как автоматически вставлять текущую отметку времени в столбец B при вводе данных в столбец A?

Автоматическая вставка отметки времени при вводе данных

1. Сначала нажмите Файл > Параметры, чтобы открыть диалоговое окно Параметры Excel. Выберите Формулы на левой панели, установите флажок Включить итеративные вычисления в группе Параметры вычислений и нажмите ОК.

2. В столбце B, например в ячейке B1, введите следующую формулу:

=IF(A1<,>,«»,IF(B1<,>,«»,B1,NOW()),«»)

Затем перетащите маркер автозаполнения вниз по ячейкам.

3. Затем отформатируйте ячейки с формулами в нужный вам формат даты и времени в диалоговом окне Установить формат ячейки: выделите ячейки с формулами, щёлкните правой кнопкой мыши, чтобы открыть контекстное меню, и выберите Установить формат ячейки — после этого откроется диалоговое окно Установить формат ячейки. На вкладке Число в разделе Числовые форматы выберите категорию (все форматы) и введите нужный формат в поле Тип, затем нажмите ОК.

Теперь при вводе данных в столбец A текущие дата и время автоматически появятся в столбце B.

Автоматическая вставка и обновление отметки времени при изменении ячейки в другом столбце

Если вы хотите автоматически вставлять отметку времени при вводе данных и одновременно обновлять её при изменении введённых данных, используйте следующую формулу:

=IF(A1<,>,«»,IF(AND(B1<,>,«»,CELL(«address»)=ADDRESS(ROW(A1),COLUMN(A1))),NOW(),IF(CELL(«address»)<,>,ADDRESS(ROW(A1),COLUMN(A1)),B1,NOW())),«»)

A1 — ячейка для ввода данных; B1 — ячейка с формулой, в которую будет вставляться отметка времени.

Перетащите маркер автозаполнения вниз по задействованным ячейкам.

Затем отформатируйте ячейки с формулами в нужный вам формат даты и времени в диалоговом окне Установить формат ячейки: выделите ячейки с формулами, щёлкните правой кнопкой мыши, чтобы открыть контекстное меню, и выберите Установить формат ячейки — после этого откроется диалоговое окно Установить формат ячейки. На вкладке Число в разделе Числовые форматы выберите категорию (все форматы) и введите нужный формат в поле Тип, затем нажмите «ОК».

---

Если вы знакомы с кодом VBA, выполните следующие действия:

1. Щёлкните правой кнопкой мыши по ярлыку нужного листа и выберите в контекстном меню пункт Просмотреть код.

2. Затем в окне Microsoft Visual Basic для приложений вставьте приведённый ниже код.

VBA: Автоматическая вставка отметки времени

Private Sub Worksheet_Change(ByVal Target As Range)
'UpdatebyKutools20190919
Dim xRInt As Integer
Dim xDStr As String
Dim xFStr As String
On Error Resume Next
xDStr = "A" 'Data Column
xFStr = "B" 'Timstamp Column
If (Not Application.Intersect(Me.Range(xDStr & ":" & xDStr), Target) Is Nothing) Then
       xRInt = Target.Row
       Me.Range(xFStr & xRInt) = Format(Now(), "mm/dd/yyyy hh:mm:ss")
End If
End Sub

3. Затем сохраните этот код. Теперь при вводе или изменении данных в столбце A в столбец B будет автоматически добавляться новая отметка времени.

Примечание: вы можете адаптировать столбцы A и B, а также формат времени «мм/дд/гггг чч:мм:сс» в коде VBA под свои нужды.

Если вы хотите использовать определённую функцию, выполните следующие действия:

1. Нажмите сочетание клавиш Alt + F11, чтобы открыть окно Microsoft Visual Basic для приложений. Затем выберите Вставка > Модуль, чтобы добавить новый пустой модуль.

2. Вставьте приведённый ниже код в новый модуль, сохраните изменения и вернитесь на лист.

Function FormatDate(xRg As Range)
'UpdatebyKutools20190919
On Error GoTo Err_01
If xRg.Value <> "" Then
    FormatDate = Format(Now, "mm/dd/yyyy hh:mm:ss")
Else
    FormatDate = ""
End If
Exit Function
Err_01:
    FormatDate = "Error"
End Function

3. В ячейку, куда должна вставляться отметка времени, введите следующую формулу:

=FormatDate(F1)

F1 — ячейка, в которую вы будете вводить или изменять данные. Затем перетащите маркер автозаполнения вниз по нужным ячейкам.

Теперь текущие дата и время будут автоматически вставлены, как только в ячейку F1 введут данные или обновят её содержимое.

---