Observação: Desejamos fornecer o conteúdo da Ajuda mais recente no seu idioma da forma mais rápida possível. Esta página foi traduzida de forma automatizada e pode conter imprecisões ou erros gramaticais. Nosso objetivo é que este conteúdo seja útil para você. As informações foram úteis? Dê sua opinião no final desta página. Aqui está o artigo em inglês para facilitar a referência.
Retorna uma variante do subtipo de erro que contém um número do erro especificado pelo usuário.
Sintaxe
CVErr ( errornumber )
O necessário errornumberargumento for 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 aceite vários argumentos e normalmente retorna uma cadeia de caracteres, você pode ter sua função avaliar os argumentos de entrada para garantir que eles estejam no intervalo aceitável. Se não estiverem, é provável que sua função não retorne o que você espera. Nesse caso, CVErr permite retornar um número de erro que informa que ação executar.
Observe que não é permitida a conversão implícita de um erro . Por exemplo, você não pode atribuir diretamente o valor de retorno de CVErr para um variável que não seja um Variant. No entanto, você pode executar uma conversão explícita (usando CDbl, CInte assim por diante) do valor retornado por CVErr e atribuir isso a uma variável do apropriado tipo de dados.
Exemplo
Observação: Exemplos a seguir demonstram o uso dessa função em um Visual Basic para módulo Applications (VBA). Para obter mais informações sobre como trabalhar com o VBA, selecione a Referência do desenvolvedor na lista suspensa ao lado de pesquisa e insira um ou mais termos na caixa de pesquisa.
Este exemplo usa a função CVErr para retornar Variant cujo VarType é vbError (10). A função definida pelo usuário CalculateDouble retornará um erro se o argumento passado para ele não for um número. Você pode usar CVErr para retornar erros definidos pelo usuário de procedimentos definidas pelo usuário ou adiar tratamento de um erro de tempo de execução. Use 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
