Автоматическая вставка текущей даты, в ту же ячейку что и введенный текст.

Пользователь

Сообщений: 47 Регистрация: 20.01.2016

24.02.2020 08:00:25

Доброе утро,
Помогите кто разбирается в макросах, а именно нужно дополнить решение Николая Павлова по "Автоматической вставке текущей даты" где дата добавляется в соседнюю ячейку. https://www.planetaexcel.ru/techniques/6/44/ "

На примере
Я внес в ячейку текст: "Привет"
> макрос сцепил текущую дату и время и введенный мной текст"
Получилось: 2020.02.24 8:55 Привет

БМВ

Модератор

Сообщений: 23296 Регистрация: 28.12.2016

Excel 2013, 2016

24.02.2020 09:44:12

Я б так записал

Код

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

Изменено: БМВ - 24.02.2020 10:04:29

По вопросам из тем форума, личку не читаю.

evghtcone Пользователь Сообщений: 47 Регистрация: 20.01.2016	#3 24.02.2020 14:54:51 БМВ, Большое спасибо, работает! Случайно не в курсе, возможно ли конвертировать макрос под Google Таблицу (java наверное там?)

vikttur Пользователь Сообщений: 47199 Регистрация: 15.09.2012	#4 24.02.2020 14:58:36 Можно, но если есть знания JS