Funkcija CVErr

Važno :  Ovaj je članak strojno preveden. Pogledajteizjavu o odricanju od odgovornosti. Verziju ovog članka na engleskom potražite ovdje.

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, možete izvesti izričito pretvaranje (pomoću CInt, CDbli tako dalje) vrijednosti vratio CVErr i dodijeliti varijabli 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

Napomena : Izjava o odricanju od odgovornosti za strojni prijevod: ovaj je članak preveo računalni sustav bez ljudske intervencije. Microsoft nudi strojne prijevode da bi korisnicima koji ne razumiju engleski omogućio čitanje sadržaja o Microsoftovim proizvodima, uslugama i tehnologijama. Budući da je preveden strojno, članak možda sadrži pogreške u vokabularu, sintaksi ili gramatici.

Proširite svoje vještine
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.

×