Entrar com a conta da Microsoft
Entre ou crie uma conta.
Olá,
Selecione uma conta diferente.
Você tem várias contas
Escolha a conta com a qual você deseja entrar.

Retorna uma Variant do subtipo Error que contém um número do erro especificado pelo usuário.

Sintaxe

CVErr (númerode erro)

O número de erro necessárioargumento é 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, poderá fazer com que sua função avalie os argumentos de entrada para garantir que eles estão dentro do intervalo aceitável. Caso não sejam, é provável que sua função não retorne o que você espera. Nesse evento, 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 Erro não é permitida. Por exemplo, você não pode atribuir diretamente o valor de retorno de CVErr a um variável que não seja um Variant. No entanto, você pode executar uma conversão explícita (usando CInt,CDble assim por diante) do valor retornado por CVErr e atribuí-lo a uma variável do tipo de dados.

Exemplo

Observação: Exemplos a seguir demonstram o uso dessa função em um módulo Visual Basic for Applications (VBA). Para obter mais informações sobre como trabalhar com o VBA, selecione Referência do Desenvolvedor na listada ao lado de Pesquisar e insira um ou mais termos na caixa de pesquisa.

Este exemplo usa a função CVErr para retornar um 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 definidos pelo usuário ou para adiar o tratamento de um erro em tempo de executar. 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

Precisa de mais ajuda?

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

Essas informações foram úteis?

Qual é o seu grau de satisfação com a qualidade do idioma?
O que afetou sua experiência?

Obrigado pelos seus comentários!

×