Denne artikel vil demonstrere, hvordan du bruger VBA Switch -sætningen.
VBA Switch -erklæringen bruges på samme måde som VBA Select Case -erklæringen.
Syntaxen for switch -erklæringen
Switch -sætningen evaluerer en liste over udtryk for at se, om de er sande eller falske, og returnerer værdien af de første udtryk, der evalueres som sande. Argumentlisten består af par - et udtryk og en værdi, der returneres, hvis udtrykket vurderes at være sandt.
Kontakt(expr-1, værdi-1, [ expr-2, værdi-2… , [ expr-n, værdi-n ]])
Brug af Switch -sætningen i en VBA -procedure
At bruge dette i en makro kan ligne dette eksempel nedenfor:
1234567 | Sub TestSwitch ()Dim strCompany As StringDim CompanyID som heltalCompanyID = 2strCompany = Switch (CompanyID = 1, "Apple", CompanyID = 2, "IBM", CompanyID = 3, "Samsung")MsgBox strCompaniesAfslut Sub |
Vi erklærer en heltalsvariabel for at holde værdierne fra udtrykkene i switch -sætningen. Vi erklærer derefter en anden strengvariabel for at returnere den værdi, der er indeholdt i dette udtryk.
Brug af switch -erklæringen med et område
I stedet for hårdkodning af værdien, som kontakten skal evaluere til koden, kan vi bruge en værdi, som vi har gemt i en Excel-celle, til at returnere den streng, vi har brug for.
1234567 | Sub TestSwitch ()Dim strCompany As StringDim CompanyID som heltalCompanyID = Range ("A2")strCompany = Switch (CompanyID = 1, "Apple", CompanyID = 2, "IBM", CompanyID = 3, "Samsung")MsgBox strCompaniesAfslut Sub |
For at bruge denne procedure skal vi have et tal i cellen A2 i regnearket. Vi kan derefter køre makroen for at få navnet på virksomheden (dvs. Samsung).
Hvis vi ikke har et nummer i celle A3, og vi kører koden, returneres en Type Mismatch -fejl.
Oprettelse af en brugerdefineret funktion med VBA -switch
Vi kan også oprette en brugerdefineret funktion ved hjælp af VBA -switch og bruge den i vores projektmappe.
123 | Funktion SwitchStatement (i som heltal) Som strengSwitchStatement = Switch (i = 1, "Apple", i = 2, "IBM", i = 3, "Samsung")Afslut funktion |
For at bruge dette i vores projektmappe kan vi bruge dialogboksen Indsæt funktion.
Klik i cellen A3, og klik derefter på Indsæt funktion i funktionslinjen.
Vælg i dialogboksen Indsæt funktion Brugerdefineret fra Vælg rulleliste Kategori, og vælg derefter SwitchStatement.
Klik på OKAY, og klik derefter på celle A2.
Virksomhedens navn, som gemt i switch -erklæringen, returneres til vores regneark.