Atgriež Variant of subtype Error vērtību, kas kļūdas numurs lietotāja norādītu kļūdu.
Sintakse
CVErr ( kļūdas_numurs )
Nepieciešamais kļūdasarguments ir jebkurš derīgs kļūdas numurs.
Piezīmes
Izmantojiet funkciju CVErr , lai izveidotu lietotāja definētas kļūdas lietotāja izveidotās procedūrās. Piemēram, ja izveidojat funkciju, kas pieņem vairākus argumentus un parasti atgriež virkni, varat funkcijai novērtēt ievades argumentus, lai pārliecinātos, vai tie ietilpst pieņemamā diapazonā. Ja tā nav, funkcija, visticamāk, neatgriezīs to, kas paredzēts. Šajā gadījumā CVErr ļauj atgriezt kļūdas numuru, kas norāda, kāda darbība ir jāveic.
Ņemiet vērā, ka netieša kļūdas pārvēršana nav atļauta. Piemēram, cvErr atgriezto vērtību nevar tieši piešķirt cvErr atgrieztajām mainīgais kas nav Variant. Tomēr varat veikt tiešu CVErr atgrieztās vērtības konvertēšanu (izmantojot CInt, CDbl utt.) un to piešķirt atbilstošajam mainīgām datu tips.
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ā tiek izmantota funkcija CVErr , lai atgrieztu Variant , kura VarType ir vbError (10). Lietotāja definētā funkcija CalculateDouble atgriež kļūdu, ja tai nodotais arguments nav skaitlis. CvErr var izmantot, lai atgrieztu lietotāja definētas kļūdas no lietotāja definētām procedūrām vai atliktu izpildes laika kļūdas apstrādi. Izmantojiet funkciju IsError , lai pārbaudītu, vai vērtība attēlo kļūdu.
' 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
