Ovaj članak će pokazati kako se koristi izjava VBA Switch.
Naredba VBA Switch koristi se na sličan način kao izjava VBA Select Case.
Sintaksa naredbe Switch
Naredba switch procjenjuje popis izraza kako bi provjerila jesu li točni ili lažni te vraća vrijednost prvih izraza koji se procjenjuju kao istiniti. Popis argumenata sastoji se od parova - izraza i vrijednosti koja se vraća ako se izraz ocijeni kao istinit.
Sklopka(ekspr-1, vrijednost-1, [ ekspr-2, vrijednost-2… , [ izraz-n, vrijednost-n ]])
Korištenje naredbe Switch u VBA postupku
Korištenje ovoga u makronaredbi moglo bi biti slično ovom primjeru u nastavku:
1234567 | Sub TestSwitch ()Dim strKompanija kao nizDim CompanyID kao cijeli brojCompanyID = 2strCompany = Switch (CompanyID = 1, "Apple", CompanyID = 2, "IBM", CompanyID = 3, "Samsung")MsgBox strCompaniesKraj podm |
Deklariramo cjelobrojnu varijablu za držanje vrijednosti iz izraza unutar naredbe switch. Zatim deklariramo drugu string varijablu kako bismo vratili vrijednost koja je sadržana u tom izrazu.
Korištenje naredbe Switch s rasponom
Umjesto tvrdog kodiranja vrijednosti koju će sklopka procijeniti u kôd, možemo upotrijebiti vrijednost koju smo pohranili u ćeliju programa Excel za vraćanje niza koji nam je potreban.
1234567 | Sub TestSwitch ()Dim strKompanija kao nizDim CompanyID kao cijeli brojCompanyID = Raspon ("A2")strCompany = Switch (CompanyID = 1, "Apple", CompanyID = 2, "IBM", CompanyID = 3, "Samsung")MsgBox strCompaniesKraj podm |
Da bismo koristili ovaj postupak, morali bismo imati broj u ćeliji A2 na radnom listu. Zatim možemo pokrenuti makro kako bismo dobili naziv tvrtke (tj. Samsung).
Ako nemamo broj u ćeliji A3 i pokrenemo kôd, vratit će se pogreška neusklađenosti tipa.
Stvaranje prilagođene funkcije s VBA prekidačem
Također možemo stvoriti prilagođenu funkciju pomoću VBA prekidača i koristiti je u našoj radnoj knjizi.
123 | Funkcija SwitchStatement (i kao cijeli broj) kao nizSwitchStatement = Switch (i = 1, "Apple", i = 2, "IBM", i = 3, "Samsung")Završna funkcija |
Da bismo to koristili u radnoj knjizi, možemo upotrijebiti dijaloški okvir Umetanje funkcije.
Pritisnite ćeliju A3, a zatim kliknite Umetni funkciju na traci s funkcijama.
U dijaloškom okviru Umetni funkciju odaberite Korisnik definiran od Odaberite padajući popis Kategorija, a zatim odaberite SwitchStatement.
Klik U REDU, a zatim kliknite na ćeliju A2.
Naziv tvrtke pohranjen u Switch Statementu bit će vraćen na naš radni list.