Vrátí hodnotu typu Variant of subtype Error obsahující Číslo chyby určený uživatelem.

Syntaxe

CVErr (číslo chyby)

Požadované číslo chyby,Argument je platné číslo chyby.

Poznámky

Pomocí funkce CVErr můžete vytvářet uživatelem definované chyby v uživatelem vytvořených postupech. Pokud například vytvoříte funkci, která akceptuje několik argumentů a obvykle vrátí řetězec, můžete funkci vyhodnocovat vstupní argumenty, aby bylo zajištěno, že budou v přijatelné oblasti. Pokud ne, vaše funkce pravděpodobně nevrátí to, co očekáváte. V takovém případě vám funkce CVErr umožní vrátit číslo chyby, které říká, jakou akci máte provést.

Všimněte si, že implicitní převod chyby není povolený. Nemůžete například přímo přiřadit vrácenou hodnotu CVErr žádnému typu Proměnná není varianta. Můžete však provést explicitní převod hodnoty vrácené funkcemi CVErr (pomocí funkce CInt,CDblatd.) a přiřadit ji proměnné odpovídajícího 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.

V tomto příkladu se funkce CVErr používá k vrácení varianty, která má argument VarType hodnotu vbError (10). Uživatelsky definovaná funkce CalculateDouble v případě, že argument předaný do něj není číslo, vrátí chybu. Pomocí nástroje CVErr můžete vrátit uživatelem definované chyby z uživatelem definovaných procedur nebo odložit zpracování chyby za běhu. Pomocí funkce IsError můžete testovat, 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

Potřebujete další pomoc?

Rozšiřte své znalosti a dovednosti
Projít školení
Získejte nové funkce jako první
Připojit se k programu Microsoft Insider

Byly tyto informace užitečné?

Jak jste spokojeni s kvalitou překladu?

Co ovlivnilo váš názor?

Máte další zpětnou vazbu? (Nepovinné)

Děkujeme za váš názor!

×