ο σφάλμα αναντιστοιχίας τύπου σε Excel VBA συμβαίνει όταν προσπαθείτε να εκχωρήσετε μια τιμή σε μια μεταβλητή που δεν είναι του σωστού τύπου.
Τοποθετήστε ένα κουμπί εντολών στο φύλλο εργασίας σας και προσθέστε τις ακόλουθες γραμμές κώδικα:
Dim αριθμός ως ακέραιος
αριθμός = "ποδήλατο"
Αποτέλεσμα όταν κάνετε κλικ στο κουμπί εντολών στο φύλλο:
Επεξήγηση: δεν μπορείτε να αντιστοιχίσετε μια τιμή συμβολοσειράς (ποδήλατο) σε μια μεταβλητή τύπου Ακέραιος.
Το σφάλμα αναντιστοιχίας τύπου (σφάλμα χρόνου εκτέλεσης 13) εμφανίζεται συχνά όταν χρησιμοποιείτε τη συνάρτηση InputBox στο Excel VBA.
1. Τοποθετήστε ένα κουμπί εντολών στο φύλλο εργασίας σας και προσθέστε τις ακόλουθες γραμμές κώδικα:
Dim αριθμός ως ακέραιος
αριθμός = InputBox ("Εισαγάγετε έναν αριθμό", "Τετράγωνη ρίζα")
MsgBox "Η τετραγωνική ρίζα του" & number & "είναι" & Sqr (αριθμός)
2. Κάντε κλικ στο κουμπί εντολών στο φύλλο, εισαγάγετε την τιμή συμβολοσειράς εκατό και κάντε κλικ στο OK.
Αποτέλεσμα:
3. Κλικ Τέλος.
4. Για να εμφανίσετε ένα φιλικό μήνυμα αντί για το σφάλμα αναντιστοιχίας τύπου, ενημερώστε τον κωδικό ως εξής.
Dim number As Variant
αριθμός = InputBox ("Εισαγάγετε έναν αριθμό", "Τετράγωνη ρίζα")
Εάν IsNumeric (αριθμός) Τότε
MsgBox "Η τετραγωνική ρίζα του" & number & "είναι" & Sqr (αριθμός)
Αλλού
MsgBox "Παρακαλώ εισάγετε έναν αριθμό"
Τέλος εαν
Επεξήγηση: μια μεταβλητή τύπου Παραλλαγή μπορεί να κρατήσει οποιονδήποτε τύπο τιμής (βλ. Πρώτη γραμμή). Η συνάρτηση IsNumeric στο Excel VBA ελέγχει εάν μια τιμή είναι ένας αριθμός.
5. Επαναλάβετε το βήμα 2.
Αποτέλεσμα:
6. Τέλος, ελέγξτε αν λειτουργεί αυτός ο απλός υπολογιστής τετραγωνικής ρίζας.
Αποτέλεσμα:
Συμβουλή: κατεβάστε το αρχείο Excel (δεξιά πλευρά αυτής της σελίδας) και δοκιμάστε το.
