Programando o Excel ® Vba Para Leigos - 2ª Ed 2013 NoDRM (1)

Capítulo 12: Técnicas de Tratamento de Erros 187
Figura 12-3:
Rodar o
procedimento
quando
um gráfico
está selecionado
gera
este erro.
A listagem a seguir usa a função TypeName para garantir que a seleção
seja uma faixa. Se qualquer outra coisa que não uma faixa for selecionada,
este procedimento exibe uma mensagem e depois sai:
Sub EnterSquareRoot4()
Dim Num As Variant
‘ Make sure a worksheet is active
If TypeName(Selection) <> “Range” Then
MsgBox “Selecione uma célula para o resultado.”
Exit Sub
End If
‘ Tela para valor
Num = InputBox(“Insira um valor”)
‘ Certifique-se que Num seja uma número
If Not IsNumeric(Num) Then
MsgBox “Você deve inserir um número.”
Exit Sub
End If
‘ Certifique-se que o número não é negativo
If Num < 0 Then
MsgBox “Você deve inserir um número positivo.”
Exit Sub
End If
‘ Insira a raiz quadrada
ActiveVell.Value = Sqr(Num)
End Sub
Desistindo da perfeição
Por ora, este procedimento simplesmente deve estar perfeito. Pense de
novo, companheiro. Proteja a planilha (use o comando Revisão➪
Alterações➪Proteger Planilha) e, depois, rode o código. Sim, uma
planilha protegida gera ainda outro erro. E provavelmente, eu não
pensei em todos os outros erros que podem acontecer. Continue a ler
sobre outra maneira de lidar com erros — até mesmo aqueles que você
não pode prever.