Funkcija CVErr

Vraća varijantu podvrste Pogreška koja sadrži broj pogreške koji je naveo korisnik.

Sintaksa

CVErr(brojpogreške)

Obavezni argument errornumberbilo koji je valjani broj pogreške.

Napomene

Koristite funkciju CVErr za stvaranje korisnički definiranih pogrešaka u procedurama koje je stvorio korisnik. Ako, primjerice, stvorite funkciju koja prihvaća nekoliko argumenata i obično vraća niz, funkcija može procijeniti ulazne argumente kako biste bili sigurni da su unutar prihvatljivog raspona. Ako nisu, vjerojatno funkcija neće vratiti očekivani rezultat. U ovom događaju CVErr omogućuje vraćanje broja pogreške koji govori o tome koju akciju trebate poduzeti.

Imajte na umu da implicitna pretvorba pogreške nije dopuštena. Na primjer, ne možete izravno dodijeliti vraćenu vrijednost CVErr varijabli koja nije Variant. No možete izvesti eksplicitnu pretvorbu (pomoću funkciju CInt, CDbl itd.) vrijednosti koju vrati CVErr i dodijeliti je varijabli odgovarajuće vrste podataka.

Primjer

U primjeru se koristi funkcija CVErr da bi se vratila vrijednost Variant čija je vrsta VarTypevbError (10). Korisnički definirana funkcija CalculateDouble vraća pogrešku ako argument koji joj je proslijeđen nije broj. Tipku CVErr možete koristiti da biste vratili korisnički definirane pogreške iz korisnički definiranih procedura ili odgodili obradu pogreške pri izvođenju. Pomoću funkcije IsError provjerite predstavlja li vrijednost pogrešku.

' 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