Як автоматично вводити дату, коли дані вводяться у стовпець?

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

Автоматично вводити дату, коли дані вводяться у стовпець із кодом VBA

Автоматично вводити дату, коли дані вводяться у стовпець із кодом VBA

Можливо, у нас немає прямого способу впоратися з цією роботою в Excel, але, такий код VBA може вам допомогти, будь-ласка, зробіть наступне:

1. Виберіть вкладку аркуша, до якої потрібно автоматично вставити дату, потім клацніть правою кнопкою миші, виберіть Переглянути код з текстового меню, а потім eh вискочив Microsoft Visual Basic для додатків вікно, скопіюйте та вставте такий код у Модуль:

Код 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 - це клітинки, для яких потрібно ввести значення.