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