The Funkcia MsgBox v Excel VBA môže vrátiť výsledok, zatiaľ čo jednoduchý MsgBox nemôže.
Situácia:
Na pracovný hárok umiestnite príkazové tlačidlo a pridajte nasledujúce riadky kódu:
1. Najprv deklarujeme premennú s názvom odpoveď typu Integer.
Dim odpoveď ako celé číslo
2. Na inicializáciu premennej odpovede pomocou vstupu od používateľa používame funkciu MsgBox.
Funkcia MsgBox pri použití zátvoriek má tri argumenty. Prvá časť sa používa pre správu v okne správy. V druhej časti zadajte, ktoré tlačidlá a ikony sa majú zobrazovať v okne so správou. Tretia časť sa zobrazí v záhlaví okna so správou.
answer = MsgBox („Ste si istí, že chcete list vyprázdniť?“, vbYesNo + vbQuestion, „Prázdny list“)
Poznámka: Umiestnite kurzor na vbYesNo v editore jazyka Visual Basic a kliknutím na kláves F1 zobrazíte ďalšie tlačidlá a ikony, ktoré môžete použiť. Namiesto konštánt vbYesNo a vbQuestion môžete použiť aj zodpovedajúce hodnoty 4 a 32.
3. Ak používateľ klikne na tlačidlo Áno, Excel VBA list vyprázdni. Ak používateľ klikne na tlačidlo Nie, nič sa nestane. Aby ste to dosiahli, pridajte nasledujúce riadky kódu.
Ak odpoveď = vbÁno Potom
Bunky. Vymazať obsah
Inak
'nerob nič
Koniec Ak
4. Kliknite na príkazové tlačidlo na hárku.
5. Kliknite na tlačidlo Áno.
Výsledok:
