У цій статті буде показано, як використовувати оператор VBA Switch.
Оператор VBA Switch використовується аналогічно оператору VBA Select Case.
Синтаксис оператора Switch
Оператор switch оцінює список виразів, щоб побачити, чи вони істинні чи хибні, і повертає значення перших виразів, які оцінюються як істинні. Список аргументів складається з пар - виразу та значення, яке повертається, якщо вираз оцінюється як істинний.
Перемикач(вираз-1, значення-1, [ вираз-2, значення-2… , [ вираз-н, значення-n ]])
Використання оператора Switch у процедурі VBA
Використання цього в макросі може бути подібним до наведеного нижче прикладу:
| 1234567 | Sub TestSwitch ()Dim strКомпанія як рядокDim 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.
Назва компанії, що зберігається у заяві про перемикання, буде повернуто на наш робочий аркуш.
