Αυτό το σεμινάριο θα δείξει πώς να συμπληρώσετε έναν πίνακα με μια σειρά κελιών.
Εκχώρηση εύρους σε πίνακα
Μπορούμε εύκολα να συμπληρώσουμε έναν πίνακα παραλλαγής με μια σειρά κελιών.
Εκχωρήστε τιμή από μία μόνο στήλη
Αυτό το παράδειγμα θα περάσει από το εύρος ("A1: A10"), εκχωρώντας τις τιμές κελιού σε έναν πίνακα:
| 12345678910111213 | Sub TestArrayValuesSingle ()«Δηλώστε τον πίνακα ως πίνακα παραλλαγήςDim arRng () Ως παραλλαγή«Δηλώστε τον ακέραιο για να αποθηκεύσετε τον αριθμό των γραμμώνDim iRw ως ακέραιος«Εκχωρήστε εύρος σε μια μεταβλητή πίνακαarRng = Εύρος ("A1: A10")«βρόχος στις γραμμές - 1 έως 10Για iRw = 1 προς UBound (arRng)«εμφανίστε το αποτέλεσμα στο άμεσο παράθυροDebug.Print arRng (iRw, 1)Επόμενο iRwΤέλος υπο |
ο UBound χρησιμοποιείται για τη ρύθμιση του ανώτερου ορίου του πίνακα (π.χ. 10) έτσι ώστε ο βρόχος να ξέρει να κάνει βρόχο 10 φορές.
οΣφάλμα. Εκτύπωση η λειτουργία θα σας δείξει την τιμή που περιέχει ο πίνακας στο άμεσο παράθυρο.
Εκχώρηση τιμής από πολλές στήλες
| 123456789101112131415161718 | Sub TestArrayValuesMultiple ()«Δηλώστε τον πίνακα ως πίνακα παραλλαγήςDim arRng () Ως παραλλαγή«Δηλώστε τον ακέραιο για να αποθηκεύσετε τον αριθμό των γραμμώνDim iRw ως ακέραιος«Δηλώστε τον ακέραιο για να αποθηκεύσετε τον αριθμό των στηλώνDim iCol ως ακέραιος«Εκχωρήστε εύρος σε μια μεταβλητή πίνακαarRng = Εύρος ("A1: C10")«βρόχος στις γραμμές - 1 έως 10Για iRw = 1 προς UBound (arRng, 1)«τώρα - ενώ βρίσκεστε στη σειρά 1, περάστε τις 3 στήλεςΓια iCol = 1 σε UBound (arRng, 2)«εμφανίστε το αποτέλεσμα στο άμεσο παράθυροDebug.Print arRng (iRw, iCol)Επόμενο iColΕπόμενο iRwΤέλος υπο |
Στον παραπάνω κώδικα, συμπληρώσαμε τον πίνακα με τις τιμές στο εύρος ("A1: C10").
ο UBound χρησιμοποιείται για άλλη μια φορά - αλλά αυτή τη φορά χρειάζεται δύο φορές - μία φορά για να πραγματοποιήσετε βρόχο στις γραμμές και, στη συνέχεια, ξανά για περιστροφή στις στήλες.
ο Σφάλμα. Εκτύπωση η λειτουργία θα σας δείξει την τιμή που περιέχει ο πίνακας στο άμεσο παράθυρο.
