Jump to content
  • Revista PROGRAMAR: Já está disponível a edição #60 da revista programar. Faz já o download aqui!

Sign in to follow this  
DEMOz

Validação de Dados & On Error GoTo

Recommended Posts

DEMOz

Boas,

Antes de mais peço desculpa mas a minha programação é muito má...

Então cá estou eu para aprender, afinal não é só na escola que se aprende.  :D

Seguindo...

Tenho que fazer um programa que peça ao utilizador, através de uma InputBox, um número entre 1 e 20 por exemplo, se o valor inserido for menor que 1 e maior que 20, volta a pedir, ou seja, validação de dados... Mas não estou a conseguir fazer isto.  :D

Penso que seja com o Ciclo, Do Loop... Until.

Dava para me ajudarem ? Nem que fosse um pouco de código, depois a partir daí é na boa...

E também precisaca de fazer If's para se o valor for entre 1 e 7 por exemplo, dê uma MsgBox a dizer que é um valor baixo... Isso eu sei.

Mas depois ainda vou ter que usar o "On Error GoTo" e sinceramente desta parte não percebo mesmo nada de nada...  :P

Desde já obrigado pela ajuda.

Cumps  :D

Share this post


Link to post
Share on other sites
asimov

Dim aux As Integer

aux = InputBox("Insira um nº entre 1 e 20")

Do Until aux < 1 or aux > 20

    aux = InputBox("Nº incorrecto, Insira um nº entre 1 e 20")

Loop

if aux <= 7 or aux >=1 Then

    MsgBox("Número muito baixo")

End if

Quanto ao "On Error GoTo"

  On Error GoTo ErrorHandler

  ' Coloca aqui o codigo que pode provocar o erro

  Exit Sub

ErrorHandler:

  ' Coloca aqui o codigo a ser executado em caso de erro

  Resume Next

Share this post


Link to post
Share on other sites
DEMOz

Dim aux As Integer

aux = InputBox("Insira um nº entre 1 e 20")

Do Until aux < 1 or aux > 20

    aux = InputBox("Nº incorrecto, Insira um nº entre 1 e 20")

Loop

if aux <= 7 or aux >=1 Then

    MsgBox("Número muito baixo")

End if

Quanto ao "On Error GoTo"

  On Error GoTo ErrorHandler

' Coloca aqui o codigo que pode provocar o erro

Exit Sub

ErrorHandler:

' Coloca aqui o codigo a ser executado em caso de erro

Resume Next

Excelente! Obrigadão!

Isto ajuda e em muito! =)

Cumps,

"Problema resolvido."

Share this post


Link to post
Share on other sites

Create an account or sign in to comment

You need to be a member in order to leave a comment

Create an account

Sign up for a new account in our community. It's easy!

Register a new account

Sign in

Already have an account? Sign in here.

Sign In Now
Sign in to follow this  

×

Important Information

By using this site you accept our Terms of Use and Privacy Policy. We have placed cookies on your device to help make this website better. You can adjust your cookie settings, otherwise we'll assume you're okay to continue.