Επιστρέφει μια Μεταβλητή σφάλματος δευτερεύοντος τύπου που περιέχει μια αριθμός σφάλματος που καθορίζεται από το χρήστη.
Σύνταξη
CVErr ( αριθμός σφάλματος )
Ο απαιτούμενος αριθμός σφάλματοςόρισμα είναι οποιοσδήποτε έγκυρος αριθμός σφάλματος.
Παρατηρήσεις
Χρησιμοποιήστε τη συνάρτηση CVErr για να δημιουργήσετε σφάλματα που ορίζονται από τον χρήστη σε διαδικασίες που δημιουργούνται από το χρήστη. Για παράδειγμα, εάν δημιουργήσετε μια συνάρτηση που δέχεται πολλά ορίσματα και συνήθως επιστρέφει μια συμβολοσειρά, μπορείτε να ζητήσετε από τη συνάρτηση σας να αξιολογήσει τα ορίσματα εισόδου για να βεβαιωθείτε ότι βρίσκονται εντός μιας αποδεκτής περιοχής. Εάν δεν είναι, είναι πιθανό η λειτουργία σας να μην επιστρέψει αυτό που περιμένατε. Σε αυτό το συμβάν, το CVErr σάς επιτρέπει να επιστρέψετε έναν αριθμό σφάλματος που σας ενημερώνει σχετικά με τις ενέργειες που πρέπει να κάνετε.
Σημειώστε ότι δεν επιτρέπεται η έμμεση μετατροπή ενός σφάλματος . Για παράδειγμα, δεν μπορείτε να αντιστοιχίσετε απευθείας την επιστρεφόμενη τιμή του CVErr σε μια μεταβλητή που δεν είναι Μεταβλητή. Ωστόσο, μπορείτε να πραγματοποιήσετε ρητή μετατροπή (χρησιμοποιώντας CInt, CDbl και ούτω καθεξής) της τιμής που επιστρέφεται από το CVErr και να την αντιστοιχίσετε σε μια μεταβλητή των κατάλληλων τύπος δεδομένων.
Παράδειγμα
Σημείωση: Παραδείγματα που ακολουθούν δείχνουν τη χρήση αυτής της συνάρτησης σε μια λειτουργική μονάδα Visual Basic for Applications (VBA). Για περισσότερες πληροφορίες σχετικά με την εργασία με τη VBA, επιλέξτε Αναφορά προγραμματιστών στην αναπτυσσόμενη λίστα δίπλα στην Αναζήτηση και πληκτρολογήστε έναν ή περισσότερους όρους στο πλαίσιο αναζήτησης.
Αυτό το παράδειγμα χρησιμοποιεί τη συνάρτηση CVErr για να επιστρέψει μια Μεταβλητή της οποίας η VarType είναι vbError (10). Η συνάρτηση που ορίζεται από τον χρήστη CalculateDouble επιστρέφει σφάλμα εάν το όρισμα που μεταβιβάζεται σε αυτό δεν είναι αριθμός. Μπορείτε να χρησιμοποιήσετε το CVErr για να επιστρέψετε σφάλματα που ορίζονται από τον χρήστη από διαδικασίες που ορίζονται από το χρήστη ή για να αναβάλετε το χειρισμό ενός σφάλματος χρόνου εκτέλεσης. Χρησιμοποιήστε τη συνάρτηση 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
