Visar rätt meddelanderutan för att användarna är avgörande när du behöver köra kod baserad på deras svar . VBA har ett urval av meddelande boxar med knapp val att möta behoven i din ansökan . Om du behöver visa ett meddelande för användaren och inte behöver vidta åtgärder baserat på svaret , använd en meddelanderuta med en " OK " -knappen . Använd meddelanderutor med knapp alternativ såsom " Ja " eller " Nej " när du behöver köra en annan del av koden för varje knapp . Instruktioner
1
Klicka på " Utvecklare " fliken och klicka på " Visual Basic " för att starta VB Editor fönstret . Klicka på " Infoga " -menyn och " modul " för att infoga en ny kodmodul
2
Skapa en ny sub förfarande och en Integer variabel genom att lägga till följande kod : .
Private Sub meddelanderutor ( ) katalog
Dim returnVal As Integer
3
visa en meddelanderuta med en " OK " -knappen :
MsgBox " meddelande med OK-knappen " , vbOKOnly , " OK "
4
Lägg till följande kod för att visa en meddelanderuta med ett " OK " och " Avbryt"-knappen :
returnVal = MsgBox ( " Message med OK och Avbryt " , vbOKCancel , " OK & Cancel " )
5
Skriv in följande kod för att avgöra vilken du klickade på knappen och visa resultatet genom direktfönstret :
p Om ( returnVal = 1 ) Då
Debug.Print " OK klickades "
Else
Debug.Print " Cancel klickade på knappen "
End Om
6
Lägg koden för att visa en meddelanderuta med knapparna " Avbryt ", " Försök igen " och " Ignorera : "
returnVal = MsgBox ( " Message med Abort , Retry , och Ignorera knappar " , vbAbortRetryIgnore , " AbortRetryIgnore " )
7
Bestäm vilken trycktes och visa resultaten genom omedelbart fönstret genom att lägga till följande kod :
p Om ( returnVal = 3 ) Sedan
Debug.Print "Abort klickade på knappen "
ElseIf ( returnVal = 4 ) Sedan
Debug.Print " var Retry knappen klickade "
Else
Debug.Print " Ignorera klickade på knappen "
End If
8
Lägg ett " Ja" och " Nej " -knappen meddelanderutan :
returnVal = MsgBox ( " Message med knapparna Ja och Nej " , vbYesNo , " Ja & Nej " )
9
Bestäm knappen klickas av användaren genom att lägga till följande kod :
Om ( returnVal = 6 ) Sedan
Debug.Print " Ja du klickade på knappen "
Else
Debug.Print "Ingen knapp klickas "
End If
10
Avsluta proceduren genom att lägga till " End Sub " som den sista raden i koden . Tryck på " Ctrl " och " G " för att visa direktfönstret och tryck " F5 " för att köra proceduren .
