Αυτό το σεμινάριο θα δείξει πώς να εξάγετε έναν πίνακα σε μια περιοχή χρησιμοποιώντας VBA.
Πίνακας εξόδου (εκτύπωσης) σε εύρος
Τα δεδομένα που είναι αποθηκευμένα σε έναν πίνακα μπορούν εύκολα να εξαχθούν σε ένα φύλλο Excel. Υπάρχουν 3 τρόποι για να το κάνετε αυτό.
Έξοδος δεδομένων σε διαφορετικό εύρος
Θα μπορούσαμε να συμπληρώσουμε έναν πίνακα με δεδομένα από ένα εύρος στο Excel και, στη συνέχεια, να τα εξάγουμε σε διαφορετικό εύρος στο Excel.
12345678 | Public Sub TestOutput ()"δηλώστε τον πίνακαDim rnArray () Ως παραλλαγή"συμπληρώστε τον πίνακα με το εύροςrnArray = Εύρος ("A1: H24")«εξάγει τον πίνακα σε διαφορετικό εύρος κελιώνΕύρος ("J1: Q24") = rnArray ()Τέλος υπο |
Ολόκληρος ο πίνακας αντιγράφεται σε μια γραμμή κώδικα στον πίνακα και στη συνέχεια εξάγεται στο σύνολό του σε διαφορετικό εύρος κελιών στο φύλλο.
Looping Through a Array και Έξοδος των δεδομένων
Αυτό το παράδειγμα θα βροχήσει έναν πίνακα, εξάγοντας τον πίνακα σε ένα εύρος.
12345678910111213 | Public Sub TestLoopArray ()"δηλώστε τον πίνακαDim rnArray () Ως παραλλαγή«Δηλώστε τον ακέραιο για να αποθηκεύσετε τον αριθμό των γραμμώνDim iRw ως ακέραιος«Εκχωρήστε εύρος σε μια μεταβλητή πίνακαrnArray = Εύρος ("A1: A10")'βρόχο μέσα από τις τιμές στον πίνακαΓια iRw = LBound (rnArray) Προς UBound (rnArray)συμπληρώστε ένα διαφορετικό εύρος με τα δεδομέναΚελιά (iRw, 2). Αξία = rnArray (iRw, 1)Επόμενο iRwΤέλος υπο |
LBoundκαι UBoundεπιστρέφει το ευρετήριο Έναρξης (Κάτω δεσμευμένο) και Τελικό ευρετήριο (Πάνω δεσμευμένο) ενός πίνακα, σε αυτήν την περίπτωση 1 και 10.
Μεταφορά δεδομένων πίνακα
Μπορούμε επίσης να μεταφέρουμε τα δεδομένα του πίνακα στο φύλλο Excel. Το Transpose σάς επιτρέπει να εμφανίζετε τα δεδομένα οριζόντια στο φύλλο Excel.
Για παράδειγμα, εάν έχουμε μια λίστα καταστάσεων στο Excel και επιθυμούμε να τις μεταφέρουμε.
Στη συνέχεια, μπορούμε να εκτελέσουμε τον ακόλουθο κώδικα:
12345678 | Public Sub TestOutputTranspose ()"δηλώστε τον πίνακαDim rnArray () Ως παραλλαγή«συμπληρώστε το με το εύροςrnArray = Εύρος ("A1: A38")«μεταφορά των δεδομένωνΕύρος (Κελιά (1, 3), Κελιά (1, 40)). Τιμή = Εφαρμογή. Μεταφορά (rnArray)Τέλος υπο |
Που θα είχε ως αποτέλεσμα τα ακόλουθα:
Έξοδος στο Debug. Εκτύπωση
Μπορούμε επίσης να εξάγουμε τις τιμές του πίνακα στο παράθυρο εντοπισμού σφαλμάτων.
12345678910111213 | Public Sub TestLoopArray ()"δηλώστε τον πίνακαDim rnArray () Ως παραλλαγή«Δηλώστε τον ακέραιο για να αποθηκεύσετε τον αριθμό των γραμμώνDim iRw ως ακέραιος«Εκχωρήστε εύρος σε μια μεταβλητή πίνακαrnArray = Εύρος ("A1: A10")«βρόχος στις γραμμές - 1 έως 10Για iRw = 1 προς UBound (rnArray)'έξοδο στο άμεσο παράθυροDebug.Print rnArray (iRw, 1)Επόμενο iRwΤέλος υπο |