Вставка даты в ячейку excel макрос

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

Предположим, у нас имеется таблица заказов, куда пользователь вводит номер заказа, имя клиента, сумму и т.д. Необходимо сделать так, чтобы при внесении номера заказа в столбец А — в столбце B напротив введенного заказа автоматически появлялись дата и время его занесения:

Чтобы реализовать такой ввод даты, нам потребуется простой макрос, который надо добавить в модуль рабочего листа. Для этого щелкните правой кнопкой мыши по ярлычку листа с таблицей и выберите в контекстном меню команду Исходный текст (View code).

В открывшееся окно редактора Visual Basic скопируйте этот текст этого макроса:

Private Sub Worksheet_Change(ByVal Target As Range)
    
    For Each cell In Target   'проходим по всем измененным ячейкам
       If Not Intersect(cell, Range("A2:A100")) Is Nothing Then  'если изменененная ячейка попадает в диапазон A2:A100
            With cell.Offset(0, 1)         'вводим в соседнюю справа ячейку дату
               .Value = Now
               .EntireColumn.AutoFit  'выполняем автоподбор ширины для столбца B, чтобы дата умещалась в ячейке
            End With
       End If
    Next cell
End Sub

При необходимости измените «чувствительный» диапазон «А2:А100» на свой собственный. Если необходимо вставлять дату не в соседний столбец, а правее — подставьте в оператор Offset(0,1) вместо 1 число побольше.

Закройте редактор Visual Basic и попробуйте ввести что-нибудь в диапазон А2:А100. В соседней ячейке тут же появится текущая дата-время!

Ссылки по теме

• Как сделать выпадающий календарь для быстрого ввода любой даты мышью в любую ячейку.
• Как Excel работает с датами
• Что такое макрос, как он работает, куда копировать текст макроса, как запустить макрос?

Информация о материале

Категория: Макросы Excel

Опубликовано: 25 сентября 2013

Sub InsertDate()
' Вставка текущей даты в активную ячейку
' Сочетание клавиш: Ctrl+d
    ActiveCell.Value = Format(Now, "dd.mm.yyyy")
End Sub
'-------------------------------------------------------
Sub Вставка_Даты()
' Вставка текущей даты в активную ячейку
' Сочетание клавиш: Ctrl+в
    ActiveCell.Value = Format(Now, "dd.mm.yyyy")
End Sub

Sub InsertDate()
' Вставка текущей даты в активную ячейку
' Сочетание клавиш: Ctrl+d
    for each Cell in Selection    
        Cell.Value = Format(Now, "dd.mm.yyyy")
    Next
End Sub
'-------------------------------------------------------
Sub Вставка_Даты()
' Вставка текущей даты в активную ячейку
' Сочетание клавиш: Ctrl+в
    for each Cell in Selection
        Cell.Value = Format(Now, "dd.mm.yyyy")
    Next
End Sub

1

11.01.2016, 22:10. Показов 9027. Ответов 24

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30

Private Sub CommandButton1_Click()
' Очистка Макрос
    Range("A5").Select
    ActiveWindow.SmallScroll Down:=180
    Range("A5:J199").Select
    ActiveWindow.SmallScroll Down:=-189
    Range("A5:J199,F2,N5,N6,L7,L9,L10,N19").Select
    Range("N19").Activate
    ActiveWindow.SmallScroll ToRight:=0
    ActiveWindow.ScrollRow = 2
    ActiveWindow.ScrollRow = 3
    ActiveWindow.ScrollRow = 4
    ActiveWindow.ScrollRow = 5
    ActiveWindow.ScrollRow = 6
    ActiveWindow.ScrollRow = 7
    ActiveWindow.ScrollRow = 8
    ActiveWindow.ScrollRow = 9
    ActiveWindow.ScrollRow = 10
    ActiveWindow.ScrollRow = 12
    ActiveWindow.ScrollRow = 13
    ActiveWindow.ScrollRow = 15
    ActiveWindow.ScrollRow = 16
    Range( _
        "A5:J199,F2,N5,N6,L7,L9,L10,N19,L25:M25,L26:M26,L27:M27,L28:M28,L29:M29,L30:M30,L31:M31,L32:M32,L33:M33,L34:M34,L35:M35,L36:M36" _
        ).Select
    Range("L36").Activate
    ActiveWindow.SmallScroll Down:=-24
    Selection.ClearContents
    
End Sub

1
2
3

Sub DateCells() 
Range("A1").Value = DateValue(Now) 
End Sub

0

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

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

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

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

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

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

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

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

Смотрите скриншот:

Советы:

1. Вы можете отформатировать выходные данные как форматы даты или времени, как вам нужно в Формат ячеек Диалог.

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

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

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

= СЕГОДНЯ ()

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

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

= СЕЙЧАС ()

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

Советы:

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

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

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

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

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

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

= ЕСЛИ (A1 <> «», ЕСЛИ (B1 <> «», B1, СЕЙЧАС ()), «»)

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

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

Теперь, когда вы вводите данные в столбец A, текущее datetime будет вставлено в столбец 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 — это ячейка формулы, в которую вы хотите вставить метку времени.

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

Затем отформатируйте ячейки формулы как формат даты и времени, как вам нужно, в Формат ячеек диалоговое окно: оставьте выделенными ячейки формулы, щелкните правой кнопкой мыши, чтобы отобразить контекстное меню, выберите Формат ячеек, то Формат ячеек появляется диалоговое окно в На заказ раздел, который под Число на вкладке введите нужный формат в поле Тип текстовое поле, щелкните 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 и формат времени мм / дд / гггг чч: мм: сс в коде 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 — это ячейка, в которую вы будете вводить или изменять данные. Затем перетащите дескриптор автозаполнения вниз к ячейкам.

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

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

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

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

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