Εάν δεν είστε ακόμα εξοικειωμένοι με τον χειρισμό σφαλμάτων, σας συνιστούμε να διαβάσετε πρώτα αυτό το παράδειγμα. Όταν ένα σφάλμα στο Excel VBA εμφανίζεται, οι ιδιότητες του Err object είναι γεμάτα με πληροφορίες.
Κατάσταση:
Το παρακάτω πρόγραμμα υπολογίζει την τετραγωνική ρίζα των αριθμών.
1. Τοποθετήστε ένα κουμπί εντολών στο φύλλο εργασίας σας και προσθέστε τις ακόλουθες γραμμές κώδικα:
Dim rng Ως εύρος, κελί ως εύρος
Ρύθμιση rng = Επιλογή
Για κάθε κελί σε rng
Σφάλμα GoTo InvalidValue:
cell.Value = Sqr (cell.Value)
Επόμενο κελί
Έξοδος Sub
InvalidValue:
MsgBox Err.Number & "" & Err.Description & "at cell" & cell.Address
Συνέχιση Επόμενο
Αποτέλεσμα όταν επιλέγετε Εύρος ("B2: B6") και κάνετε κλικ στο κουμπί εντολών στο φύλλο:
Επεξήγηση: όταν προκύπτει σφάλμα, η ιδιότητα αριθμού του αντικειμένου Err γεμίζει με έναν μοναδικό αριθμό σφάλματος του τρέχοντος σφάλματος και η ιδιότητα Περιγραφή συμπληρώνεται με την περιγραφή σφάλματος του τρέχοντος σφάλματος.
2. Αυτές οι περιγραφές ενδέχεται να μην είναι πολύ χρήσιμες για τους χρήστες του προγράμματος σας. Μπορείτε να κάνετε τα μηνύματα σφάλματος πιο φιλικά προς το χρήστη τροποποιώντας το τελευταίο μέρος της μακροεντολής ως εξής:
InvalidValue:
Επιλέξτε Case Err.Number
Περίπτωση Is = 5
MsgBox "Δεν μπορώ να υπολογίσω την τετραγωνική ρίζα του αρνητικού αριθμού στο κελί" & cell.Address
Υπόθεση Is = 13
MsgBox "Δεν μπορώ να υπολογίσω την τετραγωνική ρίζα του κειμένου στο κελί" & cell.Address
Τέλος Επιλογή
Συνέχιση Επόμενο
Συμβουλή: μεταβείτε στο πρόγραμμα Select Case για να μάθετε περισσότερα σχετικά με τη δομή Select Case.
Αποτέλεσμα: