Vrátí hodnotu Variant podtypu Chyba obsahující číslo chyby zadané uživatelem.
Syntaxe
CVErr(číslo_chyby)
Požadovaný argument errornumberje 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 nemůžete přímo přiřadit návratovou hodnotu CVErr proměnné, která není Variant. Můžete však provést explicitní převod (pomocí CInt, CDbl atd.) hodnoty vrácené cvErr a přiřadit ji proměnné příslušného datového typu.
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). Uživatelem definovaná funkce CalculateDouble vrátí chybu, pokud argument, který jí byl předán, 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