Função CVErr

Retorna uma Variante do subtipo Erro contendo um número de erro especificado pelo usuário.

Sintaxe

CVErr(errornumber)

O argumentoerrornumber necessário é qualquer número de erro válido.

Comentários

Use a função CVErr para criar erros definidos pelo usuário em procedimentos criados pelo usuário. Por exemplo, se você criar uma função que aceita vários argumentos e normalmente retorna uma cadeia de caracteres, pode fazer com que sua função avalie os argumentos de entrada para garantir que eles estejam dentro do intervalo aceitável. Caso contrário, é provável que sua função não retorne o que você espera. Nesse caso, o CVErr permite que você retorne um número de erro que informa qual ação tomar.

Observe que a conversão implícita de um Error não é permitida. Por exemplo, você não pode atribuir diretamente o valor retornado de CVErr a uma variável que não seja uma Variant. No entanto, você pode realizar uma conversão explícita (usando CInt, CDbl e assim por diante) do valor retornado por CVErr e atribuí-lo a uma variável do tipo de dados apropriado.

Exemplo

Este exemplo usa a função CVErr para retornar uma Variant cujo VarType é vbError (10). A função CalculateDouble definida pelo usuário retornará um erro se o argumento passado para ela não for um número. Use o CVErr para retornar erros definidos pelo usuário de procedimentos definidos pelo usuário ou para adiar o tratamento de um erro em tempo de execução. Use a função ÉErro para testar se o valor representa um erro.

' Call CalculateDouble with an error-producing argument.
Sub Test()
    Debug.Print CalculateDouble("345.45robert")
End Sub
' Define CalculateDouble Function procedure.
Function CalculateDouble(Number)
    If IsNumeric(Number) Then
        CalculateDouble = Number * 2    ' Return result.
    Else
        CalculateDouble = CVErr(2001)    ' Return a user-defined error 
    End If    ' number.
End Function

Confira também

• Funções (Visual Basic for Applications)

Suporte e comentários

Tem dúvidas ou quer enviar comentários sobre o VBA para Office ou sobre esta documentação? Confira Suporte e comentários sobre o VBA para Office a fim de obter orientação sobre as maneiras pelas quais você pode receber suporte e fornecer comentários.