Vrátí hodnotu Variant podtypu Error obsahující Číslo chyby určený uživatelem.
Syntaxe
CVErr ( číslo_chyby )
Požadované číslo chybyArgument je libovolné platné číslo chyby.
Poznámky
Pomocí funkce CVErr můžete vytvářet uživatelem definované chyby v procedurách vytvořených uživatelem. Pokud například vytvoříte funkci, která přijímá několik argumentů a obvykle vrací řetězec, může funkce vyhodnotit vstupní argumenty, aby se ujistila, že jsou v přijatelném rozsahu. Pokud tomu tak není, je pravděpodobné, že funkce nevrátí to, co očekáváte. V takovém případě vám CVErr umožní vrátit číslo chyby, které vám řekne, jakou akci máte provést.
Všimněte si, že implicitní převod chyby není povolen. Například návratovou hodnotu CVErr nemůžete přiřadit přímo k Proměnná, který není variantou. Můžete však provést explicitní převod (pomocí CInt, CDbl atd.) hodnoty vrácené nástrojem CVErr a přiřadit ji proměnné příslušné Datový typ.
Příklad
Poznámka: Následující příklady ukazují použití této funkce v modulu VBA (Visual Basic pro Applications). Pokud chcete další informace o práci s modulem VBA, vyberte Referenční informace pro vývojáře, které najdete v rozevíracím seznamu vedle položky Hledat a do vyhledávacího pole napište požadované pojmy.
Tento příklad používá funkci CVErr k vrácení varianty , jejíž VarType je vbError (10). Funkce definovaná uživatelem CalculateDouble vrátí chybu, pokud argument předaný není číslo. CvErr můžete použít k vrácení uživatelem definovaných chyb z uživatelsky definovaných procedur nebo k odložení zpracování chyby za běhu. Pomocí funkce IsError otestujte, jestli hodnota představuje chybu.
' 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
