Лабораторная работа 1 создание и выполнение макросов

Основные сведения

Макрос – это записанная последовательность заданных пользователем команд и действий, хранящаяся в форме программы на языке VBA и сохранённая под уникальным именем, которую может выполнить Excel.

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

Пример.

Создадим простой макрос, который изменяет шрифт, цвет заливки и направление текста в ячейке. Для этого выполним следующие действия:

1. Откроем новую книгу в MS Excel.

2. В ячейку А1 введем название института, в котором вы учитесь, а в ячейку В1 – название группы.

3. Установим курсор в ячейке А1.

4. Нажмем кнопку Запись макроса… (рис.2) на панели Макросы (Меню Вид Макросы) или воспользуемся командой меню для MS Office 2003 Сервис Макрос Начать запись.

Рис. 2. Панель Макросы

5. В диалоговом окне Запись макроса (рис.3) введем имя макроса «Оформление_Ячейки» (имя макроса должно начинаться с буквы и может содержать до 255 символов: буквы, цифры и знаки подчёркивания, а пробелы не допускаются) и сочетание клавиш для дальнейшего вызова макроса – Ctrl+о, выберем место сохранения – «Эта книга» и нажмем кнопку «ОК».

Рис. 3. Диалоговое окно Запись макроса

6. Выполним команду Формат Ячейки. В диалоговом окне Формат ячеек перейдем на вкладку Шрифт и установим название шрифта Times New Roman, размер – 18 пунктов, начертание – «полужирный».

7. Перейдем на вкладку Вид и выберем цвет заливки ячейки – зеленый.

8. Далее активизируем вкладку Выравнивание и ориентацию текста изменим на 90 градусов.

9. Нажмем кнопку «ОК».

10. Когда выполним все необходимые действия, воспользуемся командой для остановки записи макроса Вид Макросы Остановить запись.

Рис.4 Панель Макросы

Теперь воспользуемся созданным нами макросом для изменения формата ячейки В1:

1. Активизируем ячейку В1.

2. Воспользуемся комбинацией клавиш Ctrl+о либо выполним команду Вид  Макросы Макросы и, выбрав в появившемся диалоговом окне макрос «Оформление_Ячейки» (рис. 5), нажмем кнопку «Выполнить».

Рис.5 Диалоговое окно Макрос

Чтобы просмотреть полученный при записи макроса код или, если необходимо, отредактировать его, необходимо выполнить следующие действия:

1. Открыть диалоговое окно Макрос (рис. 5) через команду Вид  Макросы Макросы.

2. Выделить имя нужного макроса и нажать кнопку «Изменить». Откроется окно редактора VBА (рис. 6).

Отредактируем код созданного в примере макроса, изменив начертание шрифта (FontStyle = «курсив») и цвет заливки ячейки на синий (ColorIndex =5). Текст кода макроса примет вид:

Sub Оформление_Ячейки()

• Оформление_Ячейки

• Макрос записан 14.10.2015 '

• Сочетание клавиш: Ctrl+о '

With Selection

.HorizontalAlignment = xlGeneral

.VerticalAlignment = xlBottom

.WrapText = False

.Orientation = 90

.AddIndent = False

.IndentLevel = 0

.ShrinkToFit = False

.ReadingOrder = xlContext

.MergeCells = False End With

With Selection.Font

.Name = "Times New Roman"

.FontStyle = "курсив"

.Size = 18

.Strikethrough = False

.Superscript = False

.Subscript = False

.OutlineFont = False

.Shadow = False

.Underline = xlUnderlineStyleNone

.ColorIndex = xlAutomatic End With

With Selection.Interior

.ColorIndex = 5

.Pattern = xlSolid

.PatternColorIndex = xlAutomatic End With

End Sub

Рис. 6. Окно редактора VB

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

Существуют несколько способов запуска макроса на выполнение:

1. Запуск макроса с помощью команды Вид → Макросы → Макросы → Выполнить.

2. Запуск макроса с помощью назначенной комбинации клавиш.

3. Назначение выполнения макроса командной кнопке.

4. Назначение выполнения макроса графическому объекту.

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

1. Добавить на панель быстрого доступа Элементы управления, которые расположены на вкладке Разработчик.

Рис. 7. Диалоговое окно Параметры

2. Нажать на панели быстрого доступа Элементы управления Вставить  Кнопка (рис. 8). Затем поместить указатель мыши в то место, где будет располагаться командная кнопка, и, не отпуская левую кнопку мыши, придать кнопке нужный размер.

Рис.8 Панель инструментов Элементы управления

3. Нажать контекстное меню кнопки и в появившемся диалоговом окне выбрать пункт Назначить макрос… (рис. 9) и указав нужный макрос нажать кнопку «ОК».

Рис. 9. Контекстное меню кнопки

4. Переименовать кнопку в «Оформление ячейки», воспользовавшись командой Изменить текст (рис. 9).

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

Для того чтобы назначить выполнение макроса графическому объекту или изображению (способ 4), необходимо:

1. Выполнить команду Вставка Фигуры

Рис. 10. Назначение макроса объектам

2. Выбрать фигуру и, предав ей соответствующие размеры, поместить на Лист.

3. С помощью контекстного меню назначить ей необходимый макрос.

4. Щелкнуть вне фигуры, чтобы выйти из редактирование, и теперь, нажав на нее, будет выполняться макрос.