Meddelanderuta i Excel VBA

I den här artikeln kommer vi att lära oss MsgBox -funktionen i Excel VBA. Följande är knapparna argumentinställningar för msgbox vba:

Konstant	Värde	Beskrivning
vbOKOnly	0	Visa bara OK -knappen.
vbOKCancel	1	Visa knapparna OK och Avbryt.
vbAbortRetryIgnore	2	Visa knapparna Avbryt, Försök igen och Ignorera.
vbYesNoCancel	3	Visa knapparna Ja, Nej och Avbryt.
vbJa Nej	4	Visa Ja och Nej knappar.
vbRetryCancel	5	Visa knapparna Försök igen och Avbryt.
vbKritisk	16	Visa ikonen för kritiskt meddelande.
vbFråga	32	Visa ikon för varningsfråga.
vbUtrop	48	Ikon för varningsmeddelande.
vbInformation	64	Visa informationsmeddelandeikon.
vbDefaultButton1	0	Första knappen är standard.
vbDefaultButton2	256	Den andra knappen är standard.
vbDefaultButton3	512	Tredje knappen är standard.
vbDefaultButton4	768	Fjärde knappen är standard.
vbApplicationModal	0	Applikationsmodal; användaren måste svara på meddelanderutan innan han fortsätter arbetet i den aktuella applikationen.
vbSystemModal	4096	Systemmodal; alla program stängs av tills användaren svarar på meddelanderutan.
vbMsgBoxHelpButton	16384	Lägger till knappen Hjälp i meddelanderutan
VbMsgBoxSetForeground	65536	Anger meddelandefönstret som fönstret i förgrunden
vbMsgBoxRight	524288	Texten är högerjusterad
vbMsgBoxRtlReading	1048576	Anger att text ska visas som höger-till-vänster-läsning på hebreiska och arabiska system

Låt oss se hur vba -meddelanderuta kan hjälpa användaren att radera allt innehåll i cellerna i det aktuella kalkylbladet.

Följande är ögonblicksbilden av data:

Vi måste följa stegen nedan:

• Klicka på fliken Utvecklare
• Välj Visual Basic i kodgruppen

• Låt oss infoga en kommandoknapp

• Ange följande kod i den aktuella kalkylbladsmodulen:-

Alternativ Explicit

Privat underkommandoButton1_Click ()

Dim svar Som heltal

answer = MsgBox ("Vill du ta bort alla celler i det aktuella bladet?", vbYesNo + vbQuestion, "Radera alla celler")

Om svar = vbJa Då

Celler. Rensa Innehåll

Annan

'göra ingenting

Avsluta om

Avsluta Sub

• När vi klickar på kommandoknappen visas följande prompt

• Klicka på Ja -knappen för att radera alla celler.
• Resultatet blir följande

På detta sätt kan vi ta bort alla celler med kommandoknappen i Excel VBA.

Nedladdningsmeddelandebox i Excel VBA