Овај чланак ће показати како се користи изјава ВБА Свитцх.
ВБА Свитцх наредба се користи на сличан начин као ВБА Селецт Цасе наредба.
Синтакса изјаве Свитцх
Наредба свитцх процењује листу израза да види да ли су тачни или нетачни и враћа вредност првих израза који се процењују као тачни. Листа аргумената се састоји од парова - израза и вредности која се враћа ако се израз оцени као истинит.
Свитцх(екпр-1, вредност-1, [ екпр-2, вредност-2… , [ екпр-н, вредност-н ]])
Коришћење наредбе Свитцх у ВБА процедури
Употреба овог у макроу може бити слична овом примеру испод:
| 1234567 | Суб ТестСвитцх ()Дим стрКомпанија као стрингДим ЦомпаниИД као цео бројЦомпаниИД = 2стрЦомпани = Свитцх (ЦомпаниИД = 1, "Аппле", ЦомпаниИД = 2, "ИБМ", ЦомпаниИД = 3, "Самсунг")МсгБок стрЦомпаниесЕнд Суб |
Декларишемо целобројну променљиву за држање вредности из израза унутар наредбе свитцх. Затим декларишемо другу променљиву стринг да вратимо вредност која је садржана у том изразу.
Коришћење наредбе Свитцх са опсегом
Уместо да кодирамо вредност коју ће прекидач проценити у код, можемо користити вредност коју смо ускладиштили у Екцел ћелији да бисмо вратили низ који нам је потребан.
| 1234567 | Суб ТестСвитцх ()Дим стрКомпанија као стрингДим ЦомпаниИД као цео бројЦомпаниИД = Опсег ("А2")стрЦомпани = Свитцх (ЦомпаниИД = 1, "Аппле", ЦомпаниИД = 2, "ИБМ", ЦомпаниИД = 3, "Самсунг")МсгБок стрЦомпаниесЕнд Суб |
Да бисмо користили ову процедуру, морали бисмо да имамо број у ћелији А2 на радном листу. Затим можемо покренути макро да бисмо добили назив компаније (тј. Самсунг).
Ако немамо број у ћелији А3 и покренемо код, биће враћена грешка неусклађености типа.
Креирање прилагођене функције помоћу ВБА прекидача
Такође можемо креирати прилагођену функцију помоћу ВБА прекидача и користити је у оквиру наше радне свеске.
| 123 | Функција СвитцхСтатемент (и Ас Интегер) Ас СтрингСвитцхСтатемент = Свитцх (и = 1, "Аппле", и = 2, "ИБМ", и = 3, "Самсунг")Завршна функција |
Да бисмо ово користили у нашој радној свесци, можемо користити дијалошки оквир Уметање функције.
Кликните у ћелију А3, а затим кликните на Уметни функцију на траци са функцијама.
У дијалогу Уметање функције изаберите Кориснички дефинисано од Одаберите падајућу листу Категорија, а затим изаберите СвитцхСтатемент.
Кликните У РЕДУ, а затим кликните на ћелију А2.
Назив компаније, сачуван у Свитцх Статемент -у, биће враћен на наш радни лист.
