Informatika és tudomány

megoldást keresek erre a problémára
  • Delila1
    #2321
    Inputboxban kérd be a választ Msgbox helyett. A végén a 2 a string típusú választ biztosítja.

    Sub YN()
    Dim valasz As String

    valasz = Application.InputBox("y vagy n", "Választás", , , , , , 2)
    If valasz = "y" Then MsgBox "Yes" Else MsgBox "No"
    End Sub

    Ügyelj a kisbetűre az If valasz = "y" -nál.
    Utoljára szerkesztette: Delila1, 2017.08.31. 06:52:25