Funkce CVErr

Důležité :  Tento článek je strojově přeložený – přečtěte si toto upozornění. Anglickou verzi tohoto článku pro referenci najdete tady.

Vrátí hodnotu Variant podtypu chyby obsahující Číslo chyby zadané uživatelem.

Syntaxe

Funkce CVErr ( argument číslo chyby )

Povinný argument číslo chybyArgument je libovolné platné číslo chyby.

Poznámky

Funkce CVErr k chybám uživatelem definovaných uživatelem vytvořené postupů. Například pokud vytvoříte funkci, která několika argumenty, obvykle vrátí hodnotu typu string, můžete mít funkce vyhodnocení vstupní argumentem jistotu, že jsou v přípustném rozsahu. Pokud nejsou, je pravděpodobné, že funkce nevrátí, co můžete očekávat. V tomto případě CVErr umožňuje vrátit číslo chyby, která sděluje, jaké akce.

Všimněte si, že není povolená implicitní převod chyby . Například nejde přiřadit přímo vrácenou hodnotu Funkce CVErrProměnná, která není Variant. Můžete však provést explicitní převody (pomocí Funkce CIntCDbla tak dál) hodnoty vrácené CVErr a přiřadit proměnné odpovídající 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 vrátíte varianty jehož VarType je vbError (10). Uživatelsky definovaná funkce CalculateDouble vrátí chybu, pokud předaný argument není číslo. Můžete CVErr vracet chyby definované uživatelem definovaných uživatelem postupy nebo pozdržet zpracování hodnot Chyba při spuštění. Funkce IsError otestovat, pokud 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

Poznámka : Upozornění ke strojovému překladu: Tento článek přeložil počítačový systém bez zásahu člověka. Společnost Microsoft nabízí tyto strojové překlady proto, aby umožnila uživatelům, kteří nemluví anglicky, získat informace o produktech, službách a technologiích této společnosti. Protože je tento článek strojově přeložený, může obsahovat slovní, syntaktické nebo gramatické chyby.

Rozšiřte své znalosti a dovednosti
Projít školení
Získejte nové funkce jako první
Připojte se k účastníkům programu Office Insiders

Byly tyto informace užitečné?

Děkujeme vám za zpětnou vazbu.

Děkujeme vám za váš názor. Vypadá to, že bude užitečné, když vás spojíme s některým z našich agentů z podpory Office.

×