Как автоматически вводить дату при вводе данных в столбец?

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

Автоматический ввод даты при вводе данных в столбец с помощью кода VBA

Автоматический ввод даты при вводе данных в столбец с помощью кода VBA

Возможно, у нас нет прямого способа справиться с этой задачей в Excel, но следующий код VBA может помочь вам, пожалуйста, сделайте следующее:

1. Выберите вкладку листа, куда вы хотите автоматически вставить дату, затем щелкните правой кнопкой мыши и выберите «Вид Код» из контекстного меню, затем в появившемся окне Microsoft Visual Basic for Applications скопируйте и вставьте следующий код в Модуль:

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

Private Sub Worksheet_Change(ByVal Target As Range)
    If Target.Cells.Count > 1 Then Exit Sub
    If Not Intersect(Target, Range("A2:A15")) Is Nothing Then
        With Target(1, 2)
        .Value = Date & " " & Time
        .EntireColumn.AutoFit
        End With
    End If
End Sub

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

Примечание: В приведенном выше коде A2:A15 — это ячейки, в которые вы хотите ввести значения.