The MsgBox funkcija u Excel VBA može vratiti rezultat dok jednostavan MsgBox ne može.
Situacija:
Postavite naredbeni gumb na radni list i dodajte sljedeće retke koda:
1. Prvo deklariramo varijablu koja se zove odgovor tipa Integer.
Zatamnjen odgovor Kao cijeli broj
2. Koristimo funkciju MsgBox za inicijalizaciju varijabilnog odgovora unosom od korisnika.
Funkcija MsgBox, kada koristi zagrade, ima tri argumenta. Prvi dio se koristi za poruku u okviru za poruku. U drugom dijelu odredite koje gumbe i ikone želite prikazati u okviru za poruku. Treći dio prikazan je u naslovnoj traci okvira s porukom.
answer = MsgBox ("Jeste li sigurni da želite isprazniti list?", vbDaNe + vbQuestion, "Prazan list")
Napomena: Postavite pokazivač na vbYesNo u uređivaču Visual Basic i kliknite F1 da vidite koje druge gumbe i ikone možete koristiti. Umjesto konstanti vbYesNo i vbQuestion, možete koristiti i odgovarajuće vrijednosti 4 i 32.
3. Ako korisnik klikne gumb Da, Excel VBA isprazni list. Ako korisnik klikne gumb Ne, ništa se neće dogoditi. Da biste to postigli, dodajte sljedeće retke koda.
Ako je odgovor = vbDa
Ćelije.Čisti sadržaj
Drugo
'ne radi ništa
Završi ako
4. Pritisnite gumb naredbe na listu.
5. Pritisnite Da.
Proizlaziti:
