VBA opdrachten - msgbox/Inputbox -

VBA opdrachten – msgbox/Inputbox

Opdracht 1 – naam gebruiker ophalen

Vraag
Toon antwoord

Haal de de voornaam op van de gebruiker met behulp van een msgbox en sla deze op in een variabele genaamd ‘voornaam’.

Sub VoornaamOphalen()

    Dim voornaam As String
    
    voornaam = InputBox("Hoi! MacroExcel bezoeker! Wat is je voornaam?")

End Sub

Lorem ipsum dolor sit amet, consectetur adipiscing elit. Ut elit tellus, luctus nec ullamcorper mattis, pulvinar dapibus leo.

Opdracht 2 – ja/nee vraag stellen en antwoord verwerken

Vraag
Toon antwoord

Vraag de gebruiker of hij/zij de leeftijd van 18 al gepasseerd is. De gebruiker moet dan alleen ja of nee kunnen antwoorden. Is de gebruiker 18 of ouder dan bied je de gebruiker een biertje aan via een msgbox. Is dat niet het geval, dan een glas limonade.

Sub BiertjeOfLimonade()
    
    VolwassenJaNee = MsgBox("Hoi! MacroExcel bezoeker! Ben jij al 18 jaar of ouder?", vbYesNo)
    
    If VolwassenJaNee = vbYes Then
        MsgBox ("Hier heb je een biertje!")
    Else
        MsgBox ("Hier heb je een lekker glas limonade!")
    End If
    
End Sub

Lorem ipsum dolor sit amet, consectetur adipiscing elit. Ut elit tellus, luctus nec ullamcorper mattis, pulvinar dapibus leo.

Heeft dit artikel je geholpen?

Laat ons weten of dit artikel jou heeft geholpen. Op deze manier kunnen wij onze dienstverlening verbeteren.

VBA opdrachten – msgbox/Inputbox

Opdracht 1 – naam gebruiker ophalen

Opdracht 2 – ja/nee vraag stellen en antwoord verwerken

Heeft dit artikel je geholpen?

Geef een reactie Reactie annuleren