none
Botão cancelar da inputbox? RRS feed

  • Pergunta

  • 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

  • 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