seychellesartprojects.org

Ένας ακέραιος είναι ένας τύπος δεδομένων στο VBA που δίνεται σε οποιαδήποτε μεταβλητή για να διατηρεί ακέραιες τιμές, οι περιορισμοί ή το βραχίονα για τον αριθμό μιας ακέραιας μεταβλητής μπορεί να κρατήσει είναι παρόμοιο στο VBA με εκείνο άλλων γλωσσών, οποιαδήποτε μεταβλητή ορίζεται ως ακέραιος μεταβλητή χρησιμοποιώντας τη δήλωση DIM ή τη λέξη-κλειδί στο VBA.

Excel VBA Integer

Οι τύποι δεδομένων είναι τόσο σημαντικοί σε οποιαδήποτε γλώσσα κωδικοποίησης, επειδή όλη η δήλωση μεταβλητής πρέπει να ακολουθείται από τύπο δεδομένων που αντιστοιχεί σε αυτές τις μεταβλητές. Έχουμε πολλούς τύπους δεδομένων για να εργαστούμε και κάθε τύπος δεδομένων έχει τα δικά του πλεονεκτήματα και μειονεκτήματα που σχετίζονται με αυτόν. Όταν δηλώνουμε μεταβλητές είναι σημαντικό να γνωρίζουμε λεπτομέρειες σχετικά με τον συγκεκριμένο τύπο δεδομένων. Αυτό είναι το άρθρο που είναι αφιερωμένο στον τύπο δεδομένων "Integer" στο VBA. Θα σας δείξουμε την πλήρη εικόνα του τύπου δεδομένων "Integer".

Τι είναι ο ακέραιος τύπος δεδομένων;

Οι ακέραιοι είναι ακέραιοι αριθμοί που θα μπορούσαν να είναι θετικοί, αρνητικοί και μηδενικοί αλλά όχι κλασματικοί αριθμοί. Στο πλαίσιο VBA, το "Integer" είναι ένας τύπος δεδομένων που εκχωρούμε στις μεταβλητές. Είναι ένας αριθμητικός τύπος δεδομένων που μπορεί να χωρέσει ακέραιους αριθμούς χωρίς δεκαδικές θέσεις. Ακέραιος τύπος αποθήκευσης τύπου 2 byte που είναι το ήμισυ του τύπου δεδομένων VBA LONG, δηλαδή 4 byte.

Παραδείγματα τύπου δεδομένων Integer Excel VBA

Ακολουθούν τα παραδείγματα του τύπου δεδομένων VBA Integer.

Μπορείτε να κατεβάσετε αυτό το Πρότυπο τύπου δεδομένων VBA Integer εδώ - Πρότυπο τύπου δεδομένων 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".

Δεδομένου ότι έχω πλήρη γνώση σχετικά με τον ακέραιο τύπο δεδομένων, ξέρω ότι δεν λειτουργεί επειδή ο ακέραιος τύπος δεδομένων δεν μπορεί να έχει τίποτα περισσότερο από 32767.

Ας εκτελέσουμε τον κώδικα χειροκίνητα ή μέσω του πλήκτρου F5 και να δούμε τι θα συμβεί.

Ωχ !!!

Πήρα το σφάλμα ως "Υπερχείλιση" επειδή ο τύπος δεδομένων ακέραιου αριθμού δεν μπορεί να έχει τίποτα περισσότερο από 32767 για θετικούς αριθμούς και -32768 για αρνητικούς αριθμούς.

Σφάλμα αναντιστοιχίας τύπου: Τα ακέραια δεδομένα μπορούν να κρατήσουν μόνο αριθμητικές τιμές μεταξύ -32768 και 32767. Εάν κάποιος αριθμός έχει εκχωρηθεί περισσότεροι από αυτούς τους αριθμούς θα εμφανιστεί σφάλμα υπερχείλισης.

Τώρα θα προσπαθήσω να εκχωρήσω τιμές κειμένου ή συμβολοσειράς σε αυτό. Στο παρακάτω παράδειγμα κώδικα έχω εκχωρήσει την τιμή ως "Γεια".

Κώδικας:

 Υπο Integer_Example4 () Dim k As Integer k = "Hello" MsgBox k End Sub 

Θα τρέξω αυτόν τον κώδικα μέσω της επιλογής εκτέλεσης ή χειροκίνητα και θα δω τι θα συμβεί.

Δείχνει το σφάλμα ως "Αναντιστοιχία τύπου" επειδή δεν μπορούμε να αντιστοιχίσουμε μια τιμή κειμένου στη μεταβλητή "ακέραιος τύπος δεδομένων".