Funktsioon CVErr

NB! :  See artikkel on masintõlgitud, vaadake lahtiütlust. Selle artikli ingliskeelse versiooni leiate aadressilt (viiteks).

Tagastab alamtüübi Error Variandi, mis sisaldab kasutaja määratud tõrkenumbrit.

Süntaks

CVErr ( errornumber )

Nõutud argument errornumber on mis tahes sobiv tõrkenumber.

Kommentaarid

Funktsiooni CVErr abil saate luua kasutaja määratud tõrkeid kasutaja loodud toimingute korral. Näiteks kui koostate funktsiooni, mis aktsepteerib mitut argumenti ning tagastab üldjuhul stringi, saate lasta funktsioonil sisendargumendid arvutada tagamaks, et need on sobivas vahemikus. Kui sisendargumendid pole sobivas vahemikus, ei tagasta funktsioon tõenäoliselt eeldatud väärtust. Sellisel juhul võimaldab funktsioon CVErr tagastada tõrkenumbri, mille järgi saate teada, mida edasi teha.

Errori peitteisendamine pole lubatud. Näiteks ei saa funktsiooni CVErr tagastatud väärtust määrata otse muutujale, mis pole Variant. Funktsioonide Clnt, CDbl jne abil saate siiski funktsiooni CVErr tagastatud väärtuse otse teisendada ning määrata selle muutujale, millel on sobiv andmetüüp.

Näide

Märkus. : Järgmised näited kujutavad selle funktsiooni kasutamist rakenduse Visual Basic for Applications (VBA) moodulis. Lisateabe saamiseks VBA-ga töötamise kohta valige välja Otsing kõrval kuvatavast ripploendist väärtus Tootearendusmaterjal ja sisestage otsinguväljale üks või mitu sõna.

Selles näiteks kasutatakse funktsiooni CVErr, et tagastada Variant, mille VarType on vbError (10). Kui kasutaja määratletud funktsioonile CalculateDouble edastati argument, mis pole number, tagastab funktsioon tõrke. Funktsiooni CVErr saate kasutada selleks, et tagastada kasutaja määratletud toimingute korral kasutaja määratletud tõrkeid või viivitada käitusajatõrke töötlemisega. Selleks et kontrollida, kas väärtus on tõrge, saate kasutada funktsiooni 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

Märkus. : Masintõlke lahtiütlus. Selle artikli tõlkis arvutisüsteem ilma inimese sekkumiseta. Microsoft pakub selliseid masintõlkeid, et inglise keelt mittekõnelevad kasutajad saaksid vaadata sisu Microsofti toodete, teenuste ja tehnoloogiate kohta. Kuna artikkel on masintõlgitud, võib see sisaldada sõnavara-, süntaksi- või grammatikavigu.

Täiendage oma oskusi
Tutvuge koolitusmaterjalidega
Kasutage uusi funktsioone enne teisi
Liituge Office Insideri programmiga

Kas sellest teabest oli abi?

Täname tagasiside eest!

Täname tagasiside eest! Tundub, et võiksime teid kokku viia ühega meie Office'i tugiagentidest, kes aitab teil probleemi lahendada.

×