Funkcija CVErr

Svarīgi!:  Šis raksts ir mašīntulkots, skatiet atrunu. Lūdzu, skatiet šī raksta versiju angļu valodā šeit jūsu informācijai.

Atgriež variantu apakštipa kļūdas , kas satur kļūdas numurs lietotāja noteiktās.

Sintakse

CVErr ( kļūdas _ numurs )

Nepieciešama kļūdas _ numursarguments ir kāds cits skaitlis, derīgu kļūdas.

Piezīmes

Izmantojiet funkciju CVErr izveidot lietotāja definētas kļūdas izveidotajām procedūrām. Piemēram, ja izveidojat funkciju, kas akceptē vairākus argumentus un parasti atgriež virkni, varat likt funkcijai novērtēt ievadītos argumentus, lai nodrošinātu, ka tie ir pieņemami diapazonā. Ja tie nav, visticamāk, jūsu funkcija neatgriezt, kas paredzēts. Šajā gadījumā CVErr ļauj atgriezt kļūdas numuru, kas sniedz informāciju par to, kā rīkoties.

Ņemiet vērā, ka netiešo konvertēšanas kļūdas nav atļauta. Piemēram, nevar tieši piešķirt CVErr atgriezto vērtību mainīgais , kas nav varianta. Tomēr, varat veikt precīzas konversiju (izmantojot CInt, CDblu.t.t) CVErr atgriezto vērtību un piešķirt, atbilstošo datu tipsmainīgais.

Piemērs.

Piezīme.: Turpmākajos piemēros redzama šīs funkcijas izmantošana Visual Basic for Applications (VBA) modulī. Lai iegūtu papildinformāciju par darbu ar VBA, nolaižamajā sarakstā atlasiet Uzziņas materiāli izstrādātājiem blakus meklēšanas lodziņam un ievadiet šajā lodziņā vienu vai vairākus vārdus.

Šajā piemērā funkcija CVErr , lai atgrieztu varianta kuru VarType ir vbError (10). Lietotāja definētu funkciju CalculateDouble atgriež kļūdu, ja nodot to argumentiem nav skaitlis. CVErr var izmantot, lai atgrieztu lietotāja definētas kļūdas no lietotāja definētas procedūras vai atlikt izpildlaika kļūdu apstrādes. Lai pārbaudītu, vai vērtība ir kļūda, izmantojiet 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

Piezīme.: Mašīntulkošanas atruna. Šo rakstu ir tulkojusi datorsistēma bez cilvēka iejaukšanās. Microsoft piedāvā šos mašīntulkojumus, lai palīdzētu angliski nerunājošajiem lietotājiem izmanot saturu par Microsoft produktiem, pakalpojumiem un tehnoloģijām. Tā kā šis raksts ir mašīntulkots, tajā var būt leksikas, sintakses un gramatikas kļūdas.

Paplašiniet savas prasmes
Iepazīties ar apmācību
Esiet pirmais, kas saņem jaunās iespējas
Pievienoties Office Insider programmai

Vai šī informācija bija noderīga?

Paldies par jūsu atsauksmēm!

Paldies par atsauksmēm! Šķiet, ka varētu būt noderīgi sazināties ar kādu no mūsu Office atbalsta aģentiem.

×