Šis straipsnis parodys, kaip naudoti „VBA Switch“ teiginį.
„VBA Switch“ teiginys naudojamas panašiai kaip „VBA Select Case“ teiginys.
Perjungimo teiginio sintaksė
„Switch“ teiginys įvertina išraiškų sąrašą, kad sužinotų, ar jos teisingos, ar klaidingos, ir grąžina pirmųjų išraiškų vertę, kuri įvertinta kaip teisinga. Argumentų sąrašą sudaro poros - išraiška ir reikšmė, kuri grąžinama, jei išraiška vertinama kaip teisinga.
Perjungti(išraiška-1, vertė-1, [ expr-2, vertė-2… , [ išraiška-n, vertė-n ]])
„Switch“ teiginio naudojimas VBA procedūroje
Naudojimas makrokomandoje gali būti panašus į šį pavyzdį:
| 1234567 | Sub TestSwitch ()Dim strCompany As String„Dim CompanyID As Integer“Įmonės ID = 2strCompany = Perjungti (Įmonės ID = 1, „Apple“, Įmonės ID = 2, „IBM“, Įmonės ID = 3, „Samsung“)„MsgBox strCompanies“Pabaiga Sub |
Mes deklaruojame sveiką skaičių kintamąjį, kad būtų laikomos jungiklio teiginio išraiškų vertės. Tada deklaruojame kitą eilutės kintamąjį, kad grąžintume vertę, esančią toje išraiškoje.
Perjungimo teiginio naudojimas su diapazonu
Vietoj to, kad į kodą būtų sunku koduoti vertę, kurią jungiklis ketina įvertinti, mes galime naudoti vertę, kurią išsaugojome „Excel“ langelyje, kad grąžintume mums reikalingą eilutę.
| 1234567 | Sub TestSwitch ()Dim strCompany As String„Dim CompanyID As Integer“Įmonės ID = diapazonas ("A2")strCompany = Perjungti (Įmonės ID = 1, „Apple“, Įmonės ID = 2, „IBM“, Įmonės ID = 3, „Samsung“)„MsgBox strCompanies“Pabaiga Sub |
Jei norite naudoti šią procedūrą, darbalapio lange A2 turėtume turėti numerį. Tada galime paleisti makrokomandą, kad gautume įmonės pavadinimą (ty „Samsung“).
Jei A3 langelyje neturime skaičiaus ir vykdome kodą, bus grąžinta tipo neatitikimo klaida.
Tinkintos funkcijos kūrimas naudojant VBA jungiklį
Mes taip pat galime sukurti pasirinktinę funkciją naudodami VBA jungiklį ir naudoti ją savo darbaknygėje.
| 123 | Funkcija SwitchStatement (i As Integer) kaip eilutė„SwitchStatement“ = jungiklis (i = 1, „Apple“, i = 2, „IBM“, i = 3, „Samsung“)Pabaigos funkcija |
Norėdami tai naudoti savo darbaknygėje, galime naudoti dialogo langą Įterpti funkciją.
Spustelėkite langelį A3, tada funkcijų juostoje spustelėkite Įterpti funkciją.
Dialogo lange Įterpti funkciją pasirinkite Naudotojo apibrėžta nuo Pasirinkite išskleidžiamąjį sąrašą Kategorija, tada pasirinkite „SwitchStatement“.
Spustelėkite GERAI, ir tada spustelėkite langelį A2.
Įmonės pavadinimas, išsaugotas „Switch Statement“, bus grąžintas į mūsų darbalapį.
