Пользовательские функции рабочего листа Visual Basic (стр. 1 из 2)

Пользовательские функции рабочего листа VBA

Функция пользователя

Пользователь может создать собственную функцию в стандартном модуле редактора VBA.

Для вызова редактора VBA задайте команду Сервис - Макрос - Редактор Visual Basic или нажмите комбинацию клавиш Alt+F11. В результате пользователь попадает в интегрируемую среду приложений IDE редактора Visual Basic. Она имеет стандартный вид для Windows-приложений:

строка меню,

панель инструментов (в данном случае Standart),

два окна Project – VBAProject и Properties.

В окне Project – VBAProject отображается реестр модулей и форм, входящих в создаваемый проект.

Модуль - это лист (не путать с рабочим листом), в котором набирается код.

Двойным щелчком на значке модуля в окне Project – VBAProject можно открыть соответствующий модуль. Значок активного модуля в окне Project – VBAProject выделяется серым цветом.

В VBA у каждого рабочего листа имеется собственный модуль. Кроме того, рабочая книга обладает своим, и если в проекте создаются пользовательские формы, то каждая из них имеет по модулю. В проекте также можно добавлять модули классов для описания создаваемых пользовательских классов (эти модули будут рассмотрены позже). Единый модуль, который нам необходим, - это стандартный модуль. Для того чтобы его добавить в проект, выберите команду Insert-Module.

Структура кода функции пользователя

В окне стандартного модуля с клавиатуры набирается текст процедуры - функции пользователя. В общем случае функция пользователя имеет следующую структуру:

Function имя_функции (список_аргументов)

[инструкции]

End Function

где

имя_функции – имя создаваемой функции, придуманное пользователем;

список_аргументов – список аргументов;

инструкции – это последовательность команд, выполняемых при нахождении значения функции. В совокупности они образуют тело функции.

Важная особенность функции пользователя заключается в том, что носителем возвращаемого значения является ее имя (идентификатор имя_функции). Поэтому среди инструкций должна присутствовать, по крайней мере, одна, которая является оператором присваивания имени функции значения какого-либо выражения.

Примечание. Разрешается досрочный выход из функции по инструкции Exit Function. В теле функции может располагаться несколько инструкций Exit Function.

Пример 1. Создание функции пользователя

Рассмотрим построение простой функции, которая возвращает стоимость товара по его стоимости без НДС и значению ставки НДС.

Вызовите редактор VBA командой Сервис - Макрос - Редактор Visual Basic или комбинацией клавиш Alt+F11. Добавьте в проект стандартный модуль командой Insert - Module. В окне модуля наберите код, представленный в листинге 1.

Листинг 1. Пользовательская функция определения стоимости товара

Function Стоимость (СтоимостьБезНДС, НДС)

Стоимость = СтоимостьБезНДС * (1 + НДС / 100)

End Function

Применение пользовательской функции для решения задачи

К созданной пользовательской функции можно обратиться через Мастер функций. По умолчанию она попадает в раздел Определенные пользователем списка Категория окна Мастера функций. Используем созданную функцию для определения стоимости товара с учетом НДС при условии, что НДС равен, например, 25 %, а стоимость товара без учета НДС равна 1000.

Алгоритм применения функции пользователя

Разместите данные, необходимые для решения задачи, на рабочем листе как показано на рисунке:

В ячейку А2 введите число 1000 (стоимость без НДС), а в ячейку В2 - число 25 (НДС).

Для определения значения стоимости товара с учетом НДС переместите табличный курсор в ячейку С2 и вызовите Мастер функций (например, командой Вставка - Функция).

В окне Мастера функций в списке Категория найдите значение Определенные пользователем, затем в списке Функция выберите функцию Стоимость и подтвердите свой выбор щелчком по командной кнопке ОК.

В появившемся окне функции Стоимость в полях СтоимостьБезНДС и НДС задайте ссылки на ячейки А2 и В2 с исходными данными для этих аргументов (щелкните левой кнопкой мыши по соответствующим ячейкам, чтобы не набирать вручную с клавиатуры их адреса) и нажмите командную кнопку ОК.

Примечание. Возможность использовать в качестве имен переменных русские названия новая функция может быть легко распознана любым пользователем по ее имени, и смысл параметров функции становится понятным.

Результат вычисления

