I denne artikel vil jeg vise dig, hvordan du kan udvikle og bruge en Ja Nej beskedboks i VBA i Excel.

Udvikle og bruge en ja-nej-meddelelsesboks med Excel VBA (hurtig visning)

 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 

Download arbejdsbog til øvelser

Download denne arbejdsbog til træning, så du kan øve dig, mens du læser denne artikel.

En oversigt over VBA-koden til udvikling og brug af en ja-nej-meddelelsesboks (trinvis analyse)

Lad os lære brugen af en ja-nej-meddelelsesfelt med et enkelt eksempel. beskedboks vil stille dig et spørgsmål, kan du lide ExcelWIKI?

Hvis du svarer ja, skal du klikke på Ja i den beskedboks . og hvis dit svar er Nej , klikker du på Nej .

Hvad sker der nu, når du klikker på ja eller nej i beskedboks ? I det aktive regneark er der 2 celler, der indeholder antallet af personer, der kan lide og ikke kan lide ExcelWIKI. Hvis du trykker på ja vil tallet i den tilsvarende celle stige med én.

Og hvis du rammer ingen vil tallet i den celle, der ikke ligner, stige med én.

Så hvordan kan man udføre hele denne opgave med en VBA kode? let. Der er 2 vigtige trin i hele processen.

• Udvikling af den Ja-Nej beskedboks
• Brug af output fra Meddelelsesboks

Jeg viser detaljerne for hvert enkelt trin, så du kan lære det.

⧪ Trin 1: Udarbejdelse af en ja-nej-meddelelsesboks

Først og fremmest skal du oprette den ja-nej-meddelelse boks i VBA Det er nemt. Brug samme procedure som i den almindelige meddelelsesboks, med spørgsmålet om argumentet og et nyt argument. vbYesNo .

Her er spørgsmålet, "Kan du lide ExcelWIKI?"

 Svar = MsgBox("Kan du lide ExcelWIKI?", vbYesNo) 

⧪ Trin 2: Brug af beskedboksens output

Dernæst skal vi udføre en opgave ved hjælp af beskedboks output. Her er celle C3 indeholder antallet af personer, der kan lide ExcelWIKI, og celle C4 indeholder antallet af personer, der ikke kan lide ExcelWIKI.

Så hvis svaret er Ja , celle C3 vil stige med én. Og hvis det er Nej , celle C4 vil stige med én.

Vi bruger en If-blok til at udføre dette.

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

Så den komplette VBA kode vil være:

⧭ VBA-kode:

 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 

Oprettelse af makro til at udvikle og bruge en Ja Nej-meddelelsesboks i Excel

Vi har set en trinvis analyse af koden til udvikling og brug af en Ja-Nej-meddelelsesboks. Lad os nu se, hvordan vi kan opbygge en makro til at køre koden.

⧪ Trin 1: Åbning af VBA-vinduet

Tryk på ALT + F11 på dit tastatur for at åbne Visual Basic vindue.

⧪ Trin 2: Indsættelse af et nyt modul

Gå til Indsæt> Modul i værktøjslinjen. Klik på Modul Et nyt modul kaldet Modul1 (eller noget andet afhængigt af din tidligere historik) åbnes.

⧪ Trin 3: Indsætning af VBA-koden

Dette er det vigtigste trin. Indsæt den angivne VBA kode i modulet.

⧪ Trin 4: Kørsel af koden

Klik på den Kør Sub / UserForm værktøjet fra værktøjslinjen ovenfor.

Koden vil blive kørt. A beskedboks vil spørge dig, om du kan lide ExcelWIKI eller ej, med en Ja og en Nej mulighed.

Hvis du vælger Ja , tallet i celle C3 vil stige med én. Og hvis du vælger Nej , tallet i celle C4 vil stige med én.

Her har jeg valgt ja , så antallet af personer, der kan lide ExcelWIKI er steget med én.

Ting at huske

• A beskedboks på VBA indeholder i alt 4 parametre kaldet Opfordring, knap, titel , og Hjælpedokument . Her har jeg kun vist 2 parametre, Prompt og Knap . Men hvis du ønsker at opdage den VBA-meddelelsesboks mere detaljeret, kan du se på dette link.