Εάν το μέγεθος του πίνακα σας αυξηθεί και δεν θέλετε να διορθώσετε το μέγεθος του πίνακα, μπορείτε να χρησιμοποιήσετε το Λέξη -κλειδί ReDim. Excel VBA τότε αλλάζει αυτόματα το μέγεθος του πίνακα.
Προσθέστε μερικούς αριθμούς στη στήλη Α.
Τοποθετήστε ένα κουμπί εντολών στο φύλλο εργασίας σας και προσθέστε τις ακόλουθες γραμμές κώδικα:
1. Αρχικά, δηλώνουμε τον πίνακα με τους αριθμούς. Δηλώστε επίσης δύο μεταβλητές τύπου Ακέραιος. Ένα με όνομα και ένα με όνομα i.
Αριθμοί αμυδρού () Ως ακέραιος, μέγεθος ως ακέραιος, i ως ακέραιος
Σημείωση: ο πίνακας δεν έχει ακόμη μέγεθος. οι αριθμοί, το μέγεθος και το i επιλέγονται τυχαία εδώ, μπορείτε να χρησιμοποιήσετε οποιαδήποτε ονόματα. Θυμηθείτε να ανατρέξετε σε αυτά τα ονόματα στον υπόλοιπο κώδικα.
2. Στη συνέχεια, καθορίζουμε το μέγεθος του πίνακα και το αποθηκεύουμε στο μεταβλητό μέγεθος. Μπορείτε να χρησιμοποιήσετε τη συνάρτηση φύλλου εργασίας CountA για αυτό. Προσθέστε την ακόλουθη γραμμή κώδικα:
μέγεθος = WorksheetFunction.CountA (Φύλλα εργασίας (1). Στήλες (1))
3. Γνωρίζουμε τώρα το μέγεθος του πίνακα και μπορούμε να το επαναδιαμερίσουμε. Προσθέστε την ακόλουθη γραμμή κώδικα:
Αριθμοί ReDim (μέγεθος)
4. Στη συνέχεια, αρχικοποιούμε κάθε στοιχείο του πίνακα. Χρησιμοποιούμε βρόχο.
Για i = 1 Στο μέγεθος
αριθμοί (i) = Κελιά (i, 1). Αξία
Επόμενο i
5. Εμφανίζουμε το τελευταίο στοιχείο του πίνακα χρησιμοποιώντας ένα MsgBox.
Αριθμοί MsgBox (μέγεθος)
6. Κλείστε το Visual Basic Editor και κάντε κλικ στο κουμπί εντολών στο φύλλο.
Αποτέλεσμα:
7. Τώρα για να δείτε καθαρά γιατί αυτό ονομάζεται δυναμικός πίνακας, προσθέστε έναν αριθμό στη στήλη Α.
8. Κάντε ξανά κλικ στο κουμπί εντολών.
Συμπέρασμα: Το Excel VBA άλλαξε αυτόματα το μέγεθος αυτής της δυναμικής συστοιχίας.
9. Όταν χρησιμοποιείτε τη λέξη -κλειδί ReDim, διαγράφετε τυχόν υπάρχοντα δεδομένα που είναι αποθηκευμένα αυτήν τη στιγμή στον πίνακα. Για παράδειγμα, προσθέστε τις ακόλουθες γραμμές κώδικα στον κώδικα που δημιουργήσατε προηγουμένως:
Αριθμοί ReDim (3)
Αριθμοί MsgBox (1)
Αποτέλεσμα:
Ο πίνακας είναι κενός.
10. Όταν θέλετε να διατηρήσετε τα δεδομένα στον υπάρχοντα πίνακα όταν τα επαναδιαμορφώνετε, χρησιμοποιήστε τη λέξη -κλειδί Διατήρηση.
Αριθμοί ReDim Preserve (3)
Αριθμοί MsgBox (1)
Αποτέλεσμα:
