Использование кнопки "Произвольный перенос"

1. Удалить результат выполнения макроса на Листе 3.

2. Вставить на лист кнопку управления по пути: вкладка "Разработчик" – раздел "Элементы управления" панель "Вставить" – кнопка "Кнопка".

3. Развернуть кнопку на листе, выбрать в окне имя созданного макроса и присвоить кнопке заголовок "Относительный".

4. Выйти из режима конструирования, щелкнув кнопкой курсора в стороне от кнопки, и проверить функцию макроса, нажав на кнопку.

5. Перейти на Лист 1 и убедиться, что выделена какая-то ячейка изменяемого диапазона.

6. Перейти на Лист 3, установить курсор в верхнюю левую ячейку будущего диапазона и проиграть макрос.

7. Если необходимо копировать диапазон на другой лист, то достаточно изменить цифру листа в листинге макроса.

Пример создания макроса в Excel с относительными адресными ссылками

1. Записать в ячейку А1 слово "Перенос".

2. Щёлкнуть кнопку "Относительные ссылки" в разделе "Код" вкладки "Разработчик".

3. Начать запись макроса, нажав кнопку "Записать макрос", присвоить макросу имя "Относительный" и нажать ОК.

4. Щёлкнуть правой кнопкой "мыши" на ячейке А1 и выбрать операцию "Копировать"

5. Выделить ячейку А10 и выполнить операцию "Вставить".

6. Остановить запись, нажав кнопку "Остановить запись".

Листинг макроса:

Sub Макрос_Относительный_перенос ()

' Макрос Относительный_перенос

'

Selection.Copy

ActiveCell.Offset(9, 0).Range("A1").Select

ActiveSheet.Paste

End Sub

7. Проиграть макрос и убедиться, что копирование из одной ячейки в другую происходит в режиме относительных адресных ссылок.

Пример полезного макроса: удаление текущей строки

8. Создать в ячейках листа таблицу со списком от 1 до 10.

9. Выделить какую-либо строку листа, щёлкнув на заголовке строки.

10. Нажать "Начать запись" и дать макросу имя "Удалить_запись".

11. Выделить ту же строку, щёлкнув на заголовке строки и удалить её.

12. Нажать кнопку "Остановить запись".

13. Открыть отладчик и просмотреть код макроса.

Sub УдалениеТекущейСтроки

Selection.Delete Shift:=xlUp 'параметр Shift:=xlUp показывает, что удаляется 'содержимое строки, и следующие строки таблицы перемещаются вверх

End Sub

7