Бързо и автоматично вмъкнете дата и време в Excel

В Excel вмъкването на дата и време е нормална операция. Тук, в този урок, ще представя множество методи за ръчно или автоматично вмъкване на дата и време в клетки на Excel, като предоставям различни случаи.

Въведете дата и времево клеймо с преки пътища

Въведете дата и времево клеймо с формула

Формула за автоматично вмъкване на дата и час, докато въвеждате данни в друга колона

VBA за автоматично вмъкване на клеймо за време, докато въвеждате данни в друга колона

Ако просто трябва да вмъкнете дата и времево клеймо в няколко клетки, можете да ги вмъкнете ръчно, като натиснете клавишни комбинации.

Въведете текуща дата: контрол + :

Въведете текущия час: Превключване + контрол + :

Вижте екранна снимка:

Съвет:

1. Можете да форматирате изходите като формати за дата или формати за час, както ви е необходимо Форматиране на клетки диалогов прозорец.

2. Ако имате Kutools за Excel, можете да вмъкнете текущата дата или други дати в определен формат на датата, както ви е необходимо с него Въведете дата функция. Кликнете за безплатно изтегляне

Ако искате да вмъкнете дата или клеймо за час, които могат да се актуализират автоматично, можете да използвате формулите по-долу.

Въведете текуща дата

= ДНЕС ()

Натискане Въведете и текущата дата се вмъква в клетката.

Въведете текущия час:

= СЕГА ()

Натиснете клавиша Enter и текущата дата и час се вмъкват в клетката.

Съвет:

1. Можете да форматирате изходите като формати за дата или формати за час, както ви е необходимо Форматиране на клетки диалогов прозорец. Например, искате да покажете само текущото време, просто форматирайте клетката като време, след като използвате = СЕГА () формула

2. Ако искате да вмъкнете текущата дата и час в горния или долния колонтитул на работния лист, можете да използвате Вмъкване на информация за работна книга функция на Kutools за Excel за бързо справяне с тази работа. Кликнете за безплатно изтегляне

Да предположим, че има две колони, колона A и колона B, сега искате да вмъкнете текущото времево клеймо в колона B, докато въвеждате данни в колона A, как можете да го направите?

Автоматично вмъкване на клеймо за време, докато въвеждате данни

1. Първо щракнете досие > Настроики за да отворите Опции на Excel диалогов прозорец, изберете формули в левия панел, след което проверете Разрешете итерактивно изчисление in Опции за изчисление група. И щракнете OK.

2. В колона B, например, клетка B1, въведете тази формула

=АКО(A1<>"",АКО(B1<>"",B1,СЕГА()),"")

след това плъзнете манипулатора за автоматично попълване надолу към клетките.

3. След това форматирайте клетките с формула като формат за дата и час, както ви е необходим в Форматиране на клетки диалогов прозорец: запазете избраните клетки с формула, щракнете с десния бутон, за да се покаже контекстното меню, изберете Форматиране на клетки, тогава Форматиране на клетки изскача диалогов прозорец в Custom раздел, който под Телефон за връзка: раздел, въведете формата, от който се нуждаете, в Тип текстово поле и щракнете OK.

Сега, когато въвеждате данни в колона 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 е клетката с формула, в която искате да вмъкнете времево клеймо.

Плъзнете манипулатора за автоматично попълване надолу по клетките, които използвате.

След това форматирайте клетките с формула като формат за дата и час, както ви е необходим в Форматиране на клетки диалогов прозорец: запазете избраните клетки с формула, щракнете с десния бутон, за да се покаже контекстното меню, изберете Форматиране на клетки, тогава Форматиране на клетки изскача диалогов прозорец в Custom раздел, който под Телефон за връзка: раздел, въведете формата, от който се нуждаете, в Тип текстово поле, щракнете OK.

Ако сте запознати с 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 и формат на часа mm/dd/yyyy hh:mm:ss във 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 въведе данни или се актуализира.

---

Най-добрите инструменти за производителност в офиса

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

• Супер Формула Бар (лесно редактиране на няколко реда текст и формула); Оформление за четене (лесно четене и редактиране на голям брой клетки); Поставяне във филтриран диапазон...
• Обединяване на клетки/редове/колони и съхраняване на данни; Съдържание на разделени клетки; Комбинирайте дублиращи се редове и сума/средно... Предотвратяване на дублиращи се клетки; Сравнете диапазони...
• Изберете Дублиран или Уникален редове; Изберете Празни редове (всички клетки са празни); Super Find и Fuzzy Find в много работни тетрадки; Произволен избор...
• Точно копие Множество клетки без промяна на референтната формула; Автоматично създаване на препратки към множество листа; Вмъкване на куршуми, квадратчета за отметка и други...
• Любими и бързо вмъкнати формули, диапазони, диаграми и снимки; Шифроване на клетки с парола; Създаване на пощенски списък и изпращайте имейли...
• Извличане на текст, Добавяне на текст, Премахване по позиция, Премахване на пространството; Създаване и отпечатване на междинни суми за пейджинг; Конвертиране на съдържание и коментари между клетки...
• Супер филтър (запазване и прилагане на филтърни схеми към други листове); Разширено сортиране по месец/седмица/ден, честота и други; Специален филтър с удебелен шрифт, курсив...
• Комбинирайте работни тетрадки и работни листове; Обединяване на таблици въз основа на ключови колони; Разделете данните на няколко листа; Пакетно конвертиране на xls, xlsx и PDF...
• Групиране на обобщена таблица по номер на седмицата, ден от седмицата и други... Показване на отключени, заключени клетки с различни цветове; Маркирайте клетки, които имат формула/име...

Прочети повече ... Пълни функции 30-дневен безплатен пробен период... Покупка... 

---

Раздел Office - предоставя интерфейс с раздели в Office и прави работата ви много по-лесна

• Разрешете редактиране и четене с раздели в Word, Excel, PowerPoint, Publisher, Access, Visio и Project.
• Отваряйте и създавайте множество документи в нови раздели на един и същ прозорец, а не в нови прозорци.
• Увеличава вашата производителност с 50% и намалява стотици кликвания на мишката за вас всеки ден!

Прочети повече ... Пълни функции 30-дневен безплатен пробен период... Покупка...