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

DEMOz

Validação de Dados & On Error GoTo

3 mensagens neste tópico

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

0

Partilhar esta mensagem


Link para a mensagem
Partilhar noutros sites

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

0

Partilhar esta mensagem


Link para a mensagem
Partilhar noutros sites

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."

0

Partilhar esta mensagem


Link para a mensagem
Partilhar noutros sites

Crie uma conta ou ligue-se para comentar

Só membros podem comentar

Criar nova conta

Registe para ter uma conta na nossa comunidade. É fácil!


Registar nova conta

Entra

Já tem conta? Inicie sessão aqui.


Entrar Agora