Funkciją

Svarbu :  Šis straipsnis išverstas naudojant mašininį vertimą, žr. atsakomybės atsisakymą. Su šio straipsnio versija anglų kalba galite susipažinti čia .

Grąžina variantą potipio klaidos su klaidos kodas , vartotojo nurodytus.

Sintaksė

CVErr ( klaidos numeris )

Būtinas klaidos numerisargumentas yra bet koks leistinas klaidos skaičius.

Pastabos

Naudokite funkciją Norėdami sukurti vartotojo nustatytas klaidas vartotojo sukurtas procedūras. Pvz., jei norite sukurti funkciją, kuri priima kelis argumentus ir normaliai grąžina eilutę, jūs turite savo funkcija įvertinti įvestus argumentus ir užtikrinti, kad jie yra priimtinas diapazone. Jei jų nėra, jis gali savo funkcija negrąžins, ko tikėtis. Tokiu atveju CVErr leidžia grąžinti klaidos numerį, kuriame nurodoma, kokių veiksmų imtis.

Atkreipkite dėmesį, kad neleidžiama numanomų konvertavimo klaidų . Pvz., galite tiesiogiai priskirti CVErr grąžinamą reikšmę į kintamasis , kuri nėra į Variant. Tačiau galite atlikti konvertavimą (naudodami CInt, CDblir taip toliau), reikšmė, grąžinta CVErr ir priskirti, atitinkamą duomenų tipaskintamasis.

Pavyzdys

Pastaba : Pateiktuose pavyzdžiuose parodyta, kaip naudoti šią funkciją „Visual Basic for Applications“ (VBA) modulyje. Daugiau informacijos apie darbą su VBA rasite išplečiamajame sąraše pasirinkę Kūrėjų nuoroda (šalia Ieškos) ir ieškos lauke įvedę vieną ar daugiau sąlygų.

Šiame pavyzdyje naudojama funkciją , kad grįžtumėte į Variant kurio VarType yra vbError (10). Vartotojo apibrėžta funkcija CalculateDouble grąžina klaidą, jei jai perduotas argumentas nėra skaičius. Galite naudoti CVErr Norėdami grąžinti vartotojo nustatytas klaidas iš vartotojo nustatytų procedūrų arba atidėti vykdymo klaida. Naudokite funkciją IsError Norėdami patikrinti, ar reikšmė yra klaida.

' 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

Pastaba : Mašininio vertimo atsakomybės atsisakymas: Šis straipsnis išverstas naudojant kompiuterinę sistemą be žmogaus įsikišimo. „Microsoft“ pateikia šiuos mašininius vertimus norėdama padėti anglų kalbos nesuprantantiems vartotojams perskaityti turinį apie „Microsoft“ produktus, paslaugas ir technologijas. Šis straipsnis išverstas mašininio vertimo būdu, todėl jame gali būti žodyno, sintaksės ar gramatikos klaidų.

Tobulinkite savo įgūdžius
Ieškoti mokymo
Pirmiausia gaukite naujų funkcijų
Prisijunkite prie „Office Insider“ dalyvių

Ar ši informacija buvo naudinga?

Dėkojame už jūsų atsiliepimus!

Dėkojame už jūsų atsiliepimą! Panašu, kad gali būti naudinga jus sujungti su vienu iš mūsų „Office“ palaikymo agentų.

×