Viser det rette budskapet boksen til brukerne er avgjørende når du trenger å kjøre kode basert på deres svar. VBA har et utvalg av melding bokser med knapper valg for å møte behovene til søknaden din. Hvis du trenger å vise en melding til brukeren og ikke trenger å iverksette tiltak basert på svar , bruk en meldingsboks med en "OK "-knappen . Bruk melding bokser med knapper alternativer som "Ja" eller "Nei" når du trenger å utføre en annen del av koden for hver knapp. Instruksjoner
en

Klikk på " Developer " og klikk " Visual Basic " for å starte VB Editor vinduet. Klikk på " Insert"-menyen og " Module" for å sette inn en ny kode modul
2

Opprett en ny sub prosedyre og en heltallsvariabel ved å legge følgende kode: .

Private Sub meldingsbokser ()

Dim returnVal As Integer
3

Vis en meldingsboks med en "OK "-knappen : en

MsgBox "Melding med OK -knappen " , vbOKOnly , "OK"
4

Legg til følgende kode for å vise en meldingsboks med en " OK" og "Avbryt "-knappen : en

returnVal = MsgBox ( "Melding med OK og Avbryt " , vbOKCancel ," OK & Avbryt " )
5

Skriv inn følgende kode for å avgjøre hvilken knapp ble klikket, og vise resultatet gjennom Immediate-vinduet : en p Hvis ( returnVal = 1 ) Da

Debug.Print " OK knappen ble klikket "

Else

Debug.Print "Avbryt -knappen ble klikket "

End Hvis
6

Legg til kode for å vise en meldingsboks med knappene "Abort ", " Prøv på nytt " og " Ignorer : "

returnVal = MsgBox ( "Melding med Abort , prøv på nytt og Ignorer knapper " , vbAbortRetryIgnore , " AbortRetryIgnore ")
7

Bestem hvilken knapp ble trykket og vise resultater gjennom Immediate-vinduet ved å legge følgende kode:
p Hvis ( returnVal = 3 ) Deretter

Debug.Print "Abort -knappen ble klikket "

ElseIf ( returnVal = 4 ) Deretter

Debug.Print " Igjen-knappen ble klikket "

Else

Debug.Print " Ignorer -knappen ble klikket "

End If
8

Legg til en " Ja" og "Nei "-knappen meldingsboksen :

returnVal = MsgBox ( "Melding med Ja-og Nei -knappene " , vbYesNo , " Yes & No" )
9

Bestem knappen klikkes av brukeren ved å legge følgende kode :
p Hvis ( returnVal = 6 ) Deretter

Debug.Print " Ja-knappen ble klikket "

Else

Debug.Print " Nei-knappen ble klikket "

End If
10

End prosedyren ved å legge til "End Sub " som siste linje med kode. Trykk "Ctrl " og " G " for å vise Immediate -vinduet og trykk "F5 " for å kjøre prosedyren.