Função CVErr

Nota: Queremos fornecer-lhe os conteúdos de ajuda mais recentes o mais rapidamente possível e no seu idioma. Esta página foi traduzida automaticamente e pode conter erros gramaticais ou imprecisões. O nosso objetivo é que estes conteúdos lhe sejam úteis. Pode informar-nos se as informações foram úteis no final desta página? Eis o artigo em inglês para referência.

Devolve uma variante do subtipo erro que contém uma número do erro especificado pelo utilizador.

Sintaxe

CVErr ( númeroerro )

O necessários númeroerroargumento for qualquer número do erro válido.

Comentários

Utilize a função CVErr para criar os erros definidos pelo utilizador no procedimentos criados pelo utilizador. Por exemplo, se criar uma função que aceita vários argumentos e normalmente devolve uma cadeia, pode ter a função avalie os argumentos de entrada para garantir que se situem no intervalo aceitável. Se não estiverem, é provável que a função não irá devolver o que esperar. Neste caso, CVErr permite-lhe devolver um número de erro que o avisa que ação a tomar.

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 de retorno do CVErr para variável que não seja uma variante. No entanto, pode executar uma conversão explícita (utilizando CInt, CDble assim sucessivamente) do valor devolvido pela CVErr e atribuir que a uma variável o adequado tipo de dados.

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 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 passado para o mesmo não for um número. Pode utilizar CVErr para devolver os erros definidos pelo utilizador de procedimentos definidas pelo utilizador ou diferir processamento de um erro de tempo de execução. Utilize 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
Aumente os seus conhecimentos do Office
Explore as formações
Seja o primeiro a obter novas funcionalidades
Adira ao Office Insider

As informações foram úteis?

Obrigado pelos seus comentários!

Obrigado pelo seu feedback! Parece que poderá ser benéfico reencaminhá-lo para um dos nossos agentes de suporte do Office.

×