In dit artikel zullen we de MsgBox-functie in Excel VBA leren. Hieronder volgen de instellingen van de knoppenargumenten van msgbox vba:
| Constante | Waarde | Beschrijving |
| vbOKAlleen | 0 | Alleen OK-knop weergeven. |
| vbOKAnnuleren | 1 | Geef de knoppen OK en Annuleren weer. |
| vbAbortRetryNegeren | 2 | Geef de knoppen Afbreken, Opnieuw en Negeren weer. |
| vbJaNeeAnnuleren | 3 | Geef de knoppen Ja, Nee en Annuleren weer. |
| vbJaNee | 4 | Geef de Ja- en Nee-knoppen weer. |
| vbOpnieuw proberenAnnuleren | 5 | Geef de knoppen Opnieuw en Annuleren weer. |
| vbKritiek | 16 | Pictogram voor kritieke berichten weergeven. |
| vbVraag | 32 | Waarschuwingsquery-pictogram weergeven. |
| vbUitroepteken | 48 | Pictogram waarschuwingsbericht weergeven. |
| vbInformatie | 64 | Pictogram Informatiebericht weergeven. |
| vbStandaardKnop1 | 0 | De eerste knop is standaard. |
| vbStandaardKnop2 | 256 | De tweede knop is standaard. |
| vbStandaardKnop3 | 512 | De derde knop is standaard. |
| vbStandaardKnop4 | 768 | De vierde knop is standaard. |
| vbToepassingModaal | 0 | Aanvraag modaal; de gebruiker moet reageren op het berichtvenster voordat hij verder kan werken in de huidige toepassing. |
| vbSysteemModaal | 4096 | Systeem modaal; alle toepassingen worden opgeschort totdat de gebruiker op het berichtvenster reageert. |
| vbMsgBoxHelpKnop | 16384 | Voegt de Help-knop toe aan het berichtvenster |
| VbMsgBoxSetVoorgrond | 65536 | Specificeert het berichtvenster als het voorgrondvenster |
| vbMsgBoxRechts | 524288 | Tekst is rechts uitgelijnd |
| vbMsgBoxRtlReading | 1048576 | Specificeert dat tekst moet worden weergegeven als van rechts naar links gelezen op Hebreeuwse en Arabische systemen |
Laten we eens kijken hoe het vba-berichtvenster de gebruiker kan helpen bij het verwijderen van alle inhoud van de cellen in het huidige werkblad.
Hieronder volgt een momentopname van gegevens:
We moeten de onderstaande stappen volgen:
- Klik op het tabblad Ontwikkelaar
- Selecteer in de codegroep Visual Basic
- Laten we een opdrachtknop invoegen
- Voer de volgende code in de huidige werkbladmodule in: -
Optie expliciet
Privé Sub CommandButton1_Click()
Dim antwoord als geheel getal
answer = MsgBox("Wilt u alle cellen in het huidige blad verwijderen?", vbYesNo + vbQuestion, "Verwijder alle cellen")
Als antwoord = vbJa Dan
Cellen.ClearContents
Anders
'niets doen
Stop als
Einde sub
- Als we op de Command-knop klikken, verschijnt de volgende prompt:
- Klik op de knop Ja om alle cellen te verwijderen.
- Het resultaat is als volgt:
Op deze manier kunnen we alle cellen verwijderen met de opdrachtknop in Excel VBA.
Download-Message Box in Excel VBA