Tento článok ukáže, ako používať príkaz VBA Switch.
Príkaz VBA Switch sa používa podobným spôsobom ako príkaz VBA Select Case.
Syntax vyhlásenia o prepínači
Príkaz switch vyhodnotí zoznam výrazov, aby zistil, či sú pravdivé alebo nepravdivé, a vráti hodnotu prvých výrazov, ktoré sú vyhodnotené ako pravdivé. Zoznam argumentov pozostáva z párov - výrazu a hodnoty, ktorá sa vráti, ak je výraz vyhodnotený ako pravdivý.
Prepnúť(expr-1, hodnota-1, [ expr-2, hodnota-2… , [ expr-n, hodnota-n ]])
Použitie príkazu Switch v postupe VBA
Použitie v makre môže byť podobné tomuto príkladu nižšie:
1234567 | Spínač čiastkového testu ()Dim str. Spoločnosť ako reťazecDim CompanyID as IntegerCompanyID = 2strCompany = Switch (CompanyID = 1, „Apple“, CompanyID = 2, „IBM“, CompanyID = 3, „Samsung“)MsgBox strSpoločnostiKoniec pod |
Deklarujeme celočíselnú premennú, ktorá bude uchovávať hodnoty z výrazov v rámci príkazu switch. Potom deklarujeme inú reťazcovú premennú, aby sme vrátili hodnotu, ktorá je obsiahnutá v tomto výraze.
Použitie príkazu Switch s rozsahom
Namiesto pevného kódovania hodnoty, ktorú má prepínač vyhodnotiť do kódu, môžeme na vrátenie požadovaného reťazca použiť hodnotu, ktorú sme uložili do bunky programu Excel.
1234567 | Spínač čiastkového testu ()Dim str. Spoločnosť ako reťazecDim CompanyID as IntegerCompanyID = rozsah ("A2")strCompany = Switch (CompanyID = 1, „Apple“, CompanyID = 2, „IBM“, CompanyID = 3, „Samsung“)MsgBox strSpoločnostiKoniec pod |
Na použitie tohto postupu by sme potrebovali mať číslo v bunke A2 v pracovnom hárku. Potom môžeme spustiť makro a získať názov spoločnosti (tj. Samsung).
Ak v bunke A3 nemáme číslo a spustíme kód, vráti sa chyba typu Nesúlad.
Vytvorenie vlastnej funkcie pomocou prepínača VBA
Môžeme tiež vytvoriť vlastnú funkciu pomocou prepínača VBA a použiť ju v našom zošite.
123 | Funkcia SwitchStatement (i As Integer) ako reťazecSwitchStatement = Switch (i = 1, „Apple“, i = 2, „IBM“, i = 3, „Samsung“)Koncová funkcia |
Na použitie v našom zošite môžeme použiť dialógové okno Vložiť funkciu.
Kliknite do bunky A3 a potom kliknite na položku Vložiť funkciu na paneli funkcií.
V dialógovom okne Vložiť funkciu vyberte Definované užívateľom z Vyberte rozbaľovací zoznam Kategória, a potom vyberte SwitchStatement.
Kliknite Dobre, a potom kliknite na bunku A2.
Názov spoločnosti uložený vo vyhlásení o prepnutí sa vráti do nášho pracovného hárka.