De MsgBox -funksjon i Excel VBA kan returnere et resultat mens en enkel MsgBox ikke kan.
Situasjon:
Plasser en kommandoknapp på regnearket og legg til følgende kodelinjer:
1. Først erklærer vi en variabel som kalles svar av typen Heltall.
Dim svar som heltall
2. Vi bruker MsgBox -funksjonen til å initialisere det variable svaret med input fra brukeren.
MsgBox -funksjonen, når du bruker parenteser, har tre argumenter. Den første delen brukes til meldingen i meldingsboksen. Bruk den andre delen til å angi hvilke knapper og ikoner du vil vise i meldingsboksen. Den tredje delen vises i tittellinjen i meldingsboksen.
answer = MsgBox ("Er du sikker på at du vil tømme arket?", vbYesNo + vbQuestion, "Tomt ark")
Merk: Plasser markøren på vbYesNo i Visual Basic Editor og klikk F1 for å se hvilke andre knapper og ikoner du kan bruke. I stedet for konstantene vbYesNo og vbQuestion kan du også bruke de tilsvarende verdiene 4 og 32.
3. Hvis brukeren klikker på Ja -knappen, tømmer Excel VBA arket. Hvis brukeren klikker på Nei -knappen, skjer ingenting. Legg til følgende kodelinjer for å oppnå dette.
Hvis svar = vbJa Da
Cells.ClearContents
Ellers
'gjør ingenting
Slutt om
4. Klikk på kommandoknappen på arket.
5. Klikk på Ja.
Resultat: