Tämä artikkeli näyttää kuinka käyttää VBA Switch -lauseketta.
VBA Switch -lauseketta käytetään samalla tavalla kuin VBA Select Case -lauseketta.
Kytkinlauseen syntaksi
Switch -lauseke arvioi lausekeluettelon nähdäkseen, ovatko ne totta vai vääriä, ja palauttaa ensimmäisen lausekkeen arvon, joka arvioidaan tosi. Argumenttiluettelo koostuu pareista - lauseke ja arvo, joka palautetaan, jos lauseke arvioidaan oikeaksi.
Vaihtaa(lauseke-1, arvo-1, [ lauseke-2, arvo-2… , [ lauseke n, arvo-n ]])
Switch -lauseen käyttäminen VBA -menettelyssä
Tämän käyttäminen makrossa voi olla samanlainen kuin alla oleva esimerkki:
| 1234567 | Sub TestSwitch ()Dim strCompany merkkijononaDim CompanyID kokonaislukunaYrityksen tunnus = 2strCompany = Kytkin (CompanyID = 1, "Apple", CompanyID = 2, "IBM", CompanyID = 3, "Samsung")MsgBox strCompaniesEnd Sub |
Ilmoitamme kokonaislukumuuttujan pitämään arvot Switch -lausekkeen lausekkeista. Ilmoitamme sitten toisen merkkijonomuuttujan palauttamaan lausekkeen sisältämän arvon.
Kytkinlauseen käyttäminen alueen kanssa
Sen sijaan, että koodattaisiin arvo, jonka kytkin arvioi koodiksi, voimme käyttää Excel-soluun tallentamaamme arvoa palauttaaksemme tarvitsemamme merkkijonon.
| 1234567 | Sub TestSwitch ()Dim strCompany merkkijononaDim CompanyID kokonaislukunaCompanyID = alue ("A2")strCompany = Kytkin (CompanyID = 1, "Apple", CompanyID = 2, "IBM", CompanyID = 3, "Samsung")MsgBox strCompaniesEnd Sub |
Käyttääksemme tätä menettelyä meidän pitäisi olla numero laskentataulukon solussa A2. Voimme sitten suorittaa makron saadaksemme yrityksen nimen (eli Samsungin).
Jos solussa A3 ei ole numeroa ja suoritamme koodin, palautetaan tyyppivirhe.
Mukautetun toiminnon luominen VBA -kytkimellä
Voimme myös luoda mukautetun toiminnon VBA -kytkimellä ja käyttää sitä työkirjassa.
| 123 | Toiminto SwitchStatement (i kokonaislukuna) merkkijononaSwitchStatement = Kytkin (i = 1, "Apple", i = 2, "IBM", i = 3, "Samsung")Lopeta toiminto |
Voit käyttää tätä työkirjassamme käyttämällä Lisää toiminto -valintaikkunaa.
Napsauta solua A3 ja napsauta sitten Toimintopalkissa Lisää toiminto.
Valitse Lisää toiminto -valintaikkunasta Käyttäjän määrittelemä alkaen Valitse avattavasta Luokka -luettelostaja valitse sitten SwitchStatement.
Klikkaus OK, ja napsauta sitten solua A2.
Yrityksen nimi, joka on tallennettu Switch Statementiin, palautetaan laskentataulukkoomme.
