Tento článek předvede, jak používat příkaz VBA Switch.
Příkaz VBA Switch se používá podobným způsobem jako příkaz VBA Select Case.
Syntaxe příkazu Switch
Příkaz switch vyhodnotí seznam výrazů, aby zjistil, zda jsou pravdivé nebo nepravdivé, a vrátí hodnotu prvních výrazů, která je vyhodnocena jako pravdivá. Seznam argumentů se skládá z párů - výrazu a hodnoty, která je vrácena, pokud je výraz vyhodnocen jako pravdivý.
Přepínač(expr-1, hodnota-1, [ expr-2, hodnota-2… , [ expr-n, hodnota-n ]])
Použití příkazu Switch v postupu VBA
Použití v makru může být podobné tomuto příkladu níže:
| 1234567 | Dílčí testovací spínač ()Dim str. Společnost jako řetězecDim CompanyID as IntegerCompanyID = 2strCompany = Switch (CompanyID = 1, "Apple", CompanyID = 2, "IBM", CompanyID = 3, "Samsung")MsgBox strSpolečnostiEnd Sub |
Deklarujeme celočíselnou proměnnou, která bude uchovávat hodnoty z výrazů v příkazu switch. Potom deklarujeme jinou řetězcovou proměnnou, abychom vrátili hodnotu, která je obsažena v tomto výrazu.
Použití příkazu Switch s rozsahem
Namísto pevného kódování hodnoty, kterou má přepínač vyhodnotit do kódu, můžeme použít hodnotu, kterou jsme uložili do buňky aplikace Excel, k vrácení požadovaného řetězce.
| 1234567 | Dílčí testovací spínač ()Dim strSpolečnost jako řetězecDim CompanyID as IntegerCompanyID = rozsah ("A2")strCompany = Switch (CompanyID = 1, "Apple", CompanyID = 2, "IBM", CompanyID = 3, "Samsung")MsgBox strSpolečnostiEnd Sub |
Abychom mohli použít tento postup, potřebovali bychom mít číslo v buňce A2 v listu. Poté můžeme spustit makro, abychom získali název společnosti (tj. Samsung).
Pokud v buňce A3 nemáme číslo a spustíme kód, vrátí se chyba Neshoda typu.
Vytvoření vlastní funkce pomocí přepínače VBA
Můžeme také vytvořit vlastní funkci pomocí přepínače VBA a použít ji v našem sešitu.
| 123 | Funkce SwitchStatement (i jako celé číslo) jako řetězecSwitchStatement = Switch (i = 1, „Apple“, i = 2, „IBM“, i = 3, „Samsung“)Koncová funkce |
Chcete -li to použít v našem sešitu, můžeme použít dialogové okno Vložit funkci.
Klikněte do buňky A3 a poté klikněte na Vložit funkci na panelu funkcí.
V dialogovém okně Vložit funkci vyberte Definováno uživatelem z Vyberte rozevírací seznam Kategoriea poté vyberte Přepnout prohlášení.
Klikněte OK, a poté klikněte na buňku A2.
Název společnosti uložený v prohlášení o přepnutí bude vrácen do našeho listu.
