See artikkel näitab, kuidas kasutada VBA Switch avaldust.
VBA Switch avaldust kasutatakse sarnaselt VBA Select Case avaldusega.
Lüliti avalduse süntaks
Lüliti lause hindab avaldiste loendit, et näha, kas need on tõesed või valed, ja tagastab esimeste avaldiste väärtuse, mida hinnatakse tõeseks. Argumendiloend koosneb paaridest - avaldis ja väärtus, mis tagastatakse, kui avaldist hinnatakse tõeseks.
Lüliti(expr-1, väärtus-1, [ expr-2, väärtus-2… , [ expr-n, väärtus-n ]])
Lause Switch kasutamine VBA protseduuris
Selle kasutamine makros võib olla sarnane järgmise näitega:
1234567 | Alamkatse lüliti ()Dim strCompany kui stringHämarda ettevõtte ID täisarvunaEttevõtte ID = 2strCompany = Lüliti (CompanyID = 1, "Apple", CompanyID = 2, "IBM", CompanyID = 3, "Samsung")MsgBox strCompaniesEnd Sub |
Deklareerime täisarvulise muutuja, et hoida lüliti avaldise avaldiste väärtusi. Seejärel deklareerime teise stringimuutuja, et tagastada selles avaldises sisalduv väärtus.
Lüliti avalduse kasutamine vahemikuga
Väärtuse, mida lüliti kavatseb hinnata, kõva kodeerimise asemel saame vajaliku stringi tagastamiseks kasutada väärtust, mille oleme salvestanud Exceli lahtrisse.
1234567 | Sub TestSwitch ()Dim strCompany kui stringHämarda ettevõtte ID täisarvunaEttevõtte ID = vahemik ("A2")strCompany = Lüliti (CompanyID = 1, "Apple", CompanyID = 2, "IBM", CompanyID = 3, "Samsung")MsgBox strCompaniesEnd Sub |
Selle protseduuri kasutamiseks peaks meil töölehe lahtris A2 olema number. Seejärel saame ettevõtte (st Samsungi) nime saamiseks makro käivitada.
Kui meil pole lahtris A3 numbrit ja käivitame koodi, tagastatakse tüübi mittevastavuse viga.
Kohandatud funktsiooni loomine VBA lülitiga
Samuti saame luua kohandatud funktsiooni VBA lüliti abil ja kasutada seda oma töövihikus.
123 | Funktsioon SwitchStatement (i täisarvuna) stringinaSwitchStatement = Lüliti (i = 1, "Apple", i = 2, "IBM", i = 3, "Samsung")Lõppfunktsioon |
Selle kasutamiseks meie töövihikus saame kasutada dialoogiboksi Funktsiooni sisestamine.
Klõpsake lahtrit A3 ja seejärel funktsiooniribal nuppu Lisa funktsioon.
Valige dialoogiboksist Funktsiooni lisamine Kasutaja määratud alates Valige ripploend Kategooriaja seejärel valige SwitchStatement.
Klõpsake nuppu OKEI, ja seejärel klõpsake lahtrit A2.
Vahetusavalduses salvestatud ettevõtte nimi tagastatakse meie töölehele.