Toon de juiste boodschap doos om gebruikers is kritisch wanneer je nodig hebt om code uit te voeren op basis van hun antwoorden . VBA heeft een selectie van de boodschap dozen met knop keuzes aan de behoeften van uw toepassing te voldoen . Als u nodig hebt om een bericht weer voor de gebruiker en hoeft geen actie te ondernemen op basis van de respons , gebruik dan een bericht doos met een knop "OK " . Gebruik boodschap dozen met knop opties zoals " Ja" of " Nee" als u naar een andere sectie van de code uit te voeren voor elke knop . Instructies
1 Klik op het tabblad " Developer " en klik op " Visual Basic " om het venster VB editor te starten . Klik op het menu "Invoegen " en " Module " om een nieuwe code -module plaatsen kopen van 2 Maak een nieuwe sub- procedure en een Integer variabele door toevoeging van de volgende code : . Private Sub
Berichtvensters ( ) Dim returnVal
als Geheel
3 Laat een bericht doos met een knop "OK " : MsgBox
" bericht met OK -knop " , vbOKOnly , " OK"
4 Voeg de volgende code om een bericht weer te geven met een "OK " en een knop "Annuleren " :
returnVal = MsgBox ( " Message met OK en Annuleren knoppen " , vbOKCancel , " OK & Cancel " ) op Twitter Type 5 de volgende code om te bepalen welke knop is geklikt en het resultaat door het venster Direct :
Als ( returnVal = 1 ) dan Debug.Print
" OK-knop is geklikt "
Else Debug.Print
"Cancel button is geklikt " End
Als
6 Voeg de code om een bericht weer met de knoppen ' Afbreken ', ' Retry " en " Ignore : "
returnVal = MsgBox ( " Message met Abort , Retry , en knoppen negeren " , vbAbortRetryIgnore , " AbortRetryIgnore " )
7 Bepaal welke toets werd ingedrukt en de resultaten weer door het venster Direct door toevoeging van de volgende code :
Als ( returnVal = 3 ) dan Debug.Print
" Afbreken knop is geklikt " ElseIf
( returnVal = 4 ) dan Debug.Print
" Retry knop is geklikt "
Debug.Print Else
" Ignore knop is geklikt " End
Als
8 Voeg een " Yes " en " No " knop message box :
returnVal = MsgBox ( " Message met knoppen Ja en Nee " , vbYesNo , "Ja & Nee " )
9 Bepaal de knop geklikt door de gebruiker door toevoeging van de volgende code :
Als ( returnVal = 6 ) Debug.Print dan
" Ja knop is geklikt "
Else Debug.Print
" Geen knop is geklikt " End
als
Eind 10 de procedure door toevoeging van " End Sub " als de laatste regel code . Druk op " Ctrl " en " G " om het venster Direct weer te geven en druk op " F5 " om de procedure uit te voeren.
|
