Případ Excel VBA

V aplikaci Excel neexistuje žádné přímé ustanovení k vyvolání věty nebo prohlášení hledáním jakéhokoli slova nebo čísla. To lze provést pomocí funkcí insert, ale bude to vyžadovat příliš mnoho argumentů. Případ VBA se používá k volání jednoho nebo libovolné skupiny příkazů, která závisí na hodnotě výrazu. Pokud má výraz nebo velikost písmen v definovaných hodnotách nebo větách, pak pokud zadáme číslo případu, dostaneme hodnoty nebo věty definované pro toto číslo nebo abecedu.

Níže jsou vyžadovány následující syntaxe;

  • Select Case - Select Case je textový výraz, který se používá v číselné nebo řetězcové podobě.
  • Případ - Případ má expresionisty-n a prohlášení-n, což znamená, že expresionista vyžaduje, pokud existuje nějaký případ, a prohlášení-n je volitelné, pokud se testovací výrazy shodují s expresionisty-n.
  • Else Statement - Pokud se testovací výraz neshoduje s žádným z výrazů Case, objeví se Else Statement.

Jak používat Excel VBA Case Case?

Na několika příkladech se naučíme, jak používat prohlášení o případu Excel VBA.

Tuto šablonu VBA Case Excel si můžete stáhnout zde - VBA Case Excel Template

Prohlášení o případu Excel VBA - Příklad # 1

Vytváříme VBA Case pro textový výpis s čísly pro různé dny v týdnu. Chcete-li použít Případ ve VBA, postupujte podle následujících kroků.

Krok 1: Přejděte do okna VBA a otevřete nový modul výběrem modulu na kartě nabídky Vložit, jak je ukázáno níže.

Krok 2: Jakmile to uděláme, otevřeme nový modul. Nyní napište Subcategory do prováděného názvu funkčního nebo jakéhokoli jiného jména podle vašeho výběru, jak je uvedeno níže.

Kód:

 Sub Case_Statement1 () End Sub 

Krok 3: Když vytváříme příkaz s čísly, nejprve definujte celé číslo, jak je ukázáno níže.

Kód:

 Sub Case_Statement1 () Dim A jako celé číslo Sub Sub 

Krok 4: Nyní přiřaďte vstupní pole definovanému celému číslu a zadejte název pole „ Zadejte den v týdnu “, jak je uvedeno níže. Bude nás informovat, abychom do tohoto pole zadali číslo případu, abychom dostali odpověď.

Kód:

 Sub Case_Statement1 () Dim A jako celé číslo A = InputBox ("Zadejte den v týdnu") End Sub 

Krok 5: Nyní integrujte definované celé číslo s Case pomocí příkazu Select, jak je ukázáno níže. Přiřadí Case jako celé číslo.

Kód:

 Sub Case_Statement1 () Dim A jako celé číslo A = InputBox ("Zadejte den v týdnu") Vyberte Case A End Sub 

Krok 6: Protože máme 7 dní v týdnu, tak začíná od pondělí, protože případ 1 s ohledem na pondělí je prvním dnem práce do posledního dne týdne, kterým je neděle jako případ 7 . A pro tisk všech případů do textového pole zprávy použijeme příkaz MsgBox se všemi případy od 1 do 7 pro každý den v týdnu, jak je ukázáno níže.

Kód:

 Sub Case_Statement1 () Dim A jako celé číslo A = InputBox ("Zadejte den v týdnu") Vyberte případ A Případ 1: MsgBox "Den je pondělí" Případ 2: MsgBox "Den je úterý" Případ 3: MsgBox "Den je středa" Případ 4: MsgBox "Den je čtvrtek" Případ 5: MsgBox "Den je pátek" Případ 6: MsgBox "Den je sobota" Případ 7: MsgBox "Den je neděle" End Sub 

Krok 7: Nyní přichází část Případu Případ, kde budeme psát, pokud některý z definovaných případů není PRAVDA, pak dostaneme Příkaz Příkazu Případu jako „ Nesprávný den “. A také proto použijeme MsgBox a End Select it.

Kód:

 Sub Case_Statement1 () Dim A jako celé číslo A = InputBox ("Zadejte den v týdnu") Vyberte případ A Případ 1: MsgBox "Den je pondělí" Případ 2: MsgBox "Den je úterý" Případ 3: MsgBox "Den je středa" Případ 4: MsgBox "Den je čtvrtek" Případ 5: MsgBox "Den je pátek" Případ 6: MsgBox "Den je sobota" Případ 7: MsgBox "Den je neděle" Případ Else: MsgBox "Nesprávný den" End Select End Sub Sub 

Krok 8: Po dokončení kompilace a spuštění kódu. Dostaneme schránku se zprávou, která požádá o zadání dne v týdnu, jak je ukázáno níže. Zde zadejte číslo případu od 1 do 7. Zadáme 5 a uvidíme, co přijde. Dostali jsme zprávu, že „ Den je pátek “, který byl přiřazen k případu 5.

Krok 9: Nyní zadejte libovolné číslo jiné než 1 až 7. Nechť je 9. Jakmile to uděláme, dostaneme zprávu jako „ Nesprávný den “, jak je ukázáno níže, protože v týdnu je pouze 7 dní. Jiná hodnota zobrazí níže chybovou zprávu, kterou jsme definovali v Případu Případ.

Prohlášení o případu Excel VBA - Příklad # 2

Podobným způsobem v tomto příkladu použijeme VBA Case pro tisk textové zprávy pomocí String. Použijeme Case k tisku různých přísloví jako textového prohlášení.

Krok 1: Za tímto účelem otevřete nový modul ze záložky Vložit a do seznamu provedené funkce napište Podkategorie, jak je znázorněno níže.

Kód:

 Sub Case_Statement2 () End Sub 

Krok 2: Nyní definujte řetězec, kde uložíme textové hodnoty, jak je ukázáno níže.

Kód:

 Sub Case_Statement2 () Dim A jako String End Sub 

Krok 3: Nyní přiřaďte vstupnímu poli definovaný řetězec větou „ Zadejte slovo podle vašeho výběru “.

Kód:

 Sub Case_Statement2 () Dim A jako řetězec A = InputBox ("Zadejte slovo podle vašeho výběru") End Sub 

Krok 4: Nyní otevřete smyčku Select Case a končte End Select pro definovaný řetězec A.

Kód:

 Sub Case_Statement2 () Dim A jako řetězec A = InputBox ("Zadejte slovo podle vašeho výběru") Vyberte případ A konec Vyberte konec Sub 

Krok 5: Nyní ve smyčce Select Case pro řetězec A napište jakékoli přísloví s okénkem se zprávou. Zde jsme vybrali 3 přísloví počínaje případem 1 až 3 příkazem MsgBox ve schránce, jak je ukázáno níže.

Kód:

 Sub Case_Statement2 () Dim A jako řetězec A = InputBox ("Enter Word of Your Choice") Vyberte případ A Případ 1: MsgBox "Takový je způsob života" Případ 2: MsgBox "Co jde kolem, přijde kolem" Případ 3: MsgBox "Tit For Tat" End Vyberte End Sub 

Krok 6: Nyní je výše uvedený příkaz PRAVDA pouze mezi čísly 1 až 3. Kromě těchto čísel musíme také definovat příkaz FALSE také ve stavu Else, jak je uvedeno níže.

Kód:

 Sub Case_Statement2 () Dim A jako řetězec A = InputBox ("Enter Word of Your Choice") Vyberte případ A Případ 1: MsgBox "Takový je způsob života" Případ 2: MsgBox "Co jde kolem, přijde kolem" Případ 3: Případ MsgBox „Tit For Tat“: MsgBox „Nic nenalezeno“ End Select End Sub 

Krok 7: Nyní zkompilujte a spusťte kód. Dostaneme zprávu, kde bude požadovat zadání libovolného slova podle vašeho výběru.

Jak jsme již definovali některé případy výše čísly, zde zadáme libovolné číslo od 1 do 3. Pojďme zadat 2 a uvidíme, co přijde.

Jak vidíme výše, příslovka uložená v Případu 2 je zobrazena v okně zprávy.

Krok 8: Nyní vyzkoušejte jiné číslo nebo abecedu než 1 až 3. Vezměme A. Protože jsme pro A nic nedefinovali, dostali jsme chybovou zprávu jako Nic nenalezeno .

Výhody případu VBA

  • Není třeba psát velké příkazy funkce vložení v Excelu namísto VBA Case Case je poměrně krátký.
  • Je to docela užitečné při vytváření nějakého dotazníku, kde vstupní vstup zkrátka.
  • Nejrychlejší a nejjednodušší způsob, jak přidat prohlášení o případu.
  • Méně šancí na chybu.

Co si pamatovat

  • Nezapomeňte uložit soubor Excel jako Makro-Enabled Excel, takže můžeme použít vytvořený kód vícekrát.
  • Ve smyčce Select Case můžeme také použít Alphabets namísto čísel pomocí příkazu String.
  • Vždy definujte příkaz Else takovým způsobem, aby byl jasný význam přerušení chybějícího bodu.
  • Složité dotazníky lze také vytvářet pomocí několika a různých příkazů.

Doporučené články

Toto byl průvodce Excel VBA případu. Zde jsme diskutovali o tom, jak používat Excel VBA Case spolu s několika praktickými příklady a stahovatelnou šablonou Excel. Můžete si také prohlédnout naše další doporučené články -

  1. Excel VBA MsgBox
  2. Kompletní průvodce VBA při chybě
  3. Formátování čísel pomocí formátu VBA
  4. Jak používat VBA TRIM?

Kategorie: