Επιστρέφει μια Μεταβλητή δευτερεύοντος τύπου Σφάλμα που περιέχει έναν αριθμό σφάλματος που καθορίζεται από το χρήστη.
Σύνταξη
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