I denne artikkelen lærer vi MsgBox -funksjonen i Excel VBA. Følgende er knappene argumentinnstillinger for msgbox vba:
| Konstant | Verdi | Beskrivelse |
| vbOKBare | 0 | Vis kun OK -knappen. |
| vbOKCancel | 1 | Vis OK og Avbryt -knappene. |
| vbAbortRetryIgnore | 2 | Vis knappene Avbryt, Prøv på nytt og Ignorer. |
| vbYesNoCancel | 3 | Vis knappene Ja, Nei og Avbryt. |
| vbJa Nei | 4 | Vis knappene Ja og Nei. |
| vbRetryCancel | 5 | Vis knappene Prøv igjen og Avbryt. |
| vbKritisk | 16 | Vis ikon for kritisk melding. |
| vbSpørsmål | 32 | Vis ikon for advarselsforespørsel. |
| vbUtrop | 48 | Vis ikon for advarselsmelding. |
| vbInformasjon | 64 | Vis informasjonsmeldingsikon. |
| vbDefaultButton1 | 0 | Den første knappen er standard. |
| vbDefaultButton2 | 256 | Den andre knappen er standard. |
| vbDefaultButton3 | 512 | Den tredje knappen er standard. |
| vbDefaultButton4 | 768 | Den fjerde knappen er standard. |
| vbApplicationModal | 0 | Søknadsmodell; brukeren må svare på meldingsboksen før du fortsetter arbeidet i den nåværende applikasjonen. |
| vbSystemModal | 4096 | Systemmodal; alle applikasjoner blir suspendert til brukeren svarer på meldingsboksen. |
| vbMsgBoxHelpButton | 16384 | Legger til Hjelp -knappen i meldingsboksen |
| VbMsgBoxSetForeground | 65536 | Spesifiserer meldingsboksvinduet som forgrunnsvinduet |
| vbMsgBoxRight | 524288 | Teksten er høyrejustert |
| vbMsgBoxRtlReading | 1048576 | Spesifiserer at teksten skal vises som høyre-til-venstre-lesing på hebraiske og arabiske systemer |
La oss se hvordan vba -meldingsboksen kan hjelpe brukeren med å slette alt innholdet i cellene i det gjeldende regnearket.
Følgende er øyeblikksbildet av data:
Vi må følge trinnene nedenfor:
- Klikk på kategorien Utvikler
- Velg Visual Basic fra kodegruppen
- La oss sette inn en kommandoknapp
- Skriv inn følgende kode i gjeldende regnearkmodul:-
Alternativ Eksplisitt
Private Sub CommandButton1_Click ()
Dim svar som heltall
answer = MsgBox ("Vil du slette alle cellene i det gjeldende arket?", vbYesNo + vbQuestion, "Slett alle celler")
Hvis svar = vbJa Da
Cells.ClearContents
Ellers
'gjør ingenting
Slutt om
Slutt Sub
- Når vi klikker på kommandoknappen, vises følgende melding
- Klikk på Ja -knappen for å slette alle cellene.
- Resultatet blir som følger
På denne måten kan vi slette alle cellene ved hjelp av kommando -knappen i Excel VBA.
Last ned-meldingsboks i Excel VBA