Σε αυτό το άρθρο, παρέχουμε βήμα προς βήμα οδηγό για την εύρεση του μεγέθους του πίνακα χρησιμοποιώντας τον κώδικα VBA.
Πώς να βρείτε το μέγεθος μιας σειράς χρησιμοποιώντας κώδικα VBA;
Ακολουθήστε τα βήματα για να βρείτε το μέγεθος του πίνακα χρησιμοποιώντας τον κώδικα Excel VBA.
- Βήμα 1: Ας ξεκινήσουμε με το βασικό πρώτο, να δηλώσουμε μια μεταβλητή στο VBA ως τύπο παραλλαγής δεδομένων.
Κώδικας:
Sub Array_Size () Dim MyArray ως παραλλαγή End Sub
- Βήμα 2: Για αυτήν τη μεταβλητή χρησιμοποιήστε τη συνάρτηση ARRAY και εκχωρήστε ορισμένες τιμές όπως φαίνεται παρακάτω.
Κώδικας:
Sub Array_Size () Dim MyArray As Variant MyArray = Array ("Jan", "Feb", "Mar", "Apr", "May", "Jun", "Jul") End Sub
- Βήμα 3: Εντάξει, έχουμε εκχωρήσει ορισμένες τιμές στο όνομα του πίνακα "MyArray".
Ας υποθέσουμε εάν πρέπει να γράψουμε έναν βρόχο για να αποθηκεύσουμε αυτές τις τιμές πίνακα σε κελιά, τότε πρέπει να αποφασίσουμε πόσες φορές πρέπει να εκτελεστεί ο βρόχος. Αυτό εξαρτάται από τον αριθμό των τιμών που έχει ο πίνακας.
Εντάξει, τώρα κοιτάξτε τον αριθμό των τιμών που έχουν εκχωρηθεί στο όνομα του πίνακα "MyArray", αντιστοιχούν συνολικά 7 τιμές στον πίνακα, οπότε τώρα γνωρίζουμε πόσες φορές πρέπει να εκτελεστεί ο βρόχος για να αποθηκεύσετε τιμές ενός πίνακα σε κελιά .
- Βήμα 4: Δηλώστε μια άλλη μεταβλητή ως ακέραιο για την εγγραφή βρόχου FOR στο VBA.
Κώδικας:
Sub Array_Size () Dim MyArray As Variant MyArray = Array ("Jan", "Feb", "Mar", "Apr", "May", "Jun", "Jul") Dim k As Integer Για k = 1 έως 7 Επόμενο k End Sub
- Βήμα 5: Εκεί πηγαίνουμε ανοίξαμε το βρόχο FOR ξεκινώντας από το 1 έως το 7, μέσα στο βρόχο γράψτε την ιδιότητα CELLS για αποθήκευση όπως φαίνεται παρακάτω.
Κώδικας:
Sub Array_Size () Dim MyArray As Variant MyArray = Array ("Jan", "Feb", "Mar", "Apr", "May", "Jun", "Jul") Dim k As Integer Για k = 1 έως 7 Κελιά (k, 1). Value = MyArray (k) Next k End Sub
- Βήμα 6: Εντάξει, τώρα εκτελέστε τον κωδικό γραμμή προς γραμμή πατώντας ένα πλήκτρο λειτουργίας F8. Όταν πατήσετε το πλήκτρο F8 για πρώτη φορά, θα ξεκινήσει η μακροεντολή.
- Βήμα 7: Πατήστε F8 τώρα θα μεταβεί στη γραμμή εκχώρησης τιμών πίνακα.
- Βήμα 8: Από τώρα το όνομα πίνακα "MyArray" δεν έχει τιμές σε αυτό πατήστε το πλήκτρο F8 και όλες οι αναφερόμενες τιμές θα αντιστοιχιστούν στη μεταβλητή του πίνακα.
- Βήμα 9: Τώρα θα αρχίσει να τρέχει ο βρόχος και θα πατήσετε το πλήκτρο F8 2 φορές και θα δείτε τι τιμή έχουμε στο κελί A1.
- Ωχ !!! Περιμένετε, η πρώτη μας τιμή στη μεταβλητή πίνακα είναι "Jan", αλλά έχουμε το αποτέλεσμα ως τη δεύτερη τιμή "Φεβ" όταν εξακολουθεί να εκτελείται ο πρώτος βρόχος τιμής.
- Βήμα 10: Αυτό συμβαίνει επειδή όταν η μέτρηση των τιμών του πίνακα ξεκινά από το μηδέν, όχι από το 1, οπότε πρέπει να συμπεριλάβουμε τον αρχικό βρόχο ως μηδέν.
- Βήμα 11: Μόλις η αρχική θέση του βρόχου μειωθεί κατά ένα παρόμοιο τέλος θα πρέπει επίσης να μειωθεί κατά 1, οπότε κάντε το τέλος ως 6 αντί για 7.
- Βήμα 12: Μόλις η έναρξη και το τέλος του βρόχου αποφασίσει ένα ακόμη τσίμπημα πρέπει να κάνουμε, δηλαδή στην ιδιότητα CELLS έχουμε χρησιμοποιήσει τη μεταβλητή "k" ως το δυναμικό εργαλείο επιλογής κυττάρων, αλλά επειδή ο βρόχος μας ξεκινά από το μηδέν, δεν υπάρχει κελί που ξεκινά με μηδέν , οπότε προσθέστε συν 1 στη μεταβλητή "k".
Κώδικας:
Sub Array_Size () Dim MyArray As Variant MyArray = Array ("Jan", "Feb", "Mar", "Apr", "May", "Jun", "Jul") Dim k As Integer Για k = 0 έως 6 Κελιά (k + 1, 1). Τιμή = MyArray (k) Επόμενο k End Sub
- Βήμα 13: Τώρα λοιπόν κατά την εκτέλεση του βρόχου η τιμή "k" για πρώτη φορά είναι μηδενική και αφού έχουμε προσθέσει συν 1, η τιμή "k" θα είναι 1, οπότε αναφέρεται στο κελί A1.
- Βήμα 14: Τώρα εκτελέστε τον κώδικα και όλες οι τιμές του πίνακα θα αποθηκευτούν σε κελιά.
Ωστόσο, σε αυτήν την περίπτωση, έχουμε αποφασίσει το μέγεθος έναρξης και λήξης του βρόχου χειροκίνητα, αλλά το μέγεθος του πίνακα μπορεί να προσδιοριστεί εύκολα χρησιμοποιώντας τις συναρτήσεις LBOUND & UBOUND.
Βρείτε το μέγεθος μιας συστοιχίας αυτόματα
- Βήμα 1: Όταν περιλάβαμε την αφετηρία και το τελικό σημείο βρόχου στα παραπάνω, μετρήσαμε με μη αυτόματο τρόπο τον αριθμό τιμών που έχει ο πίνακας, αλλά για να ξεκινήσει ο πίνακας χρησιμοποιήστε τη συνάρτηση LBOUND και για αυτό το πέρασμα "MyArray" όνομα μεταβλητής.
- Βήμα 2: Και για να προσδιορίσετε το τελευταίο μέγεθος πίνακα χρησιμοποιήστε τη συνάρτηση UBOUND και εισαγάγετε το όνομα του πίνακα "MyArray".
Κώδικας:
Sub Array_Size () Dim MyArray As Variant MyArray = Array ("Jan", "Feb", "Mar", "Apr", "May", "Jun", "Jul") Dim k As Integer Για k = Lboubd (MyArray ) Στα κελιά UBound (MyArray) (k + 1, 1). Value = MyArray (k) Next k End Sub
- Βήμα 3: Εντάξει τώρα ξεκινήστε τη γραμμή με κωδικό γραμμής και πατήστε το πλήκτρο F8 μέχρι να φτάσει στο σημείο εκκίνησης του βρόχου.
- Βήμα 4: Τώρα τοποθετήστε τον κέρσορα στο "LBound (MyArray)" και δείτε τι λέει.
- Βήμα 5: Ο αριθμός αφετηρίας που λέει είναι μηδέν, τοποθετήστε τώρα τον κέρσορα στο "UBound (MyArray)" και δείτε τι λέει.
Λέει το μέγεθος του πίνακα ως 6, έτσι όπως αναφέραμε το ξεκίνημα και το τέλος του χειροκίνητα, το UBOUND και το LBOUND επιλέγουν αυτόματα τους αριθμούς για εμάς.
