sábado, 20 de setembro de 2014

"função or" comparar faixa de valor




Sub exemplo()
'"função or" comparar faixa de valor
    Dim x As Integer
    x = Val(InputBox("Entre com Valor de 1 até 30"))
        If (x < 1) Or (x > 30) Then
            MsgBox "Valor Invalido"
        End If
End Sub

Nenhum comentário:

Postar um comentário