Ez a cikk bemutatja a VBA Switch utasítás használatát.
A VBA Switch utasítás hasonló módon használható a VBA Select Case utasításhoz.
A kapcsoló állítás szintaxisa
A switch utasítás értékeli a kifejezések listáját, hogy kiderüljön, igazak vagy hamisak, és visszaadja az első igaznak értékelt kifejezések értékét. Az argumentumlista párokból áll - egy kifejezésből és egy értékből, amely akkor kerül visszaadásra, ha a kifejezést igaznak értékeli.
Kapcsoló(expr-1, érték-1, [ expr-2, érték-2… , [ expr-n, érték-n ]])
A Switch utasítás használata VBA eljárásban
Ennek használata makróban hasonló lehet az alábbi példához:
1234567 | Sub TestSwitch ()Dim strCompany karakterlánckéntDim CompanyID As IntegerVállalati azonosító = 2strCompany = Kapcsoló (CompanyID = 1, "Apple", CompanyID = 2, "IBM", CompanyID = 3, "Samsung")MsgBox strCompaniesEnd Sub |
Egy egész változót deklarálunk, hogy megőrizze a switch utasításban szereplő kifejezések értékeit. Ezután deklarálunk egy másik karakterlánc -változót, hogy visszaadjuk a kifejezésben szereplő értéket.
A Switch Statement használata tartományban
A kapcsoló által kiértékelni kívánt érték kemény kódolása helyett használhatunk egy Excel cellában tárolt értéket a kívánt karakterlánc visszaadására.
1234567 | Sub TestSwitch ()Dim strCompany karakterlánckéntDim CompanyID As IntegerCompanyID = tartomány ("A2")strCompany = Kapcsoló (CompanyID = 1, "Apple", CompanyID = 2, "IBM", CompanyID = 3, "Samsung")MsgBox strCompaniesEnd Sub |
Ennek az eljárásnak a használatához szükségünk van egy számra a munkalap A2 cellájában. Ezután futtathatjuk a makrót, hogy megkapjuk a vállalat nevét (azaz Samsung).
Ha nincs számunk az A3 cellában, és futtatjuk a kódot, akkor a típus nem egyezési hibája jelenik meg.
Egyéni funkció létrehozása VBA kapcsolóval
A VBA kapcsolóval létrehozhatunk egy egyéni funkciót is, és használhatjuk a munkafüzetünkben.
123 | Funkció SwitchStatement (i mint egész) karakterlánckéntSwitchStatement = Kapcsoló (i = 1, "Apple", i = 2, "IBM", i = 3, "Samsung")Vége funkció |
Ennek a munkafüzeten belüli használatához használhatjuk a Funkció beszúrása párbeszédpanelt.
Kattintson az A3 cellára, majd kattintson a Funkció beszúrása elemre a Funkció sávon.
A Funkció beszúrása párbeszédpanelen válassza a lehetőséget Felhasználó által meghatározott tól Válassza a Kategória legördülő listát, majd válassza a lehetőséget SwitchStatement.
Kattintson RENDBEN, majd kattintson a cellára A2.
A cég neve, ahogyan azt a Switch Statement tartalmazza, visszatér a munkalapunkra.