Conectați-vă cu Microsoft
Conectați-vă sau creați un cont.
Salut,
Selectați un alt cont.
Aveți mai multe conturi
Alegeți contul cu care doriți să vă conectați.

Returnează o valoare Variant de subtip care conține onumăr de eroare specificată de utilizator.

Sintaxă

Funcția ( errornumber )

argument errornumber necesare este orice număr de eroare valid.

Observații

Utilizați funcția funcția pentru a crea erori definite de utilizator în procedurile create de utilizator. De exemplu, dacă creați o funcție care acceptă mai multe argumente și returnează în mod normal un șir, puteți avea funcția să evalueze argumentele de intrare pentru a se asigura că acestea se află într-o zonă acceptabilă. Dacă nu sunt, probabil că funcția dumneavoastră nu va returna ceea ce așteptați. În acest eveniment, funcția vă permite să returnați un număr de eroare care vă spune ce acțiune să luați.

Rețineți că nu este permisă conversia implicită a unei erori . De exemplu, nu puteți atribui direct valoarea returnată a funcția într-un variabilă care nu este o variantă. Cu toate acestea, puteți efectua o conversie explicită (utilizând CInt, CDbletc.) din valoarea returnată de funcția și atribuiți-o unei variabile a tip de date corespunzătoare.

Exemplu

Notă: Exemplele care urmează demonstrează utilizarea acestei funcții într-un modul Visual Basic for Applications (VBA). Pentru mai multe informații despre lucrul cu VBA, selectați Referințe pentru dezvoltatori în lista verticală de lângă Căutare și introduceți unul sau mai mulți termeni în caseta de căutare.

Acest exemplu utilizează funcția funcția pentru a returna o valoare a cărei VarType este vbError (10). Funcția definit de utilizator CalculateDouble returnează o eroare dacă argumentul transmis nu este un număr. Puteți utiliza funcția pentru a returna erorile definite de utilizator din procedurile definite de utilizator sau pentru a amâna gestionarea unei erori de rulare. Utilizați funcția IsError pentru a testa dacă valoarea reprezintă o eroare.

' 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

Aveți nevoie de ajutor suplimentar?

Extindeți-vă competențele
Explorați instruirea
Fiți primul care obține noile caracteristici
Alăturați-vă utilizatorilor Insider Microsoft Office

Au fost utile aceste informații?

Cât de mulțumit sunteți de calitatea limbajului?
Ce v-a afectat experiența?

Vă mulțumim pentru feedback!

×