Viser den rigtige besked boks til brugerne er kritisk, når du har brug for til at udføre kode baseret på deres svar. VBA har et udvalg af besked bokse med knap valg til at opfylde behovene i din ansøgning. Hvis du har brug for at vise en besked til brugeren, og ikke behøver at skride til handling på grundlag af svar , kan du bruge en besked boks med en " OK" knappen. Brug besked bokse med knap muligheder såsom "Ja" eller "Nej ", når du har brug for at udføre en anden sektion af kode for hver knap . Instruktioner
1
Klik på " Udvikler " fanen og klik på " Visual Basic " for at starte VB Editor vinduet. Klik på " Indsæt" menuen og " Module" for at indsætte en ny kode modul
2
Opret en ny sub procedure og én heltalsvariabel ved at tilføje følgende kode : .
Private Sub meddelelsesbokse ()
Dim returnVal As Integer
3
Vise en besked boks med et "OK" : Hej
MsgBox " Message med OK-knappen" , vbOKOnly , "OK"
4
Føj følgende kode til at vise en besked boks med et "OK" og en " Cancel " knappen : Hej
returnVal = MsgBox ( " Message med OK og Annuller knapper , " vbOKCancel " OK & Cancel " )
5
Indtast følgende kode til at bestemme , hvilken knap der blev klikket og vise resultatet gennem Immediate -vinduet : Hej p Hvis ( returnVal = 1) Så
Debug.Print " OK blev klikket "
Else
Debug.Print " knappen Annuller blev klikket "
End Hvis
6
Føj kode til at vise en besked boks med knapperne "Afbryd ", " Prøv igen" og "Ignorer : "
returnVal = MsgBox ( " Message med Afbryd, Forsøg igen og Ignorer knapperne " , vbAbortRetryIgnore " AbortRetryIgnore " )
7
Bestem hvilken blev trykket på knappen , og vise resultaterne gennem Immediate -vinduet ved at tilføje følgende kode : Hej p Hvis ( returnVal = 3) Så
Debug.Print "Abort -knap blev klikket "
ElseIf ( returnVal = 4) Så
Debug.Print " Prøv igen blev klikket "
Else
Debug.Print "Ignorer knap blev klikket "
End If
8
Tilføj et "Ja" og "Nej " knappen besked boks :
returnVal = MsgBox ( " Message med knapperne Ja og Nej " , vbYesNo "Ja & Nej" )
9
Bestem knappen klikkes af brugeren ved at tilføje følgende kode :
Hvis ( returnVal = 6) Så
Debug.Print " knappen Ja blev klikket "
Else
Debug.Print "Ingen knap blev klikket "
End If
10
afslutte proceduren ved at tilføje " End Sub " som den sidste linje kode . Tryk på " Ctrl" og "G " for at vise Immediate -vinduet og tryk på " F5 " for at køre proceduren.