Det MsgBox -funktion i Excel VBA kan returnere et resultat, mens en simpel MsgBox ikke kan.
Situation:
Placer en kommandoknap på dit regneark, og tilføj følgende kodelinjer:
1. For det første erklærer vi en variabel kaldet svar af typen Heltal.
Dim svar som heltal
2. Vi bruger funktionen MsgBox til at initialisere det variable svar med input fra brugeren.
MsgBox -funktionen, når du bruger parenteser, har tre argumenter. Den første del bruges til meddelelsen i meddelelsesboksen. Brug den anden del til at angive, hvilke knapper og ikoner du vil have vist i meddelelsesboksen. Den tredje del vises i titellinjen i meddelelsesboksen.
answer = MsgBox ("Er du sikker på, at du vil tømme arket?", vbYesNo + vbQuestion, "Tomt ark")
Bemærk: Placer markøren på vbYesNo i Visual Basic Editor, og klik på F1 for at se, hvilke andre knapper og ikoner du kan bruge. I stedet for konstanterne vbYesNo og vbQuestion kan du også bruge de tilsvarende værdier 4 og 32.
3. Hvis brugeren klikker på knappen Ja, tømmer Excel VBA arket. Hvis brugeren klikker på knappen Nej, sker der ikke noget. Tilføj følgende kodelinjer for at opnå dette.
Hvis svar = vbJa Så
Celler. Ryd Indhold
Andet
'gøre ingenting
Afslut Hvis
4. Klik på kommandoknappen på arket.
5. Klik på Ja.
Resultat:
