CVErr – Erro Específico

Descrição:

A função CVErr em VBA é utilizada para gerar um valor de erro específico que pode ser atribuído a uma variável ou utilizado para sinalizar uma condição de erro em um procedimento VBA. Ela é especialmente útil para manipular e tratar situações de erro de forma controlada, permitindo que o código execute ações específicas quando uma condição de erro é detectada.
Ao utilizar CVErr, é possível criar códigos mais robustos e resilientes, que podem lidar com diferentes cenários, como divisões por zero, valores inválidos, entre outros. Isso contribui para a eficiência e confiabilidade de scripts e macros escritos em VBA.
Exemplos:

Sub Exemplo1()
    Dim erro As Variant
    erro = CVErr(xlErrDiv0)
    MsgBox "Ocorreu um erro de divisão por zero."
End Sub
    

Este exemplo gera um erro de divisão por zero utilizando o código de erro xlErrDiv0.

Sub Exemplo2()
    On Error Resume Next
    Dim valor As Variant
    valor = 10 / 0
    If Err.Number <> 0 Then
        valor = CVErr(xlErrDiv0)
    End If
    MsgBox "O valor é: " & valor
End Sub
    

Este exemplo utiliza a função CVErr para tratar um erro de divisão por zero.

Sub Exemplo3()
    Dim erro As Variant
    erro = CVErr(xlErrValue)
    MsgBox "Ocorreu um erro de valor inválido."
End Sub
    

Este exemplo gera um erro de valor inválido utilizando o código de erro xlErrValue.

Sub Exemplo4()
    Dim erro As Variant
    erro = CVErr(xlErrNA)
    MsgBox "Ocorreu um erro de valor não disponível."
End Sub
    

Este exemplo gera um erro de valor não disponível utilizando o código de erro xlErrNA.

Sub Exemplo5()
    Dim erro As Variant
    erro = CVErr(xlErrNum)
    MsgBox "Ocorreu um erro numérico."
End Sub
    

Este exemplo gera um erro numérico utilizando o código de erro xlErrNum.