Версия для печати

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

3568
Функции VBA

Функции - заменители синтаксических конструкций 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

Поддержать автора сайта
Поделиться ссылкой
Комментирование отключено.