Switch Function

Обчислює аргументи, що складаються з логічних виразів, за якими слідують значення. Повертає значення, пов'язане з виразом, переданим цією функцією.

Синтаксис:


Switch (Expression1, Value1[, Expression2, Value2[..., Expression_n, Value_n]]) As Variant

Параметри:

Функція Switch обчислює вираз зліва направо і повертає значення, присвоєне виразу функції. Якщо вираз і значення не задані як пара, то станеться помилка часу виконання.

Вираз: вираз, який необхідно обчислити.

Значення: значення, що повертається, якщо результат виразу - True.

У наступному прикладі функція Switch використовується для призначення відповідного виду назви, переданої функції:

Коди помилок:

5 Неправильний виклик процедури

Приклад:


Sub ExampleSwitch
Dim sGender As String
    sGender = GetGenderIndex( "John" )
    MsgBox sGender
End Sub
 
Function GetGenderIndex (sName As String) As String
    GetGenderIndex = Switch(sName = "Маруся", "жін.", sName = "Іванко", "чол.")
End Function

Choose Function

Select...Case Statement