Ebben a cikkben megmutatom, hogyan fejleszthetsz ki és használhatsz egy Igen Nem üzenőmező a VBA Excelben.

Igen-nem üzenőmező fejlesztése és használata Excel VBA-val (gyorsnézet)

 Sub Yes_No_Message_Box() Answer = MsgBox("Tetszik az ExcelWIKI?", vbYesNo) If Answer = vbYes Then Range("C3") = Range("C3") + 1 ElseIf Answer = vbNo Then Range("C4") = Range("C4") + 1 End If End Sub 

Gyakorlati munkafüzet letöltése

Töltse le ezt a gyakorlati munkafüzetet, hogy gyakorolhasson, miközben ezt a cikket olvassa.

A VBA kód áttekintése az Igen Nem üzenetküldő doboz fejlesztéséhez és használatához (lépésről lépésre történő elemzés)

Tanuljuk meg a igen-nem üzenet mező egy egyszerű példával. üzenőmező felteszek neked egy kérdést, szereted az ExcelWIKI-t?

Ha a válaszod igen, akkor kattints a Igen a üzenőmező . És ha a válaszod Nem , akkor kattintson Nem .

Mi fog történni, miután az igen vagy a nem gombra kattintottál a üzenőmező ? Az aktív munkalapon a következők vannak 2 cellák, amelyek tartalmazzák az ExcelWIKI-t kedvelő és nem kedvelő emberek számát. Ha a igen , a hasonló cellában lévő szám eggyel nő.

És ha megütöd nincs , a nem tetsző cellában lévő szám eggyel nő.

Tehát, hogyan lehet ezt az egész feladatot egy VBA kód? Könnyű. Vannak 2 az egész folyamat főbb lépései.

• A fejlesztés a Igen-Nem üzenetváltás
• A kimenet felhasználása a Üzenetdoboz

A tanulás érdekében megmutatom az egyes lépések részleteit.

⧪ 1. lépés: Az igen-nem üzenetdoboz fejlesztése

Először is, létre kell hoznia a igen-nem üzenet dobozban VBA Ez egyszerű. Használja ugyanazt az eljárást, mint a szokásos üzenőmezőnél, az érvre vonatkozó kérdéssel és egy új érvvel együtt. vbYesNo .

Itt a kérdés a következő, "Tetszik az ExcelWIKI?"

 Válasz = MsgBox("Tetszik az ExcelWIKI?", vbYesNo) 

⧪ 2. lépés: Az üzenőmező kimenetének használata

Ezután egy feladatot fogunk végrehajtani a üzenőmező kimenet. Itt a cella C3 tartalmazza az ExcelWIKI-t kedvelők számát, és a cellában C4 tartalmazza azoknak az embereknek a számát, akik nem szeretik az ExcelWIKI-t.

Tehát, ha a válasz Igen , cella C3 eggyel fog nőni. És ha ez a Nem , cella C4 eggyel nő.

Használni fogunk egy If-block hogy ezt végrehajtsa.

 If Answer = vbYes Then Range("C3") = Range("C3") + 1 ElseIf Answer = vbNo Then Range("C4") = Range("C4") + 1 End If 

Tehát a teljes VBA kód lesz:

⧭ VBA-kód:

 Sub Yes_No_Message_Box() Answer = MsgBox("Tetszik az ExcelWIKI?", vbYesNo) If Answer = vbYes Then Range("C3") = Range("C3") + 1 ElseIf Answer = vbNo Then Range("C4") = Range("C4") + 1 End If End Sub 

Makró létrehozása az Igen Nem üzenetmező kifejlesztéséhez és használatához az Excelben

Láttuk a kód lépésről-lépésre történő elemzését az Igen-Nem üzenőmező fejlesztéséhez és használatához. Most nézzük meg, hogyan tudunk egy makrót létrehozni a kód futtatásához.

⧪ 1. lépés: A VBA ablak megnyitása

Sajtó ALT + F11 a billentyűzeten a Visual Basic ablak.

⧪ 2. lépés: Új modul beillesztése

Menjen a Beszúrás> modul az eszköztáron. Kattintson a Modul Egy új modul, a Modul1 (vagy bármi más, az előzményektől függően) fog megnyílni.

⧪ 3. lépés: A VBA kód beillesztése

Ez a legfontosabb lépés. Helyezze be a megadott VBA kód a modulban.

⧪ 4. lépés: A kód futtatása

Kattintson a Run Sub / UserForm futtatása eszközt a fenti eszköztárból.

A kód futni fog. A üzenőmező megkérdezi, hogy tetszik-e ExcelWIKI vagy nem, egy Igen és egy Nem opció.

Ha úgy dönt, hogy Igen , a cellában lévő szám C3 eggyel nő. És ha a Nem , a cellában lévő szám C4 eggyel nő.

Itt kiválasztottam igen , így az emberek száma, akik szeretik ExcelWIKI eggyel nőtt.

Emlékezetes dolgok

• A üzenőmező a oldalon. VBA összesen 4 az úgynevezett Prompt, gomb, cím , és Segédfájl . Itt csak a 2 paraméterek, Prompt és Gomb De ha fel akarod fedezni a VBA üzenőmező részletesebben ezen a linken olvashat.