Ένας ακέραιος είναι ένας τύπος δεδομένων στο VBA που δίνεται σε οποιαδήποτε μεταβλητή για να διατηρεί ακέραιες τιμές, οι περιορισμοί ή το βραχίονα για τον αριθμό μιας ακέραιας μεταβλητής μπορεί να κρατήσει είναι παρόμοιο στο VBA με εκείνο άλλων γλωσσών, οποιαδήποτε μεταβλητή ορίζεται ως ακέραιος μεταβλητή χρησιμοποιώντας τη δήλωση DIM ή τη λέξη-κλειδί στο VBA.
Excel VBA Integer
Οι τύποι δεδομένων είναι τόσο σημαντικοί σε οποιαδήποτε γλώσσα κωδικοποίησης επειδή όλες οι δηλώσεις μεταβλητών πρέπει να ακολουθούνται από τον τύπο δεδομένων που αντιστοιχεί σε αυτές τις μεταβλητές. Έχουμε πολλούς τύπους δεδομένων με τους οποίους δουλεύουμε και κάθε τύπος δεδομένων έχει τα δικά του πλεονεκτήματα και μειονεκτήματα που σχετίζονται με αυτόν. Όταν δηλώνουμε μεταβλητές είναι σημαντικό να γνωρίζουμε λεπτομέρειες σχετικά με τον συγκεκριμένο τύπο δεδομένων. Αυτό είναι το άρθρο που είναι αφιερωμένο στον τύπο δεδομένων "Integer" στο VBA. Θα σας δείξουμε την πλήρη εικόνα του τύπου δεδομένων "Integer".
Τι είναι ο ακέραιος τύπος δεδομένων;
Οι ακέραιοι είναι ακέραιοι αριθμοί, οι οποίοι θα μπορούσαν να είναι θετικοί, αρνητικοί και μηδενικοί αλλά όχι κλασματικοί αριθμοί. Στο πλαίσιο VBA, το "Integer" είναι ένας τύπος δεδομένων που εκχωρούμε στις μεταβλητές. Είναι ένας αριθμητικός τύπος δεδομένων που μπορεί να χωρέσει ακέραιους αριθμούς χωρίς δεκαδικές θέσεις. Ακέραιος τύπος δεδομένων 2 byte αποθήκευσης, που είναι το ήμισυ του τύπου δεδομένων VBA LONG, δηλαδή 4 byte.
Παραδείγματα τύπου δεδομένων Integer Excel VBA
Ακολουθούν τα παραδείγματα του τύπου δεδομένων VBA Integer.
Παράδειγμα # 1
Όταν δηλώνουμε μια μεταβλητή, είναι απαραίτητο να αντιστοιχίσουμε έναν τύπο δεδομένων σε αυτήν και να είναι ακέραιος ένας από αυτούς, ο οποίος χρησιμοποιείται συνήθως από όλους τους χρήστες βάσει των απαιτήσεων.
Όπως είπα, ένας ακέραιος αριθμός μπορεί να περιέχει μόνο ακέραιους αριθμούς και όχι κλασματικούς αριθμούς. Ακολουθήστε τα παρακάτω βήματα για να δείτε το παράδειγμα ενός ακέραιου τύπου δεδομένων VBA.
Βήμα 1: Δηλώστε τη μεταβλητή ως ακέραιο.
Κώδικας:
Sub Integer_Example () Dim k As Integer End Sub
Βήμα 2: Αντιστοιχίστε την τιμή 500 στη μεταβλητή "k".
Κώδικας:
Sub Integer_Example1 () Dim k As Integer k = 500 End Sub
Βήμα 3: Εμφάνιση της τιμής στο πλαίσιο μηνύματος VBA.
Κώδικας:
Sub Integer_Example1 () Dim k As Integer k = 500 MsgBox k End Sub
Όταν εκτελούμε τον κώδικα χρησιμοποιώντας το πλήκτρο F5 ή χειροκίνητα τότε, μπορούμε να δούμε 500 στο πλαίσιο μηνύματος.
Παράδειγμα # 2
Τώρα θα εκχωρήσω την τιμή ως -500 στη μεταβλητή "k".
Κώδικας:
Sub Integer_Example2 () Dim k As Integer k = -500 MsgBox k End Sub
Εκτελέστε αυτόν τον κωδικό χειροκίνητα ή πατήστε F5. Στη συνέχεια, θα εμφανίσει επίσης την τιμή -500 στο πλαίσιο μηνύματος.
Παράδειγμα # 3
Όπως είπα στο VBA, ο τύπος δεδομένων Integer μπορεί να περιέχει μόνο ακέραιους αριθμούς και όχι κλάσματα όπως 25.655 ή 47.145
Ωστόσο, θα προσπαθήσω να αντιστοιχίσω τον αριθμό κλάσματος σε έναν τύπο δεδομένων VBA Integer. Για παράδειγμα, δείτε τον παρακάτω κώδικα.
Κώδικας:
Sub Integer_Example3 () Dim k As Integer k = 85.456 MsgBox k End Sub
Έχω εκχωρήσει 85.456 στη μεταβλητή «k». Θα τρέξω αυτόν τον κώδικα VBA για να δω ποιο είναι το αποτέλεσμα.
- Έχει επιστρέψει το αποτέλεσμα ως 85, παρόλο που έχω εκχωρήσει την τιμή του αριθμού κλάσματος. Αυτό οφείλεται στο VBA που στρογγυλοποιεί τους αριθμούς κλασμάτων στον πλησιέστερο ακέραιο.
- Όλοι οι αριθμοί κλάσματος, που είναι μικρότεροι από 0,5, θα στρογγυλοποιηθούν προς τα κάτω στον πλησιέστερο ακέραιο. Για παράδειγμα 2,456 = 2, 45,475 = 45.
- Όλοι οι αριθμοί κλασμάτων, που είναι μεγαλύτεροι από 0,5, θα στρογγυλοποιηθούν στον πλησιέστερο ακέραιο. Για παράδειγμα 10,56 = 11, 14,789 = 15.
Για να ρίξετε μια άλλη ματιά στον ακέραιο αριθμό, η τιμή του "k" είναι 85,58.
Κώδικας:
Sub Integer_Example3 () Dim k As Integer k = 85.58 MsgBox k End Sub
Όταν εκτελώ αυτόν τον κωδικό χρησιμοποιώντας το πλήκτρο F5 ή χειροκίνητα, θα επιστρέψει 86, επειδή οτιδήποτε περισσότερο από 0,5 θα στρογγυλοποιηθεί στον επόμενο ακέραιο αριθμό.
Περιορισμοί του ακέραιου τύπου δεδομένων στο Excel VBA
Σφάλμα υπερχείλισης: Ο ακέραιος τύπος δεδομένων θα πρέπει να λειτουργεί καλά όσο η εκχωρημένη τιμή κυμαίνεται μεταξύ -32768 και 32767. Όταν ξεπεράσει το όριο και στις δύο πλευρές, θα σας προκαλέσει σφάλμα.
Για παράδειγμα, δείτε τον παρακάτω κώδικα.
Κώδικας:
Sub Integer_Example4 () Dim k As Integer k = 40000 MsgBox k End Sub
Έχω εκχωρήσει την τιμή των 40000 στη μεταβλητή "k".
Δεδομένου ότι έχω πλήρη γνώση του Integer Data Type, ξέρω ότι δεν λειτουργεί επειδή ο ακέραιος τύπος δεδομένων δεν μπορεί να έχει τίποτα περισσότερο από 32767.
Ας εκτελέσουμε τον κώδικα χειροκίνητα ή μέσω του πλήκτρου F5 και να δούμε τι θα συμβεί.
Ωχ !!!
Έχω το σφάλμα ως "Υπερχείλιση" επειδή ο τύπος δεδομένων ακέραιου αριθμού δεν μπορεί να κρατήσει τίποτα περισσότερο από 32767 για θετικούς αριθμούς και -32768 για αρνητικούς αριθμούς.
Σφάλμα αναντιστοιχίας τύπου: Τα ακέραια δεδομένα μπορούν να κρατήσουν μόνο αριθμητικές τιμές μεταξύ -32768 και 32767. Ας υποθέσουμε ότι οποιοσδήποτε αριθμός έχει εκχωρηθεί περισσότεροι από αυτούς τους αριθμούς θα εμφανίσει σφάλμα υπερχείλισης.
Τώρα θα προσπαθήσω να εκχωρήσω τιμές κειμένου ή συμβολοσειράς σε αυτό. Στο παρακάτω παράδειγμα κώδικα, έχω εκχωρήσει την τιμή ως "Γεια".
Κώδικας:
Υπο Integer_Example4 () Dim k As Integer k = "Hello" MsgBox k End Sub
Θα τρέξω αυτόν τον κωδικό μέσω της επιλογής εκτέλεσης ή χειροκίνητα και θα δω τι θα συμβεί.
Δείχνει το σφάλμα ως "Αναντιστοιχία τύπου" επειδή δεν μπορούμε να αντιστοιχίσουμε μια τιμή κειμένου στη μεταβλητή "ακέραιος τύπος δεδομένων".
