The Funkcija MsgBox v Excel VBA lahko vrne rezultat, medtem ko preprost MsgBox ne more.
Situacija:
Na delovni list postavite ukazni gumb in dodajte naslednje kodne vrstice:
1. Najprej razglasimo spremenljivko, imenovano odgovor tipa Integer.
Zatemnjen odgovor kot celo število
2. Funkcijo MsgBox uporabljamo za inicializacijo spremenljivega odgovora z vnosom uporabnika.
Funkcija MsgBox ima pri uporabi oklepajev tri argumente. Prvi del se uporablja za sporočilo v polju za sporočila. Z drugim delom določite, katere gumbe in ikone želite prikazati v polju za sporočila. Tretji del je prikazan v naslovni vrstici sporočila.
answer = MsgBox ("Ali ste prepričani, da želite izprazniti list?", vbDaNe + vbQuestion, "Prazen list")
Opomba: Postavite kazalec na vbYesNo v urejevalniku Visual Basic in kliknite F1, da vidite, katere druge gumbe in ikone lahko uporabite. Namesto konstant vbYesNo in vbQuestion lahko uporabite tudi ustrezni vrednosti 4 in 32.
3. Če uporabnik klikne gumb Da, Excel VBA izprazni list. Če uporabnik klikne gumb Ne, se nič ne zgodi. Če želite to narediti, dodajte naslednje vrstice kode.
Če je odgovor = vbDa
Celice.ClearContents
Sicer pa
'delati nič
Konec Če
4. Kliknite ukazni gumb na listu.
5. Kliknite Da.
Rezultat: