Funkcija CVErr

Piezīme.: Mēs vēlamies sniegt jums visjaunāko palīdzības saturu jūsu valodā, cik vien ātri to varam. Šī lapa ir tulkota automatizēti, un tajā var būt gramatiskas kļūdas un neprecizitātes. Mūsu nolūks ir šo saturu padarīt jums noderīgu. Vai lapas lejasdaļā varat mums pavēstīt, vai informācija jums noderēja? Ērtai atsaucei šeit ir šis raksts angļu valodā.

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
Paplašiniet savas Office 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.

×