I denne artikel lærer vi MsgBox -funktionen i Excel VBA. Følgende er knappernes argumentindstillinger for msgbox vba:
| Konstant | Værdi | Beskrivelse |
| vbOKKun | 0 | Vis kun OK -knappen. |
| vbOKCancel | 1 | Vis knapperne OK og Annuller. |
| vbAbortRetryIgnore | 2 | Vis knapperne Abort, Retry og Ignore. |
| vbYesNoCancel | 3 | Vis knapperne Ja, Nej og Annuller. |
| vbJa Nej | 4 | Vis knapperne Ja og Nej. |
| vbRetryCancel | 5 | Vis knapperne Prøv igen og Annuller. |
| vbKritisk | 16 | Vis ikon for kritisk meddelelse. |
| vbSpørgsmål | 32 | Vis ikon for advarselsforespørgsel. |
| vbUdrop | 48 | Vis ikon for advarselsmeddelelse. |
| vbInformation | 64 | Vis informationsmeddelelsesikon. |
| vbDefaultButton1 | 0 | Den første knap er standard. |
| vbDefaultButton2 | 256 | Den anden knap er standard. |
| vbDefaultButton3 | 512 | Tredje knap er standard. |
| vbDefaultButton4 | 768 | Fjerde knap er standard. |
| vbApplicationModal | 0 | Ansøgning modal; brugeren skal svare på meddelelsesboksen, før han fortsætter arbejdet i den aktuelle applikation. |
| vbSystemModal | 4096 | System modal; alle applikationer suspenderes, indtil brugeren svarer på meddelelsesboksen. |
| vbMsgBoxHelpButton | 16384 | Føjer knappen Hjælp til meddelelsesboksen |
| VbMsgBoxSetForeground | 65536 | Angiver vinduet i meddelelsesboksen som forgrundsvinduet |
| vbMsgBoxRight | 524288 | Teksten er højrejusteret |
| vbMsgBoxRtlReading | 1048576 | Angiver tekst skal vises som højre-til-venstre læsning på hebraiske og arabiske systemer |
Lad os se, hvordan vba -meddelelsesboks kan hjælpe brugeren med at slette alt indhold i cellerne i det aktuelle regneark.
Følgende er snapshot af data:
Vi skal følge nedenstående trin:
- Klik på fanen Udvikler
- Vælg Visual Basic i kodegruppen
- Lad os indsætte en kommandoknap
- Indtast følgende kode i det aktuelle regnearksmodul:-
Mulighed eksplicit
Privat underkommandoButton1_Click ()
Dim svar som heltal
answer = MsgBox ("Vil du slette alle cellerne i det aktuelle ark?", vbYesNo + vbQuestion, "Slet alle celler")
Hvis svar = vbJa Så
Celler. Ryd Indhold
Andet
'gøre ingenting
Afslut Hvis
Afslut Sub
- Når vi klikker på kommandoknappen, vises følgende prompt
- Klik på knappen Ja for at slette alle cellerne.
- Resultatet bliver som følger
På denne måde kan vi slette alle cellerne ved hjælp af kommandoknappen i Excel VBA.
Download-meddelelsesboks i Excel VBA