V tomto článku vám ukážem, ako môžete vytvoriť a používať Áno Nie pole správy v VBA v programe Excel.

Vytvorenie a používanie poľa správy Áno Nie pomocou programu Excel VBA (rýchle zobrazenie)

 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 

Stiahnite si cvičebnicu

Stiahnite si tento cvičebný zošit, aby ste si počas čítania tohto článku precvičili svoje zručnosti.

Prehľad kódu VBA na vytvorenie a používanie okna so správou Áno Nie (analýza krok za krokom)

Naučme sa používať pole pre správu áno - nie na jednoduchom príklade. pole správy vám položí otázku, páči sa vám ExcelWIKI?

Ak je vaša odpoveď áno, kliknete na Áno v pole správy A ak je vaša odpoveď Nie , kliknete na Nie .

Čo sa stane po kliknutí na tlačidlo áno alebo nie v okne pole správy ? V aktívnom pracovnom hárku sú 2 bunky, ktoré obsahujú počet ľudí, ktorí majú radi a nemajú radi ExcelWIKI. áno , číslo v podobnej bunke sa zvýši o jednotku.

A ak zasiahnete nie , číslo v nepodobnej bunke sa zvýši o jednotku.

Ako teda splniť celú túto úlohu pomocou VBA kód? Jednoducho. 2 hlavné kroky celého procesu.

• Vývoj Rámček na správy Áno-Nie
• Použitie výstupu Rámček na správy

Uvádzam podrobnosti každého kroku pre vaše učenie.

⧪ Krok 1: Vypracovanie poľa so správou áno - nie

Najskôr musíte vytvoriť správa áno - nie box v VBA Je to jednoduché. Použite rovnaký postup ako pri bežnom okne správy s otázkou týkajúcou sa argumentu spolu s novým argumentom vbYesNo .

Tu je otázka, "Páči sa vám ExcelWIKI?"

 Answer = MsgBox("Do You Like ExcelWIKI?", vbYesNo) 

⧪ Krok 2: Použitie výstupu z okna správ

Ďalej vykonáme úlohu pomocou pole správy Tu sa bunka C3 obsahuje počet ľudí, ktorí majú radi ExcelWIKI, a bunka C4 obsahuje počet ľudí, ktorí nemajú radi ExcelWIKI.

Ak je teda odpoveď Áno , bunka C3 sa zvýši o jedna. A ak je to Nie , bunka C4 sa zvýši o jednotku.

Použijeme If-block na vykonanie tohto úkonu.

 Ak 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 

Vytvorenie makra na vytvorenie a používanie poľa správy Áno Nie v programe Excel

Videli sme postupnú analýzu kódu na vytvorenie a použitie okna so správou Áno-Nie. Teraz sa pozrime, ako môžeme vytvoriť makro na spustenie tohto kódu.

⧪ Krok 1: Otvorenie okna VBA

Tlač ALT + F11 na klávesnici otvoriť Visual Basic okno.

⧪ Krok 2: Vloženie nového modulu

Prejsť na Vložiť> Modul na paneli nástrojov. Kliknite na Modul . Nový modul s názvom Modul1 (alebo čokoľvek iné v závislosti od vašej predchádzajúcej histórie).

⧪ Krok 3: Vloženie kódu VBA

Toto je najdôležitejší krok. Vložte daný VBA kód v module.

⧪ Krok 4: Spustenie kódu

Kliknite na Spustiť podponuku / UserForm z panela nástrojov vyššie.

Kód sa spustí. A pole správy sa vás opýta, či sa vám páči ExcelWIKI alebo nie, s Áno a Nie možnosť.

Ak si vyberiete Áno , číslo v bunke C3 sa zvýši o jedna. A ak si vyberiete Nie , číslo v bunke C4 sa zvýši o jednotku.

Tu som vybral áno , takže počet ľudí, ktorí majú radi ExcelWIKI sa zvýšil o jeden.

Čo si treba zapamätať

• A pole správy na stránke VBA obsahuje celkovo 4 parametre nazývané Výzva, tlačidlo, názov a Súbor pomoci . Tu som ukázal len 2 parametre, Prompt a Tlačidlo Ale ak chcete objaviť Pole správ VBA podrobnejšie informácie nájdete na tomto odkaze.