Selles artiklis õpime funktsiooni Excelis VBA funktsiooni MsgBox. Järgnevalt on toodud msgbox vba nuppude argumentide sätted:
| Pidev | Väärtus | Kirjeldus |
| vbOKOnly | 0 | Kuva ainult OK nupp. |
| vbOKCancel | 1 | Kuva OK ja Tühista nupud. |
| vbAbortRetryIgnore | 2 | Kuva nupud Katkesta, Proovi uuesti ja Ignoreeri. |
| vbJahEiTühista | 3 | Kuvage Jah, Ei ja Tühista nupud. |
| vbJahEi | 4 | Kuvage nuppe Jah ja Ei. |
| vbRetryCancel | 5 | Kuvage uuesti proovimise ja tühistamise nupud. |
| vbKriitiline | 16 | Kuva kriitilise sõnumi ikoon. |
| vbKüsimus | 32 | Kuva hoiatuspäringu ikoon. |
| vbHüüde | 48 | Kuva hoiatusteate ikoon. |
| vbInformatsioon | 64 | Kuva teabe sõnumi ikoon. |
| vbDefaultButton1 | 0 | Esimene nupp on vaikimisi. |
| vbDefaultButton2 | 256 | Teine nupp on vaikimisi. |
| vbDefaultButton3 | 512 | Kolmas nupp on vaikimisi. |
| vbDefaultButton4 | 768 | Neljas nupp on vaikimisi. |
| vbApplicationModal | 0 | Rakenduse modaal; enne praeguses rakenduses töö jätkamist peab kasutaja vastama sõnumikastile. |
| vbSystemModal | 4096 | Süsteemi modaalne; kõik rakendused on peatatud, kuni kasutaja sõnumikastile vastab. |
| vbMsgBoxHelpButton | 16384 | Lisab sõnumikasti nupu Abi |
| VbMsgBoxSetForeground | 65536 | Määrab sõnumikasti akna esiplaani aknaks |
| vbMsgBoxRight | 524288 | Tekst on joondatud paremale |
| vbMsgBoxRtlReading | 1048576 | Määrab, et tekst peaks heebrea ja araabia süsteemides ilmuma paremalt vasakule |
Vaatame, kuidas vba sõnumikast aitab kasutajal praeguse töölehe lahtrite sisu kustutada.
Allpool on andmete ülevaade:
Peame järgima järgmisi samme:
- Klõpsake vahekaarti Arendaja
- Valige koodirühmas Visual Basic
- Sisestagem käsunupp
- Sisestage praegusesse töölehe moodulisse järgmine kood:-
Valik Selge
Privaatne alamkäsk Button1_Click ()
Hämar vastus täisarvuna
answer = MsgBox ("Kas soovite kustutada kõik praeguse lehe lahtrid?", vbYesNo + vbQuestion, "Kustuta kõik lahtrid")
Kui vastus = vbJah siis
Lahtrid. Selge sisu
Muidu
'ära tee midagi
Lõpp Kui
End Sub
- Kui klõpsame käsunuppu, ilmub järgmine viip
- Kõigi lahtrite kustutamiseks klõpsake nuppu Jah.
- Tulemus saab olema järgmine
Sel viisil saame Excel VBA käsunupu abil kustutada kõik lahtrid.
Allalaadimiskast Excel VBA-s