Devolve uma Variante do subtipo Erro que contém uma número do erro especificada pelo utilizador.
Sintaxe
CVErr ( errornumber )
O número de erro necessárioargumento é qualquer número de erro válido.
Observações
Utilize a função CVErr para criar erros definidos pelo utilizador nos procedimentos criados pelo utilizador. Por exemplo, se criar uma função que aceita vários argumentos e normalmente devolve uma cadeia, pode fazer com que a função avalie os argumentos de entrada para garantir que estão dentro de um intervalo aceitável. Se não estiverem, é provável que a sua função não devolva o que espera. Neste evento, o CVErr permite-lhe devolver um número de erro que indica que ação deve efetuar.
Tenha em atenção que a conversão implícita de um Erro não é permitida. Por exemplo, não pode atribuir diretamente o valor devolvido de CVErr a um variável que não seja uma Variante. No entanto, pode efetuar uma conversão explícita (com CInt, CDbl, etc.) do valor devolvido pelo CVErr e atribuí-lo a uma variável do tipo de dados adequado.
Exemplo
Nota: Os exemplos seguintes demonstram a utilização desta função no módulo VBA (Visual Basic for Applications). Para obter mais informações sobre como trabalhar com o VBA, selecione Referência para Programadores na lista pendente junto a Procurar e introduza um ou mais termos na caixa de pesquisa.
Este exemplo utiliza a função CVErr para devolver uma Variante cujo VarType é vbError (10). A função definida pelo utilizador CalculateDouble devolve um erro se o argumento transmitido não for um número. Pode utilizar o CVErr para devolver erros definidos pelo utilizador a partir de procedimentos definidos pelo utilizador ou para adiar o processamento de um erro de tempo de execução. Utilize a função IsError 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
