U ovom ćemo članku naučiti funkciju MsgBox u Excelu VBA. Slijede postavke argumenata gumba za msgbox vba:
| Konstantno | Vrijednost | Opis |
| vbOKSamo | 0 | Prikažite samo gumb OK. |
| vbOKOdustani | 1 | Prikažite gumbe OK i Cancel. |
| vbAbortRetryIgnore | 2 | Gumbi Prekini, Ponovi i Zanemari. |
| vbDaNeOdustani | 3 | Zaslon Tipke Da, Ne i Otkaži. |
| vbDaNe | 4 | Zaslon Tipke Da i Ne. |
| vbRetryCancel | 5 | Prikažite gumbe Ponovi i Otkaži. |
| vbCritical | 16 | Prikaz ikone kritične poruke. |
| vbQuestion | 32 | Prikaz ikone upita upozorenja. |
| vbUzvik | 48 | Prikaz ikone poruke upozorenja. |
| vbInformation | 64 | Prikaz ikone informacijske poruke. |
| vbDefaultButton1 | 0 | Prvi gumb je zadani. |
| vbDefaultButton2 | 256 | Drugi gumb je zadani. |
| vbDefaultButton3 | 512 | Treći gumb je zadani. |
| vbDefaultButton4 | 768 | Četvrti gumb je zadani. |
| vbApplicationModal | 0 | Način primjene; korisnik mora odgovoriti na okvir s porukom prije nastavka rada u trenutnoj aplikaciji. |
| vbSystemModal | 4096 | Modalni sustav; sve aplikacije su obustavljene sve dok korisnik ne odgovori na okvir s porukom. |
| vbMsgBoxHelpButton | 16384 | Dodaje gumb za pomoć u okvir s porukom |
| VbMsgBoxSetForeground | 65536 | Određuje prozor okvira s porukama kao prozor prednjeg plana |
| vbMsgBoxRight | 524288 | Tekst je poravnat udesno |
| vbMsgBoxRtlReading | 1048576 | Određeni tekst trebao bi se pojaviti kao čitanje zdesna nalijevo na hebrejskom i arapskom sustavu |
Pogledajmo kako okvir s porukom vba može pomoći korisniku u brisanju svih sadržaja ćelija na trenutnom radnom listu.
Slijedi snimak podataka:
Moramo slijediti korake u nastavku:
- Kliknite karticu Developer
- Iz grupe kodova odaberite Visual Basic
- Umetnimo naredbeni gumb
- Unesite sljedeći kôd u trenutni modul radnog lista:-
Opcija Eksplicitno
Privatna pomoćna naredbaButton1_Click ()
Zatamnjen odgovor Kao cijeli broj
answer = MsgBox ("Želite li izbrisati sve ćelije na trenutnom listu?", vbYesNo + vbQuestion, "Delete all cells")
Ako je odgovor = vbDa
Ćelije.Čisti sadržaj
Drugo
'ne radi ništa
Završi ako
Kraj podm
- Kad pritisnemo gumb Command, pojavit će se sljedeći upit
- Pritisnite Da da biste izbrisali sve ćelije.
- Rezultat će biti sljedeći
Na taj način možemo izbrisati sve ćelije pomoću naredbenog gumba u Excelu VBA.
Okvir za preuzimanje poruka u Excelu VBA