Конструкция Select Case

Конструкция Select Case является альтернативой конструкции If. .. Then. .. Else в случае выполнения блока, состоящего из большого набора операторов. Конструкция Select Case предоставляет возможность, похожую на возможность конструкции If. .. Then. .. Else, но в отличие от нее она делает код более читаемым при наличии нескольких вариантов выбора.

Конструкция Select Case работает с единственным проверяемым выражением, которое вычисляется один раз при входе в эту конструкцию. Затем VBA сравнивает полученный результат со значениями, задаваемыми в операторах Case конструкции. Если найдено совпадение, выполняется блок операторов, ассоциированный с оператором Case:

Select Case проверяемое_выражение.

[Case список_выражений1.

[блок_операторов1]].

[Case список_выражений2.

[блок_операторов2]].

.. .

[Case Else.

[блок_операторовn]].

End Select.

Каждый список выражений является списком из одного или более значений. Если в одном списке больше одного значения, они отделяются запятыми. Каждый блок операторов содержит несколько операторов или ни одного. Если окажется, что вычисленному значению проверяемого выражения соответствуют значения из нескольких операторов Case, то выполняется блок операторов, ассоциированный с первым оператором Case из всех найденных соответствий. VBA выполняет блок операторов, ассоциированный с оператором Case Else (заметим, что он необязателен), если не найдено ни одного соответствия проверяемого значения выражения и значений из всех списков операторов Case.

Рассмотрим пример вычисления функции.

Sub пример2().

Const pi2 = 1.57.

Dim x As Single.

Dim z As Double.

Let x = CSng (InputBox («введи x», «Ввод данных», 0)).

Select Case x.

Casepi2.

z = Sin (x).

Case 0.

z = Cos (x).

Case pi2.

z = Tan (x).

Case Else.

MsgBox «Неверные исходные данные!» .

Exit Sub.

End Select.

Call out («D1», z).

End Sub.

Заметим, что конструкция Select Case вычисляет выражение только один раз при входе в нее, а в конструкции If. .. Then. .. Else вычисляются различные выражения для каждого оператора Elself. Конструкцию If. .. Then. .. Else можно заменить конструкцией Select Case, только если оператор If и каждый оператор Elself вычисляют одно и то же выражение.