1

У меня есть электронная таблица, в которую необходимо вводить данные каждый день

Я хотел бы, чтобы при вводе данных, скажем, A1, текущая дата была помещена в G1.

И каждый день, когда данные добавляются в любую ячейку в столбце A, соответствующая ячейка в столбце G добавляет дату

1 ответ1

1

Попробуйте этот код:

Private Sub Worksheet_Change(ByVal Target As Range)
    If Target.Column = 1 Then'Enter content in Column A
        If Target = "" Then
            Target.Offset(0, 6) = ""
        Else
            Target.Offset(0, 6) = Format(Now, "yyyy-mm-dd")'Record date in Column G
        End If
    End If
End Sub

Всё ещё ищете ответ? Посмотрите другие вопросы с метками .