Vráti hodnotu typu Variant podtypu Chyba obsahujúcu chybové číslo zadané používateľom.
Syntax
CVErr ( chybové číslo )
Povinný argument argumentchybové číslo je ľubovoľné platné číslo chyby.
Poznámky
Použite funkciu CVErr na vytvorenie používateľom definovaných chýb v používateľom definovaných procedúrach. Ak napríklad vytvoríte funkciu, ktorá prijíma niekoľko argumentov a zvyčajne vráti reťazec, môžete funkciu donútiť vyhodnotiť vstupné argumenty a zabezpečiť tak, že sú v rámci prijateľného rozsahu. Ak nie sú, je pravdepodobné, že vaša funkcia nevráti to, čo očakávate. V tomto prípade funkcia CVErr umožňuje vrátiť chybové číslo s informáciou, aká akcia sa má vykonať.
Implicitná konverzia chyby nie je povolená. Nemôžete napríklad priamo priradiť vrátenú hodnotu CVErr k premenná, ktorý nie je variantom. Môžete však vykonať explicitnú konverziu (pomocou CInt, CDbl atď.) hodnoty vrátenej funkciou CVErr a priradiť ju k premennej príslušného typ údajov.
Príklad
Poznámka: Nasledujúce príklady ukazujú použitie tejto funkcie v module jazyka Visual Basic for Applications (VBA). Ak chcete získať ďalšie informácie o práci s jazykom VBA, vyberte z rozbaľovacieho zoznamu vedľa položky Hľadať možnosť Odkaz pre vývojára a do vyhľadávacieho poľa zadajte nejaké výrazy.
V tomto príklade je funkcia CVErr použitá na vrátenie hodnoty typu Variant, ktorej typ VarType je vbError (10). Používateľom definovaná funkcia CalculateDouble vráti chybu, ak do nej odovzdávaný argument nie je číslo. Funkciu CVErr môžete použiť na vrátenie používateľom definovaných chýb v používateľom definovaných procedúrach alebo na odloženie spracovania chyby počas spustenia. Použite funkciu IsError a otestujte, či táto hodnota predstavuje 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
