Αυτό το σεμινάριο θα σας διδάξει πώς να περιηγείστε σε Arrays στο VBA.
Υπάρχουν δύο κύριοι τρόποι για να περιηγηθείτε σε πίνακες χρησιμοποιώντας το VBA:
- Για κάθε βρόχο - Ο βρόχος Για κάθε βρόχο θα πραγματοποιεί βρόχο σε κάθε στοιχείο του πίνακα.
- Για Επόμενο Βρόχο - Ο For Next Loop θα κάνει βρόχο μέσω καθορισμένων θέσεων έναρξης και τερματισμού του πίνακα (Μπορούμε να χρησιμοποιήσουμε τις συναρτήσεις UBound και LBound για να κάνουμε βρόχο σε ολόκληρο τον πίνακα).
Για κάθε στοιχείο στη συστοιχία
ο Για κάθε βρόχο σας δίνει τη δυνατότητα να κάνετε βρόχο σε κάθε στοιχείο του πίνακα.
| 12345678910111213141516171819 | Sub LoopForArrayStatic ()"δηλώστε έναν πίνακα παραλλαγήςDim strNames (1 έως 4) As String"συμπληρώστε τον πίνακαstrNames (1) = "Μπομπ"strNames (2) = "Πέτρος"strNames (3) = "Keith"strNames (4) = "Sam""δηλώστε μια παραλλαγή για να κρατήσετε το στοιχείο πίνακαDim στοιχείο ως παραλλαγήβρόχο σε ολόκληρο τον πίνακαΓια κάθε στοιχείο σε strNames'εμφάνιση του στοιχείου στο παράθυρο εντοπισμού σφαλμάτων.Σφάλμα. Στοιχείο εκτύπωσηςΒρόχοςΤέλος υπο |
Η παραπάνω διαδικασία θα βολέψει όλα τα ονόματα του πίνακα.
Για Επόμενο Βρόχο
Ο βρόχος Για επόμενο βρόχο περνάει κάθε στοιχείο σε μια καθορισμένη θέση έναρξης και λήξης του πίνακα.
Loop Through Part of Array
Μπορείτε να καθορίσετε μη αυτόματα τις θέσεις έναρξης και λήξης για τον βρόχο σας. Αυτό μπορεί να είναι κατάλληλο εάν γνωρίζετε το μέγεθος του πίνακα σας ή/και θέλετε να κάνετε βρόχο μόνο σε τμήμα ενός πίνακα.
| 12345678910111213141516 | Sub LoopForNextStatic ()"δηλώστε έναν πίνακα παραλλαγήςDim strNames (1 έως 4) As String"συμπληρώστε τον πίνακαstrNames (1) = "Μπομπ"strNames (2) = "Πέτρος"strNames (3) = "Keith"strNames (4) = "Sam"«δηλώστε έναν ακέραιοDim i As Integer'βρόχος από τη θέση 2 στη θέση 3 του πίνακαΓια i = 2 έως 3"εμφανίστε το όνομα στο άμεσο παράθυροDebug.Print strNames (i)Επόμενο iΤέλος υπο |
Στο παραπάνω παράδειγμα, έχουμε κάνει βρόχο στις θέσεις 2 και 3 του πίνακα. Το άμεσο παράθυρο θα επιστρέψει τα ονόματα ως εξής.
Loop Through Entire Array
Στη συνέχεια, θα χρησιμοποιήσουμε τις συναρτήσεις UBound και LBound για να βρούμε μια ολόκληρη συστοιχία. Αυτό είναι εξαιρετικά χρήσιμο εάν οι θέσεις έναρξης και τερματισμού του πίνακα ενδέχεται να αλλάξουν (π.χ. δυναμικός πίνακας):
| 123456789101112131415161718 | Sub LoopForNextDynamic ()"δηλώστε έναν πίνακα παραλλαγήςDim strNames () Ως συμβολοσειρά«αρχικοποιήστε τον πίνακαReDim strNames (1 έως 4)"συμπληρώστε τον πίνακαstrNames (1) = "Μπομπ"strNames (2) = "Πέτρος"strNames (3) = "Keith"strNames (4) = "Sam"«δηλώστε έναν ακέραιοDim i As Integer«βρόχος από το κάτω όριο του πίνακα στο ανώτερο όριο του πίνακα - ολόκληρο τον πίνακαΓια i = LBound (strNames) To UBound (strNames)"εμφανίστε το όνομα στο άμεσο παράθυροDebug.Print StNames (i)Επόμενο iΤέλος υπο |
