Šis raksts parādīs, kā izmantot paziņojumu VBA Switch.
Paziņojums VBA Switch tiek izmantots līdzīgi kā paziņojums VBA Select Case.
Slēdža paziņojuma sintakse
Slēdža paziņojums novērtē izteiksmju sarakstu, lai noskaidrotu, vai tās ir patiesas vai nepatiesas, un atgriež pirmo izteiksmju vērtību, kas tiek novērtēta kā patiesa. Argumentu sarakstu veido pāri - izteiksme un vērtība, kas tiek atgriezta, ja izteiksme tiek novērtēta kā patiesa.
Slēdzis(izteiksme-1, vērtība-1, [ izteiksme-2, vērtība-2… , [ izteiksme-n, vērtība-n ]])
Pārslēgšanas paziņojuma izmantošana VBA procedūrā
Lai to izmantotu makro, tas varētu būt līdzīgs šim zemāk redzamajam piemēram.
| 1234567 | Sub TestSwitch ()Dim strCompany kā virkneDim CompanyID kā vesels skaitlisUzņēmuma ID = 2strCompany = Slēdzis (CompanyID = 1, "Apple", CompanyID = 2, "IBM", CompanyID = 3, "Samsung")MsgBox strCompaniesBeigu apakš |
Mēs deklarējam veselu skaitļu mainīgo, lai turētu slēdža paziņojuma izteiksmju vērtības. Pēc tam mēs deklarējam citu virknes mainīgo, lai atgrieztu šajā izteiksmē ietverto vērtību.
Slēdža paziņojuma izmantošana diapazonā
Tā vietā, lai kodā kodētu vērtību, ko slēdzis novērtēs, mēs varam izmantot vērtību, ko esam saglabājuši Excel šūnā, lai atgrieztu vajadzīgo virkni.
| 1234567 | Sub TestSwitch ()Dim strCompany kā virkneDim CompanyID kā vesels skaitlisUzņēmuma ID = diapazons ("A2")strCompany = Slēdzis (CompanyID = 1, "Apple", CompanyID = 2, "IBM", CompanyID = 3, "Samsung")MsgBox strCompaniesBeigu apakš |
Lai izmantotu šo procedūru, darblapas šūnā A2 jābūt numuram. Pēc tam mēs varam palaist makro, lai iegūtu uzņēmuma nosaukumu (ti, Samsung).
Ja šūnā A3 nav skaitļa un mēs izpildām kodu, tiks parādīta tipa neatbilstības kļūda.
Pielāgotas funkcijas izveide ar VBA slēdzi
Mēs varam arī izveidot pielāgotu funkciju, izmantojot VBA slēdzi, un izmantot to mūsu darbgrāmatā.
| 123 | Funkcija SwitchStatement (i kā vesels skaitlis) kā virkneSwitchStatement = Slēdzis (i = 1, "Apple", i = 2, "IBM", i = 3, "Samsung")Beigu funkcija |
Lai to izmantotu savā darbgrāmatā, mēs varam izmantot dialoglodziņu Funkcijas ievietošana.
Noklikšķiniet šūnā A3 un pēc tam funkciju joslā noklikšķiniet uz Ievietot funkciju.
Dialoglodziņā Funkcijas ievietošana atlasiet Lietotājs definēts no Izvēlieties nolaižamo sarakstu Kategorijaun pēc tam atlasiet SwitchStatement.
Klikšķis LABI, un pēc tam noklikšķiniet uz šūnas A2.
Uzņēmuma nosaukums, kas saglabāts paziņojumā par pārslēgšanos, tiks atgriezts mūsu darblapā.
