Функции - заменители синтаксических конструкций VBA

• Choose()- принимает число (номер значения) и несколько значений. Возвращает значение, порядковый номер которого соответствует передаваемому числу, указанному первым аргументом функции. После первого аргумента следуют непосредственно выбираемые значения(максимум 30):

  Dim vChs vChs = Choose(2, "Первый", "Второй", "Третий") MsgBox vChs, vbInformation

  Dim vChs vChs = Choose(2, "Первый", "Второй", "Третий") MsgBox vChs, vbInformation

• IIF()- расшифровывается как Immediate IF, то есть "Немедленный IF". Представляет из себя упрощенный вариант IF...Then, когда проверяется условие и возвращается одно из двух значений.

  Dim n As Long n = 12 MsgBox IIf(n > 10, "Больше десяти", "Меньше или равно десяти"), vbInformation n = 4 MsgBox IIf(n > 10, "Больше десяти", "Меньше или равно десяти"), vbInformation

  Dim n As Long n = 12 MsgBox IIf(n > 10, "Больше десяти", "Меньше или равно десяти"), vbInformation n = 4 MsgBox IIf(n > 10, "Больше десяти", "Меньше или равно десяти"), vbInformation

• Switch()- принимает неограниченное количество пар типа выражение/значение, проверяет каждое выражения на истинность и возвращает значение для первого выражения, которое оказалось истинным:

  Dim sNumber As String, lNumber As Long lNumber = 2 sNumber = Switch(lNumber = 1, "Один", lNumber = 2, "Два", lNumber = 3, "Три") MsgBox sNumber, vbInformation

  Dim sNumber As String, lNumber As Long lNumber = 2 sNumber = Switch(lNumber = 1, "Один", lNumber = 2, "Два", lNumber = 3, "Три") MsgBox sNumber, vbInformation