Последовательность выполнения Упражнения 17
Лабораторная работа №5 Процедуры-функции
Функции VBA
Функция - это подпрограмма, которая выполняет действия и возвращает единственное значение. В VBA различают следующие виды функций (см.п. 2.13. учебного пособия Теория_к_лаб_5.doc,):- встроенные функции,- функции, определённые пользователем.Встроенные функции
- математические функции,- функции преобразования данных,- функции даты и времени,- строковые функции.Форматы функций и действия, выполняемые ими, приведены в
п.2.13.1.Встроенные функции учебного пособия Теория_к_лаб_5.doc,,
Скопируйте в модуль VBA процедуры, находящиеся
в п. 2.13.1.5. Примеры использования функций VBA учебного пособия Теория_к_лаб_5.doc,: Встр_функции_1, Встр_функции_2,…, Встр_функции_8, – выполните их, проанализируйте результаты выполнения процедур, замените по вашему выбору значения констант, являющихся значениями аргументов функции и/или введите значения переменных, являющихся аргументами функций, при помощи функции
InputBox. Согласуйте свой выбор с преподавателем. Например, изменённая процедура Встр_функции_8 может иметь вид:
Sub Встр_функции_8()
Dim Дата As Date
Дата = InputBox("Введите дату", "Ввод даты")
MsgBox Format(Дата, "Long Date") & vbCr _
& Format(Дата, "Medium Date") & vbCr _
& Format(Дата, "Short Date") & vbCr _
& Format(Дата, "dd mmmm yy") & vbCr _
& Format(Дата, "dd mm yy") & vbCr _
& Format(Дата, "dd mm yyyy")
End Sub
Функции, определённые пользователем
Функция, определённая пользователем, называемая также процедурой-функцией, – это особый вид процедуры VBA, возвращающей результат. Пользовательские процедуры-функции, как и встроенные функции VBA, могут иметь необязательные и именованные аргументы. Для записи функции-процедуры нельзя использовать макрорекордер, хотя можно редактировать записанный рекордером макрос и превращать его в функцию-процедуру.
Подробное описание функции, определённой пользователем, и пример такой функции приведён в п.2.13.2. Функции, определённые пользователем учебного пособия Теория_к_лаб_5.doc .
Упражнение 17
Суть упражнения состоит в следующем. В приведённой ниже таблице
| Суммы комиссионных | |||
| Компания | Продажи | Комиссионные | Оплата |
| ЮГ | 5 000,00р. | ||
| СЕВЕР | 7 000,00р. | ||
| ВОСТОК | 12 000,00р. | ||
| ЗАПАД | 1 600,00р. |
требуется подсчитать суммы комиссионных и оплаты. Суммы комиссионных подсчитываются в процедуре-функции Комиссионные, обращение к которой осуществляется в процедуре Расчёт_Комиссионных при помощи инструкции
Cells(i, 3) = Комиссионные(Cells(i, 2)),
параметром которой является сумма продаж, находящаяся в ячейках Excel B3÷B6 (Cells(3, 2) – это ячейка в строке 3 в столбце 2 (B3) и т.п.).
Тексты процедуры Расчёт_Комиссионныхи функции Комиссионные приведены в п.2.13.2.1. Пример функции учебного пособия
Теория_к_лаб_5.doc,.
Ниже приведён пример заполненной таблицы исходными данными в столбцах Компания и Продажи.
Последовательность выполнения Упражнения 17
1.3.1.Скопировать в модуль VBA процедуру-программу
“Расчёт_Комиссионных” и процедуру-функцию “Комиссионные” из пособия Теория_к_лаб_5.doc ,п.2.13.2.1.
1.3.2.Ввести заголовок таблицы в ячейку A1.
1.3.3.Ввести заголовки таблицы Компания, Продажи, Комиссионные, Оплата в ячейки A2, B2, C2, D2.
1.3.4.Заполнить исходными данными из примера колонки Компания и Продажи.
1.3.5.Выполнить процедуру “Расчёт_Комиссионных”. В результате должна быть получена приведённая ниже таблица.
| 1.3.6.Суммы комиссионных | |||
| Компания | Продажи | Комиссионные | Оплата |
| ЮГ | 5 000,00р. | 5 250,00р. | |
| СЕВЕР | 7 000,00р. | 7 370,00р. | |
| ВОСТОК | 12 000,00р. | 12 710,00р. | |
| ЗАПАД | 1 600,00р. | 1 680,00р. |
1.3.7.Проанализировать результаты выполнения процедуры и сравнить их с инструкциями процедуры-программы
“Расчёт_Комиссионных” и процедуры-функции “Комиссионные”.
1.3.8.Составить макрос, который выводит на текущий лист Excel приведённую ниже таблицу без исходных данных, которые должны вводиться в процессе работы с таблицей.
1.3.9. 
Макрос создания этой таблицы целесообразно создать путём записи действий пользователя, аналогично п. 2.1 или 2.2. настоящего пособия. Необходимо записать в этот макрос следующие действия пользователя:
- Ввод заголовка таблицы “Суммы комиссионных”.
- Отформатировать заголовок жирным шрифтом.
- Объединить ячейки A1÷D1.
- Отформатировать жирным курсивом заголовки колонок таблицы.
- Установить автоподбор ширины колонок таблицы.
- Дать этому макросу название, например,
ФорматированиеТаблицы.
- Запустить макрос на выполнение и при необходимости его отладить.
- Проанализировать полученный макрос и, по возможности, упростить его, удалив инструкции, устанавливающие параметры по умолчанию.
1.3.10. Вставить инструкцию Call <Имя-макроса> перед инструкцией End Sub в процедуре “Расчёт_Комиссионных”.
1.3.11. Удалить полученные ранее таблицы, сформировать таблицу:
| Суммы комиссионных | |||
| Компания | Продажи | Комиссионные | Оплата |
| ЮГ | 5 000,00р. | ||
| СЕВЕР | 7 000,00р. | ||
| ВОСТОК | 12 000,00р. | ||
| ЗАПАД | 1 600,00р. |
и выполнить процедуру “Расчёт_Комиссионных”.
1.3.12. Составить пользовательскую функцию “Комиссионные_2”, в которой вместо инструкции If…Then использовать инструкцию Case, обратиться к ней в процедуре “Расчёт_Комиссионных”, запустить эту процедуру на выполнение и отладить в случае неоюходимости.