Добрый день,
Есть задача конвертировать макрос VBA под Google sheet (JS) - Вставить дату и время внесения/изменения данных перед самим текстом.
Пример:
Вписал руками : Привет
Макрос добавил : 2020.02.25 08:11
Получилось : 2020.02.25 08:11 Привет
Есть задача конвертировать макрос VBA под Google sheet (JS) - Вставить дату и время внесения/изменения данных перед самим текстом.
Пример:
Вписал руками : Привет
Макрос добавил : 2020.02.25 08:11
Получилось : 2020.02.25 08:11 Привет
| Код |
|---|
Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Range("A2:A100")) Is Nothing Then 'если изменененная ячейка попадает в диапазон A2:A100
Application.EnableEvents = False ' блокируем обработку событий на время работы кода
For Each cell In Intersect(Target, Range("A2:A100")) 'проходим по всем измененным ячейкам
With cell 'Добавляем в ячейку дату
If .Value <> "" Then .Value = Format(Now, "DD.MM.YYYY hh:mm ") & .Value
End With
Next cell
Intersect(Target, Range("A2:A100")).EntireColumn.AutoFit 'выполняем автоподбор ширины для столбца B, чтобы дата умещалась в ячейке
Application.EnableEvents = True ' востанавливаем обработку событий.
End If
End Sub
|
Изменено: - 25.02.2020 09:13:16
