Palauttaa alatyypin variantin virheen, joka sisältää käyttäjän määrittämän virhenumeroin.
Syntaksi
CVErr ( virhenumero )
Tarvittava virhenumeroargumentti on mikä tahansa kelvollinen virhenumero.
Huomautuksia
Voit CVErr-funktion avulla luoda käyttäjän määrittämiä virheitä käyttäjän luomissa toimenpiteissä. Jos luot esimerkiksi funktion, joka hyväksyy useita argumentteja ja palauttaa yleensä merkkijonon, voit antaa funktion arvioida syötteen argumentteja sen varmistamiseksi, että ne ovat hyväksytyllä alueella. Jos näin ei ole, funktio ei todennäköisesti palauta odottamaasi merkkijonoa. Tässä tapauksessa voit palauttaa CVErr-funktion avulla virhenumeron, joka kertoo, mitä on tehtävä.
Huomaa, että virheen implisiittistä muuntamista ei sallita. Et voi esimerkiksi määrittää CVErrin palautusarvoa suoraan muuttuja, joka ei ole variantti. Voit kuitenkin muuntaa CVErrin palauttaman arvon eksplisiittisesti (esimerkiksi CIntin, CDbl:n avulla) ja määrittää sen sopivan tietotyyppi muuttujalle.
Esimerkki
Huomautus: Seuraavissa esimerkeissä kerrotaan, kuinka tätä funktiota käytetään Visual Basic for Applications (VBA) -moduulissa. Jos haluat lisätietoja VBA:n käytöstä, valitse Sovelluskehittäjän opasHaku-kentän viereisestä luettelosta ja anna yksi tai useampi hakuehto hakukenttään.
Tässä esimerkissä käytetään CVErr-funktiota palauttamaan variantti, jonka VarType on vbError (10). Käyttäjän määrittämä funktio CalculateDouble palauttaa virheen, jos siihen määritetty argumentti ei ole luku. Voit palauttaa CVErr-funktion avulla käyttäjän määrittämät virheet käyttäjän määrittämistä toimenpiteistä tai lykätä käytönaikaisen virheen käsittelyä. Voit IsError-funktion avulla testata, edustaako arvo virhettä.
' 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
