Funkcija CVErr

Vrne različico podvrste napake , ki vsebuje številka napake, ki jo je določil 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. Ne morete na primer neposredno dodeliti vrnjene vrednosti CVErr na spremenljivka, ki ni varianta. Vendar pa lahko izvedete eksplicitno pretvorbo (z uporabo CInt, CDblin tako dalje) vrednosti, ki jo vrne CVErr , in dodelite to spremenljivki ustreznega 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

Ali potrebujete dodatno pomoč?

Razširite poznavanje Officea
Oglejte si izobraževanje
Prvi dobite nove funkcije
Pridružite se programu Office Insider

Vam je bila informacija v pomoč?

×