The Funkcija MsgBox v Excel VBA lahko vrne rezultat, medtem ko preprost MsgBox ne more.
Položaj:
Postavite a ukazni gumb na delovnem listu in dodajte naslednje kodne vrstice:
1. Najprej razglasimo spremenljivko, imenovano odgovor tipa Integer.
NobenaodgovorAs 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.
Čeodgovor = vbDaPotemCelice.ClearContents
Sicer pa
'delati nič
Konec Če
4. Kliknite ukazni gumb na listu.
kako uporabiti enotno računovodsko podčrtano obliko v
5. Kliknite Da.
Rezultat:
Pojdi na naslednje poglavje: Predmet delovnega zvezka in delovnega lista