В этой статье будет показано, как использовать оператор VBA Switch.
Оператор VBA Switch используется аналогично оператору VBA Select Case.
Синтаксис оператора Switch
Оператор switch оценивает список выражений, чтобы определить, являются ли они истинными или ложными, и возвращает значение первых выражений, которое оценивается как истинное. Список аргументов состоит из пар - выражения и значения, которое возвращается, если выражение оценивается как истинное.
Выключатель(expr-1, значение-1, [ expr-2, значение-2… , [ expr-n, значение-n ]])
Использование оператора Switch в процедуре VBA
Использование этого в макросе может быть аналогично приведенному ниже примеру:
| 1234567 | Sub TestSwitch ()Dim strCompany как строкаТусклый идентификатор компании как целое числоCompanyID = 2strCompany = Switch (CompanyID = 1, «Apple», CompanyID = 2, «IBM», CompanyID = 3, «Samsung»)MsgBox strКомпанииКонец подписки |
Мы объявляем целочисленную переменную для хранения значений из выражений внутри оператора switch. Затем мы объявляем другую строковую переменную, чтобы вернуть значение, содержащееся в этом выражении.
Использование оператора Switch с диапазоном
Вместо того, чтобы жестко закодировать значение, которое переключатель будет оценивать в коде, мы можем использовать значение, которое мы сохранили в ячейке Excel, чтобы вернуть требуемую строку.
| 1234567 | Sub TestSwitch ()Dim strCompany как строкаТусклый идентификатор компании как целое числоCompanyID = Диапазон ("A2")strCompany = Switch (CompanyID = 1, «Apple», CompanyID = 2, «IBM», CompanyID = 3, «Samsung»)MsgBox strКомпанииКонец подписки |
Чтобы использовать эту процедуру, нам нужно иметь число в ячейке A2 на листе. Затем мы можем запустить макрос, чтобы получить название компании (например, Samsung).
Если у нас нет числа в ячейке A3 и мы запускаем код, будет возвращена ошибка несоответствия типа.
Создание пользовательской функции с помощью переключателя VBA
Мы также можем создать настраиваемую функцию с помощью переключателя VBA и использовать ее в нашей книге.
| 123 | Функция SwitchStatement (i как целое число) как строкаSwitchStatement = Switch (i = 1, «Apple», i = 2, «IBM», i = 3, «Samsung»)Конечная функция |
Чтобы использовать это в нашей книге, мы можем использовать диалоговое окно «Вставить функцию».
Щелкните ячейку A3, а затем щелкните Вставить функцию на панели функций.
В диалоговом окне "Вставить функцию" выберите Определяемые пользователем от Раскрывающийся список "Выбрать категорию", а затем выберите SwitchStatement.
Нажмите ОК, а затем щелкните ячейку A2.
Название компании, сохраненное в заявлении о переходе, будет возвращено в наш рабочий лист.
