Использование макросов.

 

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

 

Макрос – это компьютерная программа, написанная на языке программирования (VBA – Visual Basic for Application).

Для создания макроса в Microsoft Excel существует два метода: использование средства для записи макросов и прямое программирование в редактор Visual Basic. Перед тем как записать или запрограммировать макрос необходимо запланировать заранее шаги и команды, которые он должен выполнить. Если при записи будет допущена ошибка, то в макросе также запишутся все исправления. Ненужные инструкции можно будет убрать позже путем редактирования макроса в редакторе Visual Basic.

 

Запись макроса.

1. В меню Сервис выбрать подменю Макрос и выбрать команду Запись. Появится диалоговое окно Запись макроса (рис.1)

2. Ввести имя для макроса в соответствующее поле. Первым символом' имени макроса должна быть буква. Остальные символы могут быть буквами, цифрами или знаками подчеркивания. В имени макроса не допускаются пробелы; в качестве разделителей слов следует использовать знаки подчеркивания.

3. Чтобы выполнить макрос с клавиатуры с помощью сочетания клавиш, следует ввести соответствующую букву в поле Сочетание клавиш. Для строчных букв используется сочетание CTRL+ буква, а для заглавных — CTRL+SHIFT+буква, где буква - люба клавиша на клавиатуре.

4. В поле Сохранить в книге выбрать книгу, в которой должен быть сохранен макрос.

5. Нажать ОК.

Рис. 1.

По умолчанию, при записи макроса используются абсолютные ссылки. Макрос, записанный с абсолютными ссылками, при выполнении всегда обрабатывает те же ячейки, которые обрабатывались при его записи. Для того, чтобы с помощью макроса обрабатывать произвольные ячейки, следует записать его с относительными ссылками. Для этого следует нажать кнопку Относительная ссылка на панели инструментов Остановка записи. Относительные ссылки будут использоваться до конца текущего сеанса работы в Microsoft Excel или до повторного нажатия кнопки Относительная ссылка.

6. Выполнить макрокоманды, которые нужно записать.

7. Нажать кнопку Остановить запись на панели инструментов.

 

Выполнение макроса в Microsoft Excel.

1. Открыть книгу, которая содержит макрос.

2. В меню Сервис установить указатель на пункт Макрос и выбрать команду Макросы, после чего появится диалоговое окно Макрос (Рис.2).

3. В поле Имя макроса ввести имя макроса, который нужно выполнить.

4. Нажать кнопку Выполнить.

Рис. 2.

Создать макрос с использованием Microsoft Visual Basic/

 

1. В меню Сервис Microsoft Excel выбрать команду Макрос, а затем – Редактор Visual Basic.

2. В меню Insert выбрать команду Module.

3. Ввести текст программы в окно модуля.

 

Function Зарплата (СобраноУстройств As Integer, БракованныеУстройства As Integer, СтоимостьСборки As Integer, СтоимостьУстройства As Integer) As Double

Dim ЗарплатаБезНДС As Integer

Dim ЗарплатаНаРуки As Integer

ЗарплатаБезНДС = СобраноУстройств * СтоимостьСборки - БракованныеУстройства * СтоимостьУстройства

If ЗарплатаБезНДС <= 0 Then ЗарплатаНаРуки = ЗарплатаБезНДС

If ЗарплатаБезНДС > 0 And ЗарплатаБезНДС < 6000 Then ЗарплатаНаРуки = ЗарплатаБезНДС - ЗарплатаБезНДС * 0.12

If ЗарплатаБезНДС >= 6000 Then ЗарплатаНаРуки = ЗарплатаБезНДС - ЗарплатаБезНДС * 0.2

Зарплата = ЗарплатаНаРуки

End Function

 

4. Когда макрос будет создан, выбрать команду Close and Rerurn to Microsoft Excel в меню File.

5. Введем созданную формулу в ячейку, находящуюся на пересечении столбца К выдаче на руки и строки Иванов. Для этого выделяем эту ячейку и в меню Вставка устанавливаем указатель на пункт Функция, после чего появиться диалоговое окно Мастер функций – шаг 1 из 2 (рис. 3).

рис. 3.

В этом окне указываем категорию Определенные пользователем. Затем выбираем функцию Зарплата. Нажимаем Ок.

6. Появляется диалоговое окно Аргументы функции (рис. 4).

рис. 4.

Задаем аргументы функции.

7. Скопируем формулу в нижерасположенные ячейки.

 

Результат работы представлен на рис. 5.

 

Рис. 5.