Задание 1. Выделение ячеек и диапазонов

Выделение ячеек и диапазонов.

Прежде чем произвести какие-нибудь действия с ячейками, их необходимо выделить. Можно сделать это вручную, а можно с использованием специальных программ – макросов. Ниже приведен пример программного кода макроса, действие которого состоит в выделении диапазона ячеек A1:C6 активного рабочего листа:

Листинг 1: Программный код макроса RangeSelect ()

Sub RangeSelect ()

Range (“A1:C6”).Select

End Sub

Для создания макроса необходимо запустить редактор VBA.

Для этого:

1) Перейдите на вкладку Разработчик. Далее выберите раздел Код и щелкните на пиктограмме Visual Basic.

2) Перед вами откроется окно редактора VBA. В открывшемся окне выберите команду Insert Module (см. рис.4).

Рис. 4. Вставка нового модуля.

В результате в проект VBA добавляется новый модуль, что на практике выглядит как появление пустой рабочей области (см. рис.5). Именно туда и следует ввести программный код.

Примечание 1: если окно записи кода макроса не видно после выполнения команды Insert Module, то нужно щелкнуть
на пиктограмме View Code (крайний слева значок в строке под словами Project-VBAProject):

Рис. 5. Появление пустой рабочей области.

Что касается непосредственно кода, то он состоит всего из одной команды (если не считать обязательных инструкций начала и конца макроса). Ячейки А1:С6 выделяются с помощью метода Select. О том, что следует выделять именно ячейки А1:С6, указывает инструкция Range (“A1:C6”) (объект диапазон ячеек). Вся команда выглядит как Range (“A1:C6”).Select. Ключевое слово Sub в начале макроса является зарезервированным, после него указывается имя макроса (в данном случае RangeSelect () – имя выбирается пользователем). Также зарезервированной является инструкция окончания тела макроса End Sub.

3) В пустой рабочей области введите код макроса RangeSelect (), приведенный в листинге 1, см. рис.6:

Рис. 6. Окно редактора VBA с программным кодом макроса.

Сохраните записанный вами макрос с помощью команды Save меню окна MS Visual Basic. И далее, каждый раз после того, как вы записали новый макрос, перед тем как запустить его на выполнение, его необходимо сохранить.

4) Запустите макрос RangeSelect (), с помощью команды Разработчик → Код → Макросы. Откроется диалоговое окно
с названием Макрос. В этом окне выберите RangeSelect () – имя, запускаемого вами на выполнение макроса. Результат выполнения макроса представлен на рис. 7:

Рис. 7. Результат выполнения макроса RangeSelect (), задание 1, п. 1 - 4.

5) Метод Select используется для выделения ячеек в активных листах. Поэтому сначала нужно активизировать нужный лист с помощью команды Worksheets (“Лист2”).Select). После этого выделяют нужный диапазон ячеек с помощью команды Range (“A1:C6”).Select. Также для данного случая при выделении рабочего листа можно использовать метод Activate. Ниже в листинге приведен код макроса RangeSelect2 (), который активизирует Лист 2 и выделяет на нем диапазон ячеек А1:С6:

Листинг 2: Программный код макроса RangeSelect2 ()

Sub RangeSelect2 ()

Worksheets (“Лист 2”).Select

Range (“A1:C6”).Select

End Sub

Выполните команду Insert Module, и во вновь открывшемся окне введите код макроса RangeSelect2 (). Далее выполните запуск этого макроса с помощью команды: Разработчик → Код → Макросы аналогично п. 4.
Результат выполнения макроса RangeSelect2 () представлен на рис. 8:

Рис. 8. Результат выполнения макроса RangeSelect2 (), задание 1, п. 5.

6) Достаточно легко выделяются области, состоящие из нескольких диапазонов. В этом случае аргументом свойства Range указываются разделенные запятыми выделяемые диапазоны. Код макроса RangeSelect3 () приведен в листинге 3:

Листинг 3: Программный код макроса RangeSelect3 ()

Sub RangeSelect3 ()

Range (“A1:C6, E4:G8”).Select

End Sub

Рис. 9. Результат выполнения макроса RangeSelect3 (), задание 1, п. 6.

В результате выполнения команды Range (“A1:C6, E4:G8”).Select в коде макроса выделяются сразу два диапазона ячеек: А1:С6 и Е4:G8.

7) Кроме того, можно выделять целые строки или столбцы. Пример макроса, который выполняет данные действие, приведен в листинге 4:

Листинг 4: Программный код макроса RangeSelect4 ()

Sub RangeSelect4 ()

Range (“3:5, C:G”).Select

End Sub

Выполните макрос RangeSelect4 (), приведенный в листинге 4. Обратите внимание, что аргументами свойства Range указаны диапазоны 3:5 (строки с 3-й по 5-ю) и C:G и (столбцы в диапазоне букв от C до G включительно).
После выполнения макроса получится результат как на рис. 10:

Рис. 11. Результат выполнения макроса RangeSelect4 (), задание 1, п. 7.