V tomto článku se naučíme funkci MsgBox v aplikaci Excel VBA, Následující jsou nastavení argumentů tlačítek v msgbox vba:
| Konstantní | Hodnota | Popis |
| vbOKOnly | 0 | Zobrazit pouze tlačítko OK. |
| vbOKCancel | 1 | Zobrazte tlačítka OK a Storno. |
| vbAbortRetryIgnore | 2 | Zobrazit tlačítka Přerušit, Opakovat a Ignorovat. |
| vbYesNoCancel | 3 | Zobrazte tlačítka Ano, Ne a Zrušit. |
| vbAnoNe | 4 | Zobrazte tlačítka Ano a Ne. |
| vbRetryCancel | 5 | Zobrazte tlačítka Opakovat a Zrušit. |
| vbKritické | 16 | Zobrazit ikonu kritické zprávy. |
| vbQuestion | 32 | Zobrazit ikonu výstražného dotazu. |
| vbVyhlášení | 48 | Zobrazit ikonu varovné zprávy. |
| vbInformace | 64 | Zobrazí ikonu informační zprávy. |
| vbDefaultButton1 | 0 | První tlačítko je výchozí. |
| vbDefaultButton2 | 256 | Druhé tlačítko je výchozí. |
| vbDefaultButton3 | 512 | Třetí tlačítko je výchozí. |
| vbDefaultButton4 | 768 | Čtvrté tlačítko je výchozí. |
| vbApplicationModal | 0 | Modální aplikace; uživatel musí reagovat na okno se zprávou, než bude pokračovat v práci v aktuální aplikaci. |
| vbSystemModal | 4096 | Systém modální; všechny aplikace jsou pozastaveny, dokud uživatel neodpoví na okno se zprávou. |
| vbMsgBoxHelpButton | 16384 | Přidá do pole se zprávou tlačítko Nápověda |
| VbMsgBoxSetForeground | 65536 | Určuje okno se zprávou jako okno v popředí |
| vbMsgBoxRight | 524288 | Text je zarovnán doprava |
| vbMsgBoxRtlReading | 1048576 | Určuje, že text by se měl v hebrejských a arabských systémech zobrazovat jako čtení zprava doleva |
Podívejme se, jak může pole zpráv vba uživateli pomoci při odstraňování veškerého obsahu buněk v aktuálním listu.
Následuje snímek dat:
Musíme postupovat podle následujících kroků:
- Klikněte na kartu Vývojář
- Ze skupiny kódů vyberte Visual Basic
- Vložíme příkazové tlačítko
- Do aktuálního modulu listu zadejte následující kód:-
Možnost Explicitní
Private Sub CommandButton1_Click ()
Dim odpověď jako celé číslo
answer = MsgBox („Chcete odstranit všechny buňky v aktuálním listu?“, vbYesNo + vbQuestion, „Odstranit všechny buňky“)
If answer = vbYes Then
Buňky. Vymazat obsah
Jiný
'nedělat nic
Konec If
End Sub
- Když klikneme na příkazové tlačítko, zobrazí se následující výzva
- Kliknutím na tlačítko Ano odstraníte všechny buňky.
- Výsledek bude následující
Tímto způsobem můžeme odstranit všechny buňky pomocí příkazového tlačítka v aplikaci Excel VBA.
Stažení schránky zpráv v aplikaci Excel VBA