Selles artiklis näitan teile, kuidas saate arendada ja kasutada Jah Ei sõnumikastis VBA Excelis.

Jah-ei-teate kasti arendamine ja kasutamine Exceli VBAga (Kiirvaade)

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

Lae alla praktiline töövihik

Lae alla see harjutusvihik, et seda artiklit lugedes harjutada.

Ülevaade VBA-koodist, et arendada ja kasutada jah-ei-teateakent (samm-sammuline analüüs)

Õpime kasutama jah-ei teate lahter lihtsa näitega. sõnumikast esitab teile küsimuse, kas teile meeldib ExcelWIKI?

Kui teie vastus on jaatav, siis klõpsake Jah aastal sõnumikast Ja kui teie vastus on Ei , siis klõpsake Ei .

Mis juhtub pärast seda, kui te klõpsate jah või ei nupule "jah". sõnumikast ? aktiivsel töölehel on 2 lahtrid, mis sisaldavad nende inimeste arvu, kellele meeldib ja kellele ei meeldi ExcelWIKI. Kui vajutate jah , suureneb sarnase lahtri number ühe võrra.

Ja kui te tabate ei , suureneb number ebameeldivas lahtris ühe võrra.

Niisiis, kuidas täita kogu seda ülesannet koos VBA Koodi? Lihtne. On olemas 2 kogu protsessi peamised etapid.

• Arendamine Jah-ei sõnumikast
• Kasutades väljundit Sõnumikast

Näitan iga sammu üksikasju teie õppimiseks.

⧪ 1. samm: Jah-ei-teate kasti väljatöötamine

Kõigepealt tuleb luua jah-ei-teade kastis VBA See on lihtne. Kasutage sama protseduuri nagu tavalise sõnumikasti puhul, kusjuures küsimus argumendi kohta koos uue argumendiga vbYesNo .

Siin on küsimus, "Kas sulle meeldib ExcelWIKI?"

 Vastus = MsgBox("Kas sulle meeldib ExcelWIKI?", vbYesNo) 

⧪ 2. samm: Sõnumiboksi väljundi kasutamine

Järgmisena täidame ülesande, kasutades selleks funktsiooni sõnumikast väljund. Siin on raku C3 sisaldab nende inimeste arvu, kellele meeldib ExcelWIKI, ja lahter C4 sisaldab nende inimeste arvu, kellele ExcelWIKI ei meeldi.

Niisiis, kui vastus on Jah , rakk C3 suureneb ühe võrra. Ja kui see on Ei , rakk C4 suureneb ühe võrra.

Me kasutame If-block selle teostamiseks.

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

Nii et täielik VBA kood on:

⧭ VBA kood:

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

Makro loomine jah-ei-teateakna arendamiseks ja kasutamiseks Excelis

Nägime samm-sammult koodi analüüsi, et arendada ja kasutada jah-ei-teate kasti. Nüüd vaatame, kuidas me saame luua makro koodi käivitamiseks.

⧪ 1. samm: VBA akna avamine

Press ALT + F11 klaviatuuril, et avada Visual Basic aken.

⧪ 2. samm: uue mooduli sisestamine

Mine edasi Insert> moodul tööriistaribal. Klõpsake Moodul Uus moodul nimega Moodul1 (või midagi muud, sõltuvalt teie varasemast ajaloost) avaneb.

⧪ 3. samm: VBA koodi sisestamine

See on kõige olulisem samm. Sisestage antud VBA kood moodulis.

⧪ 4. samm: koodi käivitamine

Klõpsake nuppu Run Sub / UserForm tööriistaribalt ülalpool olevast tööriistast.

Kood käivitub. A sõnumikast küsib teilt, kas teile meeldib ExcelWIKI või mitte, koos Jah ja Ei võimalus.

Kui valite Jah , number lahtris C3 suureneb ühe võrra. Ja kui te valite Ei , number lahtris C4 suureneb ühe võrra.

Siin olen valinud jah , nii et inimeste arv, kellele meeldib ExcelWIKI on suurenenud ühe võrra.

Asjad, mida meeles pidada

• A sõnumikast aadressil VBA sisaldab kokku 4 parameetrid nimega Prompt, nupp, pealkiri ja Abifail . Siin olen näidanud ainult 2 parameetrid, Prompt ja Nupp . Aga kui sa tahad avastada VBA sõnumikast üksikasjalikumalt, võite vaadata seda linki.