Returnează o valoare Variant de subtip Eroare care conține o număr de eroare specificată de utilizator.
Sintaxă
CVErr ( număr eroare )
Numărul de eroare necesarargument este orice număr de eroare valid.
Observații
Utilizați funcția CVErr 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 solicita funcției să evalueze argumentele de intrare pentru a se asigura că se află în intervalul acceptabil. Dacă nu sunt, probabil că funcția dvs. nu va returna ceea ce vă așteptați. În acest caz, CVErr vă permite să returnați un număr de eroare care vă spune ce acțiune să efectuați.
Rețineți că nu este permisă conversia implicită a unei erori . De exemplu, nu puteți atribui direct valoarea returnată de CVErr unui variabilă care nu este o valoare variant. Cu toate acestea, puteți efectua o conversie explicită (utilizând CInt, CDbl și așa mai departe) a valorii returnate de CVErr și să o atribuiți 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 CVErr pentru a returna o valoare Variant al cărei Tip VarType este vbError (10). Funcția definită de utilizator CalculateDouble returnează o eroare dacă argumentul transmis către acesta nu este un număr. Puteți utiliza CVErr pentru a returna erori definite de utilizator din proceduri definite de utilizator sau pentru a amâna tratarea unei erori la momentul rulării. 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