Пример 2. Создание функции пользователя

Необходимо создать функцию определения суммы заработной платы сотрудника за отработанные дни. Аргументами функции являются: величина месячного оклада сотрудника, количество рабочих дней в месяце, количество отработанных сотрудником дней. Добавьте в проект стандартный модуль командой Insert - Module. В окне модуля наберите код, представленный в листинге 2.

Листинг 2. Пользовательская функция определения суммы заработной платы сотрудника за отработанные дни

Function Зар_плата_отраб_время (Оклад, РабДни, ОтрабДни)

Зар_плата_отраб_время = Оклад / РабДни * ОтрабДни

End Function

Алгоритм применения функции пользователя

Разместите данные, необходимые для решения задачи, на рабочем листе как показано на рисунке:

Переместите табличный курсор в ячейку Е2 и вызовите Мастер функций, в окне Мастера функций в списке Категория выберите пункт Определенные пользователем, затем в списке Функция - функцию Зар_плата_отраб_время и подтвердите свой выбор щелчком по командной кнопке ОК. В появившемся окне функции Зар_плата_отраб_время в полях Оклад, РабДни и ОтрабДни задайте ссылки на ячейки В2, С2 и D2 с исходными данными для этих аргументов и нажмите командную кнопку ОК:

Результат вычисления

Пример 3. Создание функции пользователя с использованием стандартных математических функций

Математические функции

При создании функций пользователю могут потребоваться встроенные в VBA математические функции. Перечень таких функций представлен в таблице 1.

Таблица 1. Встроенные математические функции VBA

Функция	Возвращаемое значение
Abs (number)	абсолютная величина (модуль) числа
Atn (number)	арктангенс
Cos (number)	косинус
Exp (number)	экспонента ех (результат возведения основания натурального логарифма в указанную степень)
Log (number)	натуральный логарифм
Rnd (number)	случайное число между 0 и 1. Если аргумент number меньше нуля, то функция Rnd возвращает каждый раз одно и то же число. Если number больше нуля или опущено, то Rnd возвращает следующее случайное число в последовательности. Если number равняется нулю, то Rnd возвращает случайное число, полученное при предыдущем вызове этой функции. Перед вызовом функции Rnd используйте оператор Randomize.
Sgn (number)	знак числа (возвращает 1, если аргумент является положительным; -1, если аргумент - отрицательный; 0, если аргумент равен нулю)
Sin (number)	синус
Sqr (number)	квадратный корень из числа
Tan (number)	тангенс
Fix (number) Int (number)	обе функции Fix, Int отбрасывают дробную часть числа и возвращают целое значение. Различие между данными функциями состоит в том, что для отрицательного значения параметра число функция Int возвращает ближайшее отрицательное целое число, меньшее либо равное указанному, а Fix – ближайшее отрицательное целое число, большее либо равное указанному.

Создадим пользовательскую функцию:

.

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

Листинг 3. Пользовательская функция с использованием встроенной математической функции

Function F(x)

Pi = Atn (1) * 4

F = Cos (Pi * x) ^ 2

End Function

В VBA нет функции, возвращающей число П ("пи"), поэтому оно определяется через функцию Ant (арктангенс): Pi = 4 * Atn (1). Число П можно задать явно, указав достаточное число значащих цифр, но этот подход менее элегантен, чем с помощью функции Ant.

Алгоритм применения функции пользователя

Разместите данные, необходимые для решения задачи, на рабочем листе (как показано на рисунке) и с помощью Мастера функций вызовите новую функцию:

Оператор условного перехода

Оператор условного перехода задает выполнение определенных групп инструкций в зависимости от значения выражения.

Синтаксис:

If condition Then [statements ] [ Else elsestatements ]

Если условие condition принимает значение True, то выполняются инструкции statements, если False, то инструкции elsestatements. Ветвь Else является необязательно.

Например, если скидка (скажем 50%) применяется только к суммам больше 10001, то в VBA это можно записать следующим образом:

If Money > 1000 Then Discount = 0.05 Else Discount = 0

или, что равносильно

If Money > 1000 Then Discount = 0.05

Допускается также использование блочной формы синтаксиса, которая часто упрощает восприятие оператора условного перехода. Обратите внимание на то, что при блочной организации оператора условного перехода используется ключевое слова End If для обозначения окончания оператора.