Создание пользовательских функций ExcelФункция - это подпрограмма, которая выполняет действия в пределах своего блока и возвращает программе единственное значение. Функции имеют следующий синтаксис: Function ИмяФункции (Список параметров) As ТипДанных «тело функции» ИмяФункции = Возвращаемое значение End Function При вызове функции указывается ее имя и передаваемые ей параметры (список параметров может и отсутствовать). Возможен досрочный выход из функции по инструкции Exit Function. Готовая функция, подготовленная в стандартном модуле (например, Module 1), автоматически попадает в категорию Определенные пользователем окна Мастера функций Excel. Пример. Создадим функцию пользователя для расчета стоимости партии книг при следующих условиях продажи: • если продается от 100 до 200 экземпляров книги, то скидка от ее отпускной цены составляет 7%, если продается 201-300 экземпляров, то скидка составляет 10%, а если свыше 300 экземпляров, то 15%, • для постоянных клиентов предусмотрена дополнительная скидка в размере 5%. Ниже приводится программный код VBA этой функции (названной нами Стоимость), записанный в Module 1. Замечание: для того, чтобы любая пользовательская функция стала встроенной, необходимо, чтобы ее код был записан в одном из стандартных модулей ModuleN.
В коде использовались русские имена всех переменных, что в VBA допустимо. Поскольку типы переменных не определены, то они понимаются по умолчанию, т.е. такими, как заданы в Ехсеl.
Заметим еще, что если параметр Скидка = 0, то дополнительной скидки не предполагается, для постоянных клиентов параметр должен быть отличным от нуля, например, Скидка = 1. Теперь зайдем в Excel, подготовим исходные данные о продаже книг и обратимся к нашей функции Стоимость через Мастер функций (напомним, что функция находится в категориях «Определенные пользователем» и «Полный алфавитный перечень»). Получаем результат:
|
