Visualizzazione della finestra di messaggio giusto agli utenti è fondamentale quando si ha bisogno di eseguire codice in base alle loro risposte . VBA ha una selezione di finestre di messaggio con le scelte pulsante per soddisfare le esigenze della vostra applicazione . Se è necessario visualizzare un messaggio per l'utente e non c'è bisogno di agire in base alla risposta , utilizzare una casella di messaggio con un pulsante "OK" . Utilizzare le finestre di messaggio con opzioni del pulsante come "Sì" o "No" quando è necessario eseguire una diversa sezione di codice per ogni pulsante . Istruzioni
1

Fare clic sulla scheda "Sviluppatore " e cliccare su " Visual Basic " per avviare la finestra Editor VB . Fai clic sul menu "Inserisci" e "Modulo" per inserire un nuovo modulo di codice
2

Creare una nuova procedura di sub e una variabile Integer , aggiungendo il seguente codice : .

Private Sub MessageBox ()

Dim returnVal As Integer
3

visualizzare una finestra di messaggio con un pulsante "OK" :

MsgBox "Messaggio con il tasto OK " , vbOKOnly , "OK"
4

Aggiungere il seguente codice per visualizzare una finestra di messaggio con un pulsante "Annulla" " OK" e :

returnVal = MsgBox ( "Messaggio con pulsanti OK e Annulla " , vbOKCancel , " OK & Annulla " ) economici 5

Digitare il seguente codice per determinare quale pulsante è stato fatto clic e visualizzare il risultato attraverso la finestra immediata :

( returnVal = 1) Poi

Debug.Print " OK è stato cliccato "

Else

Debug.Print " pulsante Annulla è stato cliccato "

End Se
6

Aggiungere il codice per visualizzare una finestra di messaggio con i pulsanti "Annulla ", "Riprova" e "Ignora : "

returnVal = MsgBox ( "Messaggio con Interrompi, Riprova , e Ignora bottoni " , vbAbortRetryIgnore , " AbortRetryIgnore " ) economici 7

determinare quale pulsante è stato premuto e visualizzare i risultati attraverso la finestra immediata con l'aggiunta del seguente codice :

( returnVal = 3) Poi

Debug.Print " pulsante Abort è stato cliccato "

ElseIf ( returnVal = 4) Poi

Debug.Print " pulsante Riprova stato cliccato "

Else

Debug.Print " Ignorare il pulsante è stato cliccato "

End If
8

Aggiungi un "No " finestra di messaggio pulsante "Sì" e :

returnVal = MsgBox ( "Messaggio con pulsanti Sì e No " , vbYesNo , " Yes & No " ) economici 9

Determinare il pulsante cliccato dall'utente aggiungendo il seguente codice :

( returnVal = 6) Poi

Debug.Print " Sì pulsante è stato cliccato "

Else

Debug.Print "Nessun pulsante è stato cliccato "

End If
10

Fine della procedura con l'aggiunta di "End Sub ", come l' ultima riga di codice . Premere il tasto " Ctrl " e "G" per visualizzare la finestra immediata e premere " F5 " per eseguire la procedura .