Vrne napako Variant podvrste Error , ki vsebuje številka napake, ki ga je navedl uporabnik.
Sintaksa
CVErr ( številka napake )
Obvezni argument »številka napake« poljubna veljavna številka napake.
Opombe
Uporabite funkcijo CVErr, če želite ustvariti uporabniško določene napake v uporabniško ustvarjenih procedurah. Na primer, če ustvarite funkcijo, ki sprejme več argumentov in običajno vrne niz, lahko vaša funkcija ovrednoti vhodne argumente, da zagotovi, ali so v sprejemljivem obsegu. Če niso, rezultat funkcije najverjetneje ne bo takšen, kot pričakujete. V tem primeru funkcija CVErr vrne številko napake, ki pove, kako ukrepati.
Upoštevajte, da implicitna pretvorba napake ni dovoljena. Vrnjene vrednosti funkcije CVErr na primer ne morete dodeliti neposredno spremenljivka ki ni Različica. Lahko pa izvedete eksplicitno pretvorbo (z uporabo CInt, CDbl in tako naprej) vrednosti, ki jo vrne CVErr , in jo dodelite spremenljivki ustreznih podatkovni tip.
Primer
Opomba: V spodnjih primerih je prikazana uporaba te funkcije v modulu Visual Basic for Applications (VBA). Če želite več informacij o delu z modulom VBA, izberite Vsebina za razvijalce na spustnem seznamu ob možnosti Iskanje in v iskalno polje vnesite enega ali več izrazov.
V tem primeru je uporabljena funkcija CVErr za vrnitev vrednosti Variant, katerega VarType je vbError (10). Uporabniško določena funkcija CalculateDouble vrne napako, če podani argument ni število. Funkcijo CVerr lahko uporabite za vrnitev uporabniško določenih napak iz uporabniško ustvarjenih procedur ali za odložitev obravnave napake med izvajanjem. Uporabite funkcijo IsError, da preverite, ali vrednost predstavlja napako.
' 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