Obsah
V tomto článku sa naučíme funkciu MsgBox v programe Excel VBA, Nasledujú nastavenia argumentov tlačidiel programu msgbox vba:
| Konštantný | Hodnota | Popis |
| vbOKOnly | 0 | Zobraziť iba tlačidlo OK. |
| vbOKCancel | 1 | Zobrazte tlačidlá OK a Zrušiť. |
| vbAbortRetryIgnore | 2 | Zobrazte tlačidlá prerušenia, opakovania a ignorovania. |
| vbYesNoCancel | 3 | Zobrazte tlačidlá Áno, Nie a Zrušiť. |
| vbÁno Nie | 4 | Zobrazte tlačidlá Áno a Nie. |
| vbRetryCancel | 5 | Zobrazte tlačidlá Opakovať a Zrušiť. |
| vbKritické | 16 | Zobraziť ikonu kritickej správy. |
| vbQuestion | 32 | Zobraziť ikonu výstražného dopytu. |
| vbVyhlásenie | 48 | Zobrazte ikonu výstražnej správy. |
| vbInformácie | 64 | Zobraziť ikonu informačnej správy. |
| vbDefaultButton1 | 0 | Prvé tlačidlo je predvolené. |
| vbDefaultButton2 | 256 | Druhé tlačidlo je predvolené. |
| vbDefaultButton3 | 512 | Tretie tlačidlo je predvolené. |
| vbDefaultButton4 | 768 | Štvrté tlačidlo je predvolené. |
| vbApplicationModal | 0 | Modálna aplikácia; pred pokračovaním v práci v aktuálnej aplikácii musí používateľ odpovedať na pole so správou. |
| vbSystemModal | 4096 | Modálny systém; všetky aplikácie sú pozastavené, kým používateľ neodpovedá na okno so správou. |
| vbMsgBoxHelpButton | 16384 | Pridá tlačidlo Pomocník do poľa so správou |
| VbMsgBoxSetForeground | 65536 | Špecifikuje okno so správou ako okno v popredí |
| vbMsgBoxRight | 524288 | Text je zarovnaný doprava |
| vbMsgBoxRtlReading | 1048576 | Špecifický text by sa mal v hebrejských a arabských systémoch javiť ako čítanie sprava doľava |
Pozrime sa, ako môže pole so správou vba pomôcť používateľovi pri odstraňovaní celého obsahu buniek v aktuálnom pracovnom hárku.
Nasleduje prehľad údajov:
Musíme postupovať podľa nasledujúcich krokov:
- Kliknite na kartu Vývojár
- V skupine Kód vyberte položku Visual Basic
- Vložíme príkazové tlačidlo
- Do aktuálneho modulu pracovného hárka zadajte nasledujúci kód:-
Možnosť explicitná
Súkromné sub CommandButton1_Click ()
Dim odpoveď ako celé číslo
answer = MsgBox („Chcete odstrániť všetky bunky v aktuálnom hárku?“, vbYesNo + vbQuestion, „Odstrániť všetky bunky“)
Ak odpoveď = vbÁno Potom
Bunky. Vymazať obsah
Inak
'nerob nič
Koniec Ak
Koniec pod
- Keď klikneme na príkazové tlačidlo, zobrazí sa nasledujúca výzva
- Kliknutím na tlačidlo Áno vymažete všetky bunky.
- Výsledok bude nasledovný
Týmto spôsobom môžeme odstrániť všetky bunky pomocou príkazového tlačidla v programe Excel VBA.
Pole so správou na stiahnutie v programe Excel VBA
