De MsgBox-functie in Excel VBA kan een resultaat retourneren, terwijl een eenvoudige MsgBox dat niet kan.
Situatie:
Plaats een opdrachtknop op uw werkblad en voeg de volgende coderegels toe:
1. Eerst declareren we een variabele met de naam antwoord van het type Integer.
Dim antwoord als geheel getal
2. We gebruiken de MsgBox-functie om het variabele antwoord te initialiseren met de invoer van de gebruiker.
De functie MsgBox heeft bij het gebruik van haakjes drie argumenten. Het eerste deel wordt gebruikt voor het bericht in de berichtenbox. Gebruik het tweede deel om aan te geven welke knoppen en pictogrammen u in het berichtvenster wilt weergeven. Het derde deel wordt weergegeven in de titelbalk van het berichtvenster.
answer = MsgBox("Weet u zeker dat u het blad wilt legen?", vbYesNo + vbQuestion, "Leeg blad")
Opmerking: plaats uw cursor op vbYesNo in de Visual Basic Editor en klik op F1 om te zien welke andere knoppen en pictogrammen u kunt gebruiken. In plaats van de constanten vbYesNo en vbQuestion kun je ook de bijbehorende waarden 4 en 32 gebruiken.
3. Als de gebruiker op de knop Ja klikt, leegt Excel VBA het blad. Als de gebruiker op de knop Nee klikt, gebeurt er niets. Voeg de volgende coderegels toe om dit te bereiken.
Als antwoord = vbJa Dan
Cellen.ClearContents
Anders
'niets doen
Stop als
4. Klik op de opdrachtknop op het werkblad.
5. Klik op Ja.
Resultaat:
