Funkcija CVErr

Vrne tip Variant podtipa Error, ki vsebuje številko napake, ki jo določi 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 funkcije Error ni dovoljena. Na primer, spremenljivki, ki ni tipa Variant ne morete neposredno dodeliti vrnjene vrednosti funkcije CVErr. Vendar pa lahko izvedete eksplicitno pretvorbo (s funkcijo CInt, CDbl in tako naprej) vrednosti, ki jo vrne funkcija CVErr, in jo dodelite spremenljivki ustreznega podatkovnega tipa.

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
Razširite svoja znanja
Oglejte si izobraževanje
Prvi dobite nove funkcije
Pridružite se programu Office Insider

Vam je bila informacija v pomoč?

Zahvaljujemo se vam za povratne informacije.

Zahvaljujemo se vam za povratne informacije. Videti je, da bi vam prišla prav pomoč enega od naših Officeovih agentov za podporo.

×