Obsah
V tomto článku vám ukážu, jak můžete vytvořit a používat Ano Ne pole zprávy v VBA v aplikaci Excel.
Vytvoření a použití pole zpráv Ano Ne pomocí aplikace Excel VBA (Rychlé zobrazení)
Sub Yes_No_Message_Box() Answer = MsgBox("Do You Like ExcelWIKI?", vbYesNo) If Answer = vbYes Then Range("C3") = Range("C3") + 1 ElseIf Answer = vbNo Then Range("C4") = Range("C4") + 1 End If End Sub 
Stáhnout cvičebnici
Stáhněte si tento cvičební sešit a procvičujte si při čtení tohoto článku.
Ano Ne Message Box.xlsmPřehled kódu VBA pro vytvoření a použití rámečku se zprávou Ano Ne (analýza krok za krokem)
Naučme se používat pole se zprávou ano-ne na jednoduchém příkladu. pole pro zprávy vám položí otázku, Líbí se vám ExcelWIKI?
Pokud je vaše odpověď kladná, kliknete na Ano v pole pro zprávy A pokud je vaše odpověď Ne , kliknete na Ne .
Co se stane po kliknutí na tlačítko ano nebo ne v okně pole pro zprávy ? V aktivním pracovním listu se nachází 2 buňky, které obsahují počet lidí, kterým se ExcelWIKI líbí a nelíbí. Pokud stisknete tlačítko ano , číslo v podobné buňce se zvýší o jedničku.
A pokud se trefíte ne , zvýší se číslo v buňce dislike o jedničku.
Jak tedy celý tento úkol splnit pomocí VBA kód? Snadno. 2 hlavní kroky celého procesu.
- Vývoj Rámeček pro zprávy Ano-Ne
- Použití výstupu Pole pro zprávy
Uvádím podrobnosti jednotlivých kroků pro vaše poučení.
⧪ Krok 1: Vytvoření rámečku se zprávou Ano-Ne
Nejprve je třeba vytvořit zpráva ano-ne box v VBA . To je snadné. Použijte stejný postup jako u běžného pole pro zprávy s otázkou ohledně argumentu spolu s novým argumentem. vbYesNo .
Otázka zní, "Líbí se vám ExcelWIKI?"
Answer = MsgBox("Líbí se vám ExcelWIKI?", vbYesNo) 
⧪ Krok 2: Použití výstupu pole zpráv
Dále provedeme úlohu pomocí příkazu pole pro zprávy zde je buňka C3 obsahuje počet lidí, kteří mají rádi ExcelWIKI, a buňka C4 obsahuje počet lidí, kteří nemají rádi ExcelWIKI.
Pokud je tedy odpověď Ano , buňka C3 se zvýší o jedna. A pokud je to Ne , buňka C4 se zvýší o jedna.
Použijeme If-block k provedení tohoto úkonu.
If Answer = vbYes Then Range("C3") = Range("C3") + 1 ElseIf Answer = vbNo Then Range("C4") = Range("C4") + 1 End If 
Takže kompletní VBA kód bude:
⧭ Kód VBA:
Sub Yes_No_Message_Box() Answer = MsgBox("Do You Like ExcelWIKI?", vbYesNo) If Answer = vbYes Then Range("C3") = Range("C3") + 1 ElseIf Answer = vbNo Then Range("C4") = Range("C4") + 1 End If End Sub
Vytvoření makra pro vytvoření a použití pole zpráv Ano Ne v aplikaci Excel
Viděli jsme postupnou analýzu kódu pro vytvoření a použití pole zpráv Ano-Ne. Nyní se podíváme, jak můžeme vytvořit makro pro spuštění tohoto kódu.
⧪ Krok 1: Otevření okna VBA
Tisk ALT + F11 na klávesnici, abyste otevřeli Visual Basic okno.
⧪ Krok 2: Vložení nového modulu
Přejít na Vložit> Modul na panelu nástrojů. Klikněte na Modul . Nový modul s názvem Modul1 (nebo cokoli jiného v závislosti na vaší historii).
⧪ Krok 3: Vložení kódu VBA
Toto je nejdůležitější krok. Vložte zadaný VBA kód v modulu.
⧪ Krok 4: Spuštění kódu
Klikněte na Run Sub / UserForm z panelu nástrojů nahoře.
Kód se spustí. A pole pro zprávy se vás zeptá, zda se vám líbí ExcelWIKI nebo ne, s Ano a Ne možnost.
Pokud se rozhodnete Ano , číslo v buňce C3 se zvýší o jedna. A pokud zvolíte Ne , číslo v buňce C4 se zvýší o jedna.
Zde jsem vybral ano , takže počet lidí, kteří mají rádi ExcelWIKI se zvýšil o jedničku.
Na co nezapomenout
- A pole pro zprávy na adrese VBA obsahuje celkem 4 parametry nazvané Výzva, tlačítko, název a Soubor nápovědy . Zde jsem zobrazil pouze 2 parametry, Prompt a Tlačítko . Ale pokud chcete objevit Pole zpráv VBA podrobněji se můžete podívat na tento odkaz.
