Ta članek bo pokazal, kako uporabiti stavek VBA Switch.
Stavek VBA Switch se uporablja na podoben način kot stavek VBA Select Case.
Sintaksa stavka Switch
Stavek switch oceni seznam izrazov, da preveri, ali so resnični ali napačni, in vrne vrednost prvih izrazov, ki so ocenjeni kot resnični. Seznam argumentov je sestavljen iz parov - izraza in vrednosti, ki se vrne, če je izraz ovrednoten kot resničen.
Preklopite(izraz-1, vrednost-1, [ izraz-2, vrednost-2… , [ izraz-n, vrednost-n ]])
Uporaba stavka Switch v postopku VBA
Uporaba te makre je lahko podobna spodnjemu primeru:
| 1234567 | Sub TestSwitch ()Dim strPodjetje kot nizZatemni CompanyID kot celo številoCompanyID = 2strCompany = Switch (CompanyID = 1, "Apple", CompanyID = 2, "IBM", CompanyID = 3, "Samsung")MsgBox str PodjetjaEnd Sub |
Razglašamo celoštevilsko spremenljivko, ki vsebuje vrednosti iz izrazov v stavku switch. Nato razglasimo drugo spremenljivko niza, da vrnemo vrednost, ki jo vsebuje ta izraz.
Uporaba stavka Switch z obsegom
Namesto da bi kodirali vrednost, ki jo bo stikalo ovrednotilo v kodo, lahko uporabimo vrednost, ki smo jo shranili v celico Excel, da vrnemo zahtevani niz.
| 1234567 | Sub TestSwitch ()Dim strPodjetje kot nizZatemni CompanyID kot celo številoCompanyID = obseg ("A2")strCompany = Switch (CompanyID = 1, "Apple", CompanyID = 2, "IBM", CompanyID = 3, "Samsung")MsgBox str PodjetjaEnd Sub |
Za uporabo tega postopka bi morali imeti številko v celici A2 na delovnem listu. Nato lahko zaženemo makro, da dobimo ime podjetja (tj. Samsung).
Če v celici A3 nimamo številke in zaženemo kodo, se vrne napaka pri neskladju vrste.
Ustvarjanje funkcije po meri s stikalom VBA
Ustvarimo lahko tudi funkcijo po meri s stikalom VBA in jo uporabimo v svojem delovnem zvezku.
| 123 | Funkcija SwitchStatement (i kot celo število) kot nizSwitchStatement = Stikalo (i = 1, "Apple", i = 2, "IBM", i = 3, "Samsung")Končana funkcija |
Če želite to uporabiti v našem delovnem zvezku, lahko uporabite pogovorno okno Vstavi funkcijo.
Kliknite celico A3 in nato v vrstici s funkcijami kliknite Vstavi funkcijo.
V pogovornem oknu Vstavi funkcijo izberite Uporabnik definiran Iz Na spustnem seznamu izberite kategorijoin nato izberite SwitchStatement.
Kliknite V REDU, in nato kliknite celico A2.
Ime podjetja, shranjeno v izjavi o preklopu, bo vrnjeno na naš delovni list.
