In diesem Artikel lernen wir die MsgBox-Funktion in Excel VBA kennen. Im Folgenden sind die Schaltflächenargumenteinstellungen von msgbox vba aufgeführt:
| Konstante | Wert | Beschreibung |
| vbOKOnly | 0 | Nur OK-Taste anzeigen. |
| vbOKAbbrechen | 1 | Zeigen Sie die Schaltflächen OK und Abbrechen an. |
| vbAbortRetryIgnorieren | 2 | Zeigen Sie die Schaltflächen Abbrechen, Wiederholen und Ignorieren an. |
| vbJaNeinAbbrechen | 3 | Zeigen Sie die Schaltflächen Ja, Nein und Abbrechen an. |
| vbJaNein | 4 | Zeigen Sie die Schaltflächen Ja und Nein an. |
| vbRetryCancel | 5 | Zeigen Sie die Schaltflächen Wiederholen und Abbrechen an. |
| vbCritical | 16 | Symbol für kritische Nachricht anzeigen. |
| vbFrage | 32 | Symbol für Warnabfrage anzeigen. |
| vbExclamation | 48 | Symbol für Warnmeldung anzeigen. |
| vbInformationen | 64 | Symbol für Informationsnachrichten anzeigen. |
| vbDefaultButton1 | 0 | Erste Schaltfläche ist Standard. |
| vbDefaultButton2 | 256 | Zweite Taste ist Standard. |
| vbDefaultButton3 | 512 | Dritte Schaltfläche ist Standard. |
| vbDefaultButton4 | 768 | Vierte Schaltfläche ist Standard. |
| vbApplicationModal | 0 | Anwendungsmodalität; der Benutzer muss auf das Meldungsfeld reagieren, bevor er mit der Arbeit in der aktuellen Anwendung fortfahren kann. |
| vbSystemModal | 4096 | Systemmodal; alle Anwendungen werden ausgesetzt, bis der Benutzer auf das Meldungsfeld antwortet. |
| vbMsgBoxHelpButton | 16384 | Fügt dem Meldungsfeld eine Hilfe-Schaltfläche hinzu |
| VbMsgBoxSetForeground | 65536 | Gibt das Meldungsfenster als Vordergrundfenster an |
| vbMsgBoxRight | 524288 | Text ist rechtsbündig |
| vbMsgBoxRtlReading | 1048576 | Gibt an, dass Text in hebräischen und arabischen Systemen von rechts nach links gelesen werden soll |
Lassen Sie uns sehen, wie das VBA-Meldungsfeld dem Benutzer beim Löschen des gesamten Inhalts der Zellen im aktuellen Arbeitsblatt helfen kann.
Es folgt die Momentaufnahme der Daten:
Wir müssen die folgenden Schritte ausführen:
- Klicken Sie auf die Registerkarte Entwickler
- Wählen Sie in der Gruppe Code die Option Visual Basic . aus
- Lassen Sie uns eine Befehlsschaltfläche einfügen
- Geben Sie den folgenden Code in das aktuelle Arbeitsblattmodul ein:-
Option explizit
Private Sub CommandButton1_Click()
Dim answer As Integer
answer = MsgBox("Möchten Sie alle Zellen im aktuellen Blatt löschen?", vbYesNo + vbQuestion, "Alle Zellen löschen")
Wenn Antwort = vbJa Dann
Cells.ClearContents
Anders
'nichts tun
Ende Wenn
End Sub
- Wenn wir auf die Befehlsschaltfläche klicken, wird die folgende Eingabeaufforderung angezeigt
- Klicken Sie auf die Schaltfläche Ja, um alle Zellen zu löschen.
- Ergebnis wird wie folgt sein
Auf diese Weise können wir alle Zellen mit der Befehlsschaltfläche in Excel VBA löschen.
Download-Nachrichtenbox in Excel VBA