De MsgBox -funktion i Excel VBA kan returnera ett resultat medan en enkel MsgBox inte kan.
Situation:
Placera en kommandoknapp på ditt kalkylblad och lägg till följande kodrader:
1. Först deklarerar vi en variabel som kallas svar av typen heltal.
Dim svar Som heltal
2. Vi använder funktionen MsgBox för att initiera det variabla svaret med input från användaren.
MsgBox -funktionen, när du använder parenteser, har tre argument. Den första delen används för meddelandet i meddelanderutan. Använd den andra delen för att ange vilka knappar och ikoner du vill ska visas i meddelandefältet. Den tredje delen visas i rubrikfältet i meddelanderutan.
answer = MsgBox ("Är du säker på att du vill tömma arket?", vbYesNo + vbQuestion, "Tomt ark")
Obs! Placera markören på vbYesNo i Visual Basic Editor och klicka på F1 för att se vilka andra knappar och ikoner du kan använda. Istället för konstanterna vbYesNo och vbQuestion kan du också använda motsvarande värden 4 och 32.
3. Om användaren klickar på Ja -knappen tömmer Excel VBA arket. Om användaren klickar på Nej -knappen händer ingenting. Lägg till följande kodrader för att uppnå detta.
Om svar = vbJa Då
Celler. Rensa Innehåll
Annan
'göra ingenting
Avsluta om
4. Klicka på kommandoknappen på arket.
5. Klicka på Ja.
Resultat:
