Добрый день. Есть код, который работает в Экселе. Помогите, пожалуйста переделать его под Гугл таблицу, и вкратце написать как его туда "вставить" Благодарю!
[vba]
Код
Private Sub Worksheet_Change(ByVal Target As Range) If Not Intersect(Target, Range("a1")) Is Nothing Then a = Target.Value If a <> "" Then u = Cells(Rows.Count, "a").End(xlUp).Row + 1 Range("a" & u) = a Range("a1").ClearContents Range("a1").Select End If End If End Sub
[/vba]
Изначально стояла такая задача: "Данные должны вводиться только в ячейку А1. После нажатия ENTER значение должно переместиться в ячейку А2, а А1 стать пустой. Далее повторяется А3 - А1 пустая. И каждый раз, чтобы значение переносилось в конец стоблца."
Добрый день. Есть код, который работает в Экселе. Помогите, пожалуйста переделать его под Гугл таблицу, и вкратце написать как его туда "вставить" Благодарю!
[vba]
Код
Private Sub Worksheet_Change(ByVal Target As Range) If Not Intersect(Target, Range("a1")) Is Nothing Then a = Target.Value If a <> "" Then u = Cells(Rows.Count, "a").End(xlUp).Row + 1 Range("a" & u) = a Range("a1").ClearContents Range("a1").Select End If End If End Sub
[/vba]
Изначально стояла такая задача: "Данные должны вводиться только в ячейку А1. После нажатия ENTER значение должно переместиться в ячейку А2, а А1 стать пустой. Далее повторяется А3 - А1 пустая. И каждый раз, чтобы значение переносилось в конец стоблца."alexstreetmailxyz
Сообщение отредактировал alexstreetmailxyz - Понедельник, 27.06.2022, 14:47
Вход
Регистрация
Напомнить пароль
Автосумма
Часто используемые
ВПР
ЕСЛИ
СУММЕСЛИ
Финансовые
Логические
Текстовые
Даты и времени 
Ссылки и массивы 
Математические
Другие функции
Проверка свойств и значений
Баз данных
Математические
Обработки массивов
Обработки строк
Преобразования типов данных 
Загрузки данных
Работы с файлами
Обработки системных параметров
Обработки цвета
Работы с датами и временем
Преобразования в системы счисления
Финансовые
