Case-условие может быть записано в одной из следующих форм:

• Case К0НСТАНТА 1, К0НСТАНТА 2, ..КОНСТАНТА п;

• Case Is ЗНАК ОТНОШЕНИЯ КОНСТАНТА;

• Case К0НСТАНТА 1 То К0НСТАНТА 2.

Сначала вычисляется значение выражения, стоящего после ключевых слов Select Case. Затем выполняется проверка того, удовлетворяет ли ВЫРАЖЕНИЕ одному из Case-условий.

Если Case-условие записано в первой форме, то достаточно, чтобы значение ВЫРАЖЕНИЯ было равно одной из КОНСТАНТ.

Если Case-условие записано во второй форме, то необходимо, чтобы выполнялось условие отношения между значением ВЫРАЖЕНИЯ и КОНСТАНТОЙ.

Если Case-условие записано в третьей форме, то должно выполняться соотношение

К0НСТАНТА 1 < ВЫРАЖЕНИЕ < К0НСТАНТА 2.

Если такое условие найдено, то выполняется БЛОК ОПЕ-PATOPOB i, который стоит после этого условия. Затем управление передается оператору, который находится после ключевых слов End Select. Если такое условие не найдено, то выполняется БЛОК ОПЕРАТОРОВ ПОУМОЛЧАНИЮ, который находится после ключевых слов Case Else.

Если значение ВЫРАЖЕНИЯ удовлетворяет сразу нескольким Case-условиям, то будет выполнено то из них, которое стоит ближе к началу оператора Select Case.

В операторе Case допустимы составные условия, например:

Задачу начисления комиссионных решает следующая функция:

Function Премия (продажа) Select Case продажа

Case О То 9999

Премия =0.1* продажа Case 20000 То 39999

Премия = 0.12 * продажа Case Is >= 50000

Премия = 0.16 * продажа End Select End Function

Пусть в ячейку Al введен объем продаж, равный 150 ООО. Для того чтобы вычислить комиссионные в ячейке В1, достаточно в эту ячейку ввести формулу =премия (А1). Тот же результат получается при вводе в ячейку В1 следующей формулы:

=ЕСЛИ(И(А1>=0;А1<20000); А1*0.1; ЕСЛИ(И(А1>=2ОО0О;А1<50000); А1*0.12; ЕСЛИ(А1>=50000 ;А1*0.1б)))

Рассмотрим пример начисления комиссионных на основе оператора выбора Select Case ([2]). В этом примере размер комиссионных зависит только от объема проданной продукции по правилу, приведенному в табл. 7.1.

Таблица 7.1. Правило начисления комиссионных

8. Стандартные функции языка

Встроенные и внешние функции находятся в шаблонах (для MS Word) и в дополнительных макросах (для MS Excel, MS Access). Эти функции предназначены для выполнения финансовых, бухгалтерских и других расчетов и обеспечения интерфейса с Windows.

Описание стандартных функций можно найти в библиотеке функций VBA.

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