Função CVErr

Importante :  Este artigo foi traduzido por um sistema de tradução automática, leia o aviso de isenção de responsabilidade. Para sua referência, veja a versão em inglês deste artigo aqui.

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

Observação : Aviso de Isenção de Tradução Automática: Este artigo foi traduzido por computador, sem intervenção humana. A Microsoft oferece essas traduções automáticas para ajudar as pessoas que não falam inglês a aproveitar os textos escritos sobre produtos, serviços e tecnologias da Microsoft. Como este artigo foi traduzido automaticamente, é possível que contenha erros de vocabulário, sintaxe ou gramática.

Expanda suas habilidades
Explore o treinamento
Obtenha novos recursos primeiro
Ingressar no Office Insider

Essas informações foram úteis?

Obrigado por seus comentários!

Agradecemos pelos seus comentários! Parece que pode ser útil conectar você a um de nossos agentes de suporte do Office.

×