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