Vba: een berichtenvenster maken met ja/nee-antwoorden

U kunt de volgende syntaxis in VBA gebruiken om een berichtvenster te maken waarin een gebruiker Ja of Nee kan selecteren:

 Sub MsgBoxYesNo()

    'ask user if they want to multiply two cells
    UserResponse = MsgBox(" Do you want to multiply cells A1 and B1? ", vbYesNo)

    'perform action based on user response
    If UserResponse = vbYes Then
      Range(" C1 ") = Range(" A1 ") * Range(" B1 ")
    Else
      MsgBox “ No Multiplication was Performed ”
   End If

End Sub

Deze specifieke macro creëert een berichtvenster waarin de gebruiker wordt gevraagd of hij de cellen A1 en B1 wil vermenigvuldigen.

Als de gebruiker op „Ja“ klikt, worden beide cellen vermenigvuldigd en wordt het resultaat weergegeven in cel C1.

Als de gebruiker op „Nee“ klikt, verschijnt er een nieuw berichtvenster waarin staat dat er geen vermenigvuldiging is uitgevoerd.

Merk op dat de vbYesNo- instructie de knoppen „Ja“ en „Nee“ invoegt waarop de gebruiker kan klikken.

De volgende voorbeelden laten zien hoe u deze syntaxis in de praktijk kunt gebruiken.

Voorbeeld: Maak een berichtenvenster met Ja/Nee-antwoorden

Stel dat we de volgende twee waarden hebben in de cellen A1 en B1 van ons Excel-blad:

Laten we zeggen dat we een macro willen maken die een berichtvenster aan de gebruiker weergeeft en vraagt of hij of zij de waarden in de cellen A1 en B1 wil vermenigvuldigen.

We kunnen hiervoor de volgende macro maken:

 Sub MsgBoxYesNo()

    'ask user if they want to multiply two cells
    UserResponse = MsgBox(" Do you want to multiply cells A1 and B1? ", vbYesNo)

    'perform action based on user response
    If UserResponse = vbYes Then
      Range(" C1 ") = Range(" A1 ") * Range(" B1 ")
    Else
      MsgBox “ No Multiplication was Performed ”
   End If

End Sub

Wanneer we deze macro uitvoeren, verschijnt het volgende berichtvenster:

Als we op Ja klikken, vermenigvuldigt de macro de waarden in de cellen A1 en B2 en geeft het resultaat weer in cel C1:

Als we echter op Nee klikken, verschijnt er een nieuw berichtvenster:

Het berichtvenster vertelt ons dat er geen vermenigvuldiging is uitgevoerd sinds we in het vorige berichtvenster op Nee hebben geklikt.

Aanvullende bronnen

In de volgende tutorials wordt uitgelegd hoe u andere veelvoorkomende taken in VBA kunt uitvoeren:

VBA: een nieuwe regel aan het berichtvenster toevoegen
VBA: nieuwe bladen toevoegen
VBA: deelvensters bevriezen