Das MsgBox-Funktion In Excel VBA kann ein Ergebnis zurückgeben, während eine einfache MsgBox dies nicht kann.
Lage:
Platzieren Sie eine Befehlsschaltfläche in Ihrem Arbeitsblatt und fügen Sie die folgenden Codezeilen hinzu:
1. Zuerst deklarieren wir eine Variable namens answer vom Typ Integer.
Dim answer As Integer
2. Wir verwenden die MsgBox-Funktion, um die Variable answer mit der Eingabe des Benutzers zu initialisieren.
Die MsgBox-Funktion hat bei Verwendung von Klammern drei Argumente. Der erste Teil wird für die Nachricht in der Nachrichtenbox verwendet. Verwenden Sie den zweiten Teil, um anzugeben, welche Schaltflächen und Symbole im Meldungsfeld angezeigt werden sollen. Der dritte Teil wird in der Titelleiste des Meldungsfelds angezeigt.
answer = MsgBox("Möchten Sie das Blatt wirklich leeren?", vbYesNo + vbQuestion, "Blatt leeren")
Hinweis: Platzieren Sie Ihren Cursor im Visual Basic-Editor auf vbYesNo und klicken Sie auf F1, um zu sehen, welche anderen Schaltflächen und Symbole Sie verwenden können. Anstelle der Konstanten vbYesNo und vbQuestion können Sie auch die entsprechenden Werte 4 und 32 verwenden.
3. Wenn der Benutzer auf die Schaltfläche Ja klickt, leert Excel VBA das Blatt. Wenn der Benutzer auf die Schaltfläche Nein klickt, passiert nichts. Fügen Sie dazu die folgenden Codezeilen hinzu.
Wenn Antwort = vbJa Dann
Cells.ClearContents
Anders
'nichts tun
Ende Wenn
4. Klicken Sie in dem Blatt auf die Befehlsschaltfläche.
5. Klicken Sie auf Ja.
Ergebnis:
