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