Se você ainda não está familiarizado com o Tratamento de erros, recomendamos que leia este exemplo primeiro. Quando um erro em Excel VBA ocorre, as propriedades do Err objeto estão cheios de informações.
Situação:
O programa abaixo calcula a raiz quadrada dos números.
1. Coloque um botão de comando em sua planilha e adicione as seguintes linhas de código:
Dim rng como intervalo, célula como intervalo
Definir rng = Seleção
Para cada célula em rng
Em erro GoTo InvalidValue:
cell.Value = Sqr (cell.Value)
Próxima célula
Sair do Sub
Valor inválido:
MsgBox Err.Number & "" & Err.Description & "at cell" & cell.Address
Retomar a seguir
Resultado quando você seleciona Intervalo ("B2: B6") e clica no botão de comando na planilha:
Explicação: quando ocorre um erro, a propriedade number do objeto Err é preenchida com um número de erro exclusivo do erro atual e a propriedade Description é preenchida com a descrição do erro atual.
2. Essas descrições podem não ser muito úteis para os usuários de seu programa. Você pode tornar as mensagens de erro mais amigáveis ao usuário, modificando a última parte da macro da seguinte maneira:
Valor inválido:
Selecione Case Err.Number
Case Is = 5
MsgBox "Não é possível calcular a raiz quadrada do número negativo na célula" & célula.Endereço
Case Is = 13
MsgBox "Não é possível calcular a raiz quadrada do texto na célula" & célula.Endereço
End Select
Retomar a seguir
Dica: vá até nosso programa Select Case para aprender mais sobre a estrutura do Select Case.
Resultado:
