Kommentare die richtige Botschaft , um Benutzer ist kritisch, wenn Sie Code auf der Basis ihrer Antworten ausführen müssen . VBA hat eine Auswahl von Message-Boxen mit der Taste Auswahl , um die Anforderungen Ihrer Anwendung zu erfüllen. Wenn Sie eine Nachricht an den Benutzer anzuzeigen und brauchen nicht brauchen, um Maßnahmen auf der Grundlage der Antwort nehmen , verwenden Sie eine Message-Box mit einem " OK" -Taste. Verwenden Message-Boxen mit der Taste Optionen wie "Ja" oder "Nein" , wenn Sie einen anderen Abschnitt des Codes für jede Taste ausführen müssen . Anleitung
1
Klicken Sie auf die Registerkarte "Entwicklertools" und klicken Sie auf " Visual Basic ", um den VB -Editor-Fenster starten. Klicken Sie auf das Menü "Einfügen" und "Module" , um einen neuen Code-Modul einfügen
2
Erstellen Sie eine neue Sub-Prozedur und eine Integer-Variable , indem Sie den folgenden Code: .
Private Sub MessageBoxes () Dim
returnVal As Integer
3
Zeigt eine Meldung mit einem " OK" -Taste:
MsgBox " Nachricht mit OK-Taste" , vbOKOnly , "OK"
4
Fügen Sie den folgenden Code, um eine Message-Box mit " OK" und "Abbrechen" -Schaltfläche angezeigt :
returnVal = MsgBox ( "Message mit Schaltflächen OK und Abbrechen " , vbOKCancel " OK & Cancel " )
5
Geben Sie den folgenden Code, um festzustellen, welche Schaltfläche geklickt wurde und das Ergebnis durch die Direkt-Fenster :
( returnVal = 1) Dann
Debug.Print " OK geklickt wurde "
Else
Debug.Print " Abbrechen-Schaltfläche geklickt wurde "
End Wenn
6
Fügen Sie den Code , um ein Meldungsfeld mit den Schaltflächen anzuzeigen "Abort ", "Wiederholen " und " ignorieren: "
returnVal = MsgBox ( "Message mit abbrechen, Wiederholen und Ignorieren " , vbAbortRetryIgnore " AbortRetryIgnore " )
7
fest, welche Taste gedrückt wurde und die Ergebnisse durch das Direkt-Fenster , indem Sie den folgenden Code:
( returnVal = 3) Dann
Debug.Print
ElseIf ( returnVal = 4) "Abort Schaltfläche geklickt wurde " Dann
Debug.Print "Wiederholen Schaltfläche geklickt wurde "
Else
Debug.Print "Ignorieren Schaltfläche geklickt wurde "
End If
8
hinzufügen "Ja" und " Nein" Meldung :
returnVal = MsgBox ( "Message mit Schaltflächen Ja und Nein " , vbYesNo : "Ja und Nein")
9
Bestimmen Sie die Schaltfläche durch den Benutzer , indem sie den folgenden Code geklickt :
( returnVal = 6) Dann
Debug.Print " Ja Schaltfläche geklickt wurde "
Else
Debug.Print "No Schaltfläche geklickt wurde "
End If
10
Ende das Verfahren durch Zugabe von "End Sub " in der letzten Zeile des Codes. Drücken Sie "Strg" und "G" , um das Direkt -Fenster anzuzeigen , und drücken Sie "F5" um die Prozedur auszuführen .
