Практическое задание № 2

Цель работы: научиться редактировать макросы в среде разработки VBA приложения Excel.

Задание

Требуется:

1. Отредактировать созданный в предыдущем задании макрос, добавив требуемое в соответствии с вариантом форматирование шрифта,

2. Реализовать запуск макроса при нажатии на кнопку

1. Создать кнопку, используя любой из описанных ниже способов.

2. Назначить разработанный макрос объекту Кнопка.

Номера вариантов совпадают с номерами студентов в списке группы.

Методические указания по выполнению работы

Рассмотрим, каким образом макрос можно редактировать с целью выполнения им дополнительных функций. Пусть, например, требуется заголовки шапки таблицы выделить жирным цветом, а результирующие значения – красным. Тогда создадим еще один макрос, выполняющий над созданной первым макросом таблицей требуемые преобразования. После этого текст второго макроса (без первой и последних строк) скопируем и поместим в нужное место первого макроса. Убедимся, что отредактированный первый макрос стал выполнять все возложенные на него задачи.

Удобным приемом является назначение макроса объекту, в качестве которого будем использовать кнопку, на которой напишем текст, отражающий смысл вызываемого макроса. В принципе назначить макрос можно любому графическому объекту, например, рисунку, автофигуре, WordArt объекту. Рассмотрим два способа создания объекта Кнопка.

Для обоих способов необходимо перейти на вкладку Разработчик.

На вкладке Разработчик для создания кнопки воспользуемся панелью Вставить и тем самым получим доступ к панелям, которые позволяют создать кнопки двумя способами.

1-й способ

Этот способ предусматривает использование инструментов панели Элементы управления формы. Расположим кнопку в выбранном месте рабочего листа книги, в которой сохранен макрос. Изменение текста на требуемый производится с помощью контекстного меню. Пусть это будет текст Экз_гр_4221 для рассмотренного в предыдущей лабораторной работе примера или текст Отчет для самостоятельно разработанных макросов.

Затем назначим макрос созданной кнопке с использованием появившегося диалогового окна Назначить макрос объекту.

2-й способ

Этот способ предусматривает использование инструментов панели Элементы ActiveX с использованием объектно-ориентированного подхода создания приложений. Затем нажать кнопку, создающую объект Кнопка и создать в требуемом месте рабочего листа кнопку нужных размеров. Необходимо проверить, что Режим конструктора включен.

Кнопка является объектом и потому обладает свойствами, методами и событиями. В частности, надпись, отображаемая на кнопке, задается значением свойства Caption.

Для того чтобы создать код процедуры, обрабатывающей событие «нажатие на кнопку» и, например, изменить надпись на кнопке, необходимо при включенном режиме конструктора дважды щелкнуть на кнопке. При этом в редакторе VBA появится ряд окон, с помощью которых можно произвести необходимые действия. В появившемся окне Properties в поле Caption ввести значение, например, Новый отчет или какое-либо другое подходящее по смыслу название кнопки. В поле Name следует ввести значение, например, newReport. Можно поэкспериментировать с другими свойствами.

Для создания кода в активизированном модуле рабочего листа между первой и последней инструкциями процедуры обработки события Click - «нажатие на кнопку», через буфер обмена следует вставить имя макроса, который должен выполняться при нажатии на кнопку. Предположим, макрос в Вашем примере называется Годовой отчет, тогда процедура обработки события будет иметь вид:

Private Sub newReport_Click()

Годовой отчет

End Sub

Затем следует перейти в приложение Excel и отключить режим конструктора (нажатием кнопки Режим конструктора) и протестировать созданную кнопку.