Функции пользователя, используемые при расчете комиссионных

Читайте также:

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

· если продукции продано не меньше, чем на 1000000 руб., то комиссионные составляют 2% от стоимости реализованной продукции;

· если продукции продано меньше, чем на 1000000 руб., то комиссионные составляют 1% от стоимости реализованной продукции;

· если стаж работы в фирме не меньше 5 лет, то выплачивается доплата в размере 0,5% от стоимости реализованной продукции.

Последовательно выполняем действия, описанные в 3.1, и введем в окно модуля листинг программы:

Function Премия(стаж, продажа)

If стаж >= 5 And продажа >= 1000000 Then Премия = 0.025 * продажа

If стаж < 5 And продажа >= 1000000 Then Премия = 0.02 * продажа

If стаж >= 5 And продажа < 1000000 Then Премия = 0.015 * продажа

If стаж < 5 And продажа < 1000000 Then Премия = 0.01 * продажа

End Function

Пусть в ячейку А1 введена величина стажа работы в фирме, равная 15, а в Ячейку В1 – объем реализованной продукции, равный 5000000. Для того, чтобы вычислить комиссионные в ячейке С1, достаточно в эту ячейку ввести формулу =Премия(А1;В1). Воспользуемся Мастером функций. В поле Категория выберем Определенные пользователем, а в поле Выберите функцию - Премия.

В строке формул эта функция выглядит так, как показано на рисунке.

В ячейке С1 получим результат вычислений.