Перейти к содержимому

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

Author: Sun Last Modified: 2025-06-05

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

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

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

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

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


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

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

Вставить текущую дату: Control + :
screenahot of inserting current date by using Control + :

Вставить текущее время: Shift + Control + :
screenahot of inserting current date by using Shift + Control + :

См. скриншот:
current date and time are inserted

Советы:

1. Вы можете отформатировать результаты как форматы даты или времени по вашему усмотрению в диалоговом окне Установить формат ячейки.

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


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

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

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

=СЕГОДНЯ()

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

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

=ТЕПЕРЬ()

Нажмите клавишу Enter, и текущая дата и время будут вставлены в ячейку.
Insert date and timestamp with formula

Советы:

1. Вы можете отформатировать результаты как форматы даты или времени по вашему усмотрению в диалоговом окне Установить формат ячейки. Например, если вы хотите отобразить только текущее время, просто отформатируйте ячейку как Время после использования формулы =ТЕПЕРЬ().

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


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

Предположим, у вас есть два столбца, Столбец A и Столбец B, и теперь вы хотите вставить текущую отметку времени в Столбец B при вводе данных в Столбец A, как это сделать?

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

1. Сначала нажмите Файл > Опции чтобы открыть диалоговое окно Параметры Excel выберите Формулы в левой панели, затем отметьте Включить итерационные вычисления в группе Параметры вычислений И нажмите OK.
check Enable iteractive calculation in Options dialog

2. В Столбце B, например, Ячейка B1, введите эту формулу

=ЕСЛИ(A1<>"";ЕСЛИ(B1<>"";B1;ТЕПЕРЬ());"")

затем перетащите маркер автозаполнения вниз к другим ячейкам.
enter a formula

3. Затем отформатируйте ячейки с формулами в нужный формат даты и времени в диалоговом окне Установить формат ячейки диалог: выберите ячейки с формулами, щелкните правой кнопкой мыши, чтобы открыть контекстное меню, выберите Установить формат ячейки, затем появится диалоговое окно Установить формат ячейки в разделе Пользовательский который находится под вкладкой Число введите нужный формат в поле Тип и нажмите OK.
foramt the foemula cells as datetime format

Теперь, когда вы вводите данные в Столбец A, текущая дата и время будут вставлены в Столбец B.
when entering data into Column A, the current datetime will be inserted in Column B

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

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

=ЕСЛИ(A1<>"";ЕСЛИ(И(B1<>"";ЯЧЕЙКА("адрес")=АДРЕС(СТРОКА(A1);СТОЛБЕЦ(A1)));ТЕПЕРЬ();ЕСЛИ(ЯЧЕЙКА("адрес")<>АДРЕС(СТРОКА(A1);СТОЛБЕЦ(A1));B1;ТЕПЕРЬ()));"")

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

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

Затем отформатируйте ячейки с формулами в нужный формат даты и времени в диалоговом окне Установить формат ячейки: выберите ячейки с формулами, щелкните правой кнопкой мыши, чтобы открыть контекстное меню, выберите Установить формат ячейки, затем появится диалоговое окно Установить формат ячейки, в разделе Пользовательский, который находится под вкладкой Число, введите нужный формат в поле Тип, нажмите OK.


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

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

1. Щелкните правой кнопкой мыши по вкладке рабочего листа, которую вы используете, затем выберите Просмотр кода из контекстного меню.
click View Code from right click menu

2. Затем в окне Microsoft Visual Basic for Applications вставьте следующий код.

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

copy and paste the vba code into the module

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

Примечание: вы можете изменить столбцы A и B, а также формат времени mm/dd/yyyy hh:mm:ss в коде VBA, чтобы соответствовать вашим реальным потребностям.

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

1. Удерживайте Alt + F11 чтобы открыть окно Microsoft Visual Basic for Applications И нажмите Вставить > Модуль чтобы вставить пустой модуль.
click Insert > Module to insert a blank module

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

copy and paste the vba code into the module

3. В ячейке, куда будет вставлена отметка времени, введите эту формулу

=FormatDate(F1)

F1 — это ячейка, в которую вы будете вводить или изменять данные. Затем перетащите маркер автозаполнения вниз к ячейкам.
enter a formual to get the result

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


Другие операции (статьи), связанные с DateTime

Преобразование даты, хранящейся как текст, в дату в Excel
Иногда, когда вы копируете или импортируете даты из других источников данных в ячейку Excel, дата может быть отформатирована и сохранена как текст. Здесь я представляю способы преобразования таких дат, хранящихся как текст, в стандартные даты в Excel.

Добавить/вычесть полгода/месяц/час к дате или времени в Excel
Добавление года, месяца или часа к дате или времени — это обычная задача в нашей повседневной работе с Excel. Пробовали ли вы добавить полгода, месяц или час к дате или времени? Здесь я представляю способы решения этой задачи.

Усреднение временных меток дня в Excel
Например, вы записали временные метки входа каждый раз, когда конкретный пользователь заходил на сайт в Excel, и теперь вы хотите усреднить эти временные метки, чтобы предсказать наиболее вероятное время, когда этот пользователь снова зайдет на сайт в будущем. Как это сделать?

Вычисление часов между временами после полуночи в Excel
Предположим, у вас есть таблица времени для записи вашего рабочего времени, время в Столбце A — это время начала сегодняшнего дня, а время в Столбце B — это время окончания следующего дня. Обычно, если вы рассчитываете разницу во времени между двумя временами, вычитая "=B2-A2", это не покажет правильный результат.


Лучшие инструменты для повышения производительности Office

Kutools для Excel решает большинство ваших проблем и увеличивает вашу продуктивность на 80%

  • Супер строка формул (легкое редактирование нескольких строк текста и формул); Режим чтения (удобное чтение и редактирование большого количества ячеек); Вставка в отфильтрованный диапазон...
  • Объединение ячеек/строк/столбцов с сохранением данных; Разделение содержимого ячеек; Объединение дублирующихся строк с подсчетом суммы/среднего значения... Предотвращение дублирования ячеек; Сравнение диапазонов...
  • Выбор дублирующихся или уникальных строк; Выбор пустых строк (все ячейки пустые); Супер поиск и нечеткий поиск во многих книгах; Случайный выбор...
  • Точное копирование нескольких ячеек без изменения ссылок на формулы; Автоматическое создание ссылок на несколько листов; Вставка маркеров, флажков и многое другое...
  • Избранные и быстрая вставка формул, диапазонов, диаграмм и изображений; Шифрование ячеек с паролем; Создание списка рассылки и отправка электронных писем...
  • Извлечение текста, добавление текста, удаление по позиции, удаление пробелов; Создание и печать статистики страниц; Преобразование между содержимым ячеек и комментариями...
  • Супер фильтр (сохранение и применение схем фильтрации к другим листам); Расширенная сортировка по месяцу/неделе/дню, частоте и другим параметрам; Специальный фильтр по жирному шрифту, курсиву...
  • Объединение книг и листов; Объединение таблиц на основе ключевых столбцов; Разделение данных на несколько листов; Пакетное преобразование xls, xlsx и PDF...
  • Группировка сводной таблицы по номеру недели, дню недели и другим параметрам... Отображение разблокированных, заблокированных ячеек разными цветами; Выделение ячеек, содержащих формулы/имена...
kte tab 201905
  • Включение редактирования и чтения с вкладками в Word, Excel, PowerPoint, Publisher, Access, Visio и Project.
  • Открывайте и создавайте несколько документов в новых вкладках одного окна, а не в новых окнах.
  • Увеличивает вашу продуктивность на 50% и экономит сотни кликов мышью каждый день!
officetab bottom