none
Botão cancelar da inputbox? RRS feed

 > 

  • Pergunta

  • Question
    Entrar para Votar
    0
    Entrar para Votar

    No código a seguir, gostaria que o programa encerrasse sem dar erro, quando o usuário clicasse no botão cancelar de alguma inputbox.

    Sub CalcMedia()

        Dim num1 As Integer
        Dim num2 As Integer
        Dim num3 As Integer
        Dim media As Single


        num1 = InputBox("Digite o primeiro número")
        num2 = InputBox("Digite o segundo número")
        num3 = InputBox("Digite o terceiro número")


        media = (num1 + num2 + num3) / 3


        MsgBox "Média: " & media

    End Sub

               
    terça-feira, 25 de dezembro de 2012 01:41
    |

Respostas

  • Question
    Entrar para Votar
    1
    Entrar para Votar 
    Sub CalcMedia()

    Dim num1 As Integer
    Dim num2 As Integer
    Dim num3 As Integer
    Dim media As Single

    On Error Resume Next
    num1 = InputBox("Digite o primeiro número")
    If Err.Number > 0 Then Exit Sub
    num2 = InputBox("Digite o segundo número")
    If Err.Number > 0 Then Exit Sub
    num3 = InputBox("Digite o terceiro número")
    If Err.Number > 0 Then Exit Sub

    media = (num1 + num2 + num3) / 3


    MsgBox "Média: " & media

End Sub

    Felipe Costa Gualberto - http://www.ambienteoffice.com.br

    • Marcado como Resposta diniabr2012 terça-feira, 25 de dezembro de 2012 17:32
    terça-feira, 25 de dezembro de 2012 09:49
    |
    Moderador