Excel 2019 - Automati c вставка времени в ячейку с использованием VBA - PullRequest
0 голосов
/ 25 февраля 2020

Я уже нашел статью о том, как автоматически добавлять дату в ячейку. Я использовал его и изменил, чтобы добавить время в ячейку (код ниже).

Dim rng1 As Range
Set rng1 = Intersect(Range("D:D"), Target)
If rng1 Is Nothing Then Exit Sub
Application.EnableEvents = False
rng1.Offset(0, -2).Value = Time()
Application.EnableEvents = True
End Sub

Вопрос: как изменить код, чтобы сделать то же самое на том же листе, но в другом столбце?

Теперь я ввожу данные по столбцу "D" и получаю время по столбцу "B". Я также хочу ввести данные в столбец «K» и получить время для столбца «I»

К сожалению, я не очень хорош в кодировании, и я не знаю, как правильно редактировать этот код.

Я также забыл сказать, что хочу использовать этот макрос в Excel, размещенном на веб-сайте Sharepoint.

Могу ли я попросить вас, ребята, о помощи ??

С уважением, Кристоф

1 Ответ

0 голосов
/ 25 февраля 2020

Поскольку смещение от D до B и от K до I равно -2, в обоих случаях вы можете использовать

Private Sub Worksheet_Change(ByVal Target As Range)
    If Target.Column = 4 Or Target.Column = 11 Then ' D or K
        Application.EnableEvents = False
        Target.Offset(0, -2).Value = Time()
        Application.EnableEvents = True
    End If
End Sub
Добро пожаловать на сайт PullRequest, где вы можете задавать вопросы и получать ответы от других членов сообщества.
...