Funkcija CVErr

Napomena:  Željeli bismo vam pružiti najnoviji sadržaj pomoći što je brže moguće i to na vašem jeziku. Ova je stranica strojno prevedena te može sadržavati gramatičke pogreške ili netočnosti. Naša je namjera da vam ovaj sadržaj bude koristan. Možete li nam pri dnu ove stranice javiti jesu li vam ove informacije bile korisne? Kao referencu možete pogledati i članak na engleskom jeziku .

Vraća varijante podvrsta pogreške koja sadrži programa broj pogreške odredio korisnik.

Sintaksa

CVErr ( pogreške )

Potrebne pogreškeargument je bilo koji valjani broj pogreške.

Napomene

Funkcija CVErr koristite za stvaranje korisnički definiranih pogrešaka u postupaka korisnik stvorio. Ako, na primjer, ako stvorite funkciju koja prihvaća nekoliko argumenata i obično vraća niz, možete odrediti funkcija procijeniti ulazne argumente da biste bili sigurni da su prihvatljiva rasponu. Ako nisu, vjerojatno je funkcija će vratiti ono što ste očekivali. U tom slučaju, CVErr omogućuje vam da biste se vratili broja pogreške koji ukazuje na akciju da biste preuzeli.

Imajte na umu da nije dopušteno implicitno pretvaranje pogreške . Na primjer, ne možete izravno dodijeliti povratnu vrijednost CVErrvarijabla koja nije Variant. Međutim, izvesti izričito pretvaranje (pomoću CInt, CDbli tako dalje) vrijednosti vratio CVErr i dodijeliti varijabla odgovarajuće vrsta podatka.

Primjer

Napomena: Primjeri koji slijede prikazuju korištenje te funkcije u modulu jezika Visual Basic for Applications (VBA). Da biste pronašli dodatne informacije o radu s VBA-om, na padajućem popisu uz stavku Traži odaberite stavku Referenca za razvojne inženjere pa unesite jedan ili više izraza u okvir pretraživanja.

U ovom se primjeru koristi funkcija CVErr da biste se vratili varijante čije VarType je vbError (10). Korisnički definirana funkcija CalculateDouble vraća pogrešku ako proslijeđeni argument nije broj. CVErr možete koristiti za vraćanje korisnički definiranih pogrešaka iz korisnički definiranih procedura ili odgoditi rukovanje pogreška pri izvođenju. Da biste testirali predstavlja li vrijednost pogreške, koristite funkciju IsError .

' 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
Proširite svoje vještine korištenja sustava Office
Istražite osposobljavanje

Jesu li vam ove informacije bile korisne?

Hvala vam na povratnim informacijama!

Hvala vam na povratnim informacijama! Čini se da bi vam pomoglo kad bismo vas povezali s nekim od naših agenata podrške za Office.

×