V tem članku se bomo naučili funkcije MsgBox v Excelu VBA. Sledijo nastavitve argumentov gumbov msgbox vba:
| Konstantno | Vrednost | Opis |
| vbOKSamo | 0 | Prikažite samo gumb OK. |
| vbOK Prekliči | 1 | Prikažite gumba V redu in Prekliči. |
| vbAbortRetryIgnore | 2 | Gumbi Prekini, Ponovi in Prezri. |
| vbDaNe Prekliči | 3 | Gumbi Da, Ne in Prekliči. |
| vbDaNe | 4 | Gumbi Da in Ne na zaslonu. |
| vbRetryCancel | 5 | Prikažite gumba za ponovni poskus in preklic. |
| vbCritical | 16 | Prikažite ikono kritičnega sporočila. |
| vbVprašanje | 32 | Prikažite ikono poizvedbe za opozorilo. |
| vbKlicaj | 48 | Prikažite ikono opozorilnega sporočila. |
| vbInformacije | 64 | Prikažite ikono sporočila z informacijami. |
| vbDefaultButton1 | 0 | Prvi gumb je privzeto nastavljen. |
| vbDefaultButton2 | 256 | Drugi gumb je privzeto. |
| vbDefaultButton3 | 512 | Tretji gumb je privzeto. |
| vbDefaultButton4 | 768 | Četrti gumb je privzeto. |
| vbApplicationModal | 0 | Način uporabe; uporabnik se mora pred nadaljevanjem dela v trenutni aplikaciji odzvati na polje s sporočilom. |
| vbSystemModal | 4096 | Modalni sistem; vse aplikacije so začasno ustavljene, dokler se uporabnik ne odzove na polje s sporočilom. |
| vbMsgBoxHelpButton | 16384 | V polje za sporočila doda gumb za pomoč |
| VbMsgBoxSetForeground | 65536 | Določa okno polja za sporočila kot okno v ospredju |
| vbMsgBoxRight | 524288 | Besedilo je poravnano desno |
| vbMsgBoxRtlReading | 1048576 | Določa, da mora biti besedilo prikazano kot branje od desne proti levi v hebrejskem in arabskem sistemu |
Poglejmo, kako lahko sporočilo vba pomaga uporabniku pri brisanju vse vsebine celic na trenutnem delovnem listu.
Sledi posnetek podatkov:
Slediti moramo naslednjim korakom:
- Kliknite zavihek Razvijalec
- V skupini Koda izberite Visual Basic
- Vstavimo ukazni gumb
- V trenutni modul delovnega lista vnesite naslednjo kodo:-
Možnost izrecno
Zasebni pod -ukaz Button1_Click ()
Zatemnjen odgovor kot celo število
answer = MsgBox ("Ali želite izbrisati vse celice na trenutnem listu?", vbYesNo + vbQuestion, "Delete all cells")
Če je odgovor = vbDa
Celice.ClearContents
Sicer pa
'delati nič
Konec Če
End Sub
- Ko kliknemo gumb Ukaz, se prikaže naslednji poziv
- Če želite izbrisati vse celice, kliknite gumb Da.
- Rezultat bo naslednji
Na ta način lahko z ukaznim gumbom v Excelu VBA izbrišemo vse celice.
Prenosno sporočilo v Excelu VBA