Πώς να περιηγηθείτε σε φύλλα στο Excel χρησιμοποιώντας VBA

Ενώ αυτοματοποιείτε τις συνηθισμένες βαρετές εργασίες του excel στο VBA, θα χρειαστεί να περιηγηθείτε σε κάθε φύλλο. Και αυτός είναι ο λόγος που βρίσκεστε εδώ, φυσικά.

Ας δούμε τον κώδικα για την περιήγηση σε φύλλα σε ένα βιβλίο εργασίας.

VBA Code To Loop σε όλα τα φύλλα στο Activeworkbook και εκτύπωση φύλλων Όνομα

Sub loopSheets () For Every ws In ActiveWorkbook.Worksheets Debug.Print ws.Name Next ws End Sub

Ο παραπάνω κώδικας vba, περνάει σε κάθε φύλλο στο ενεργό βιβλίο εργασίας και εκτυπώνει το όνομα των φύλλων

Πως δουλεύει?

Είναι αρκετά απλό. Λέμε στη VBA να αποθηκεύσει κάθε φύλλο εργασίας σε ενεργό βιβλίο εργασίας στο ws και στη συνέχεια να εκτυπώσει το όνομά του χρησιμοποιώντας τη μέθοδο ονόματος.

Βρόχος σε όλα τα φύλλα εκτός από ένα

Έτσι, εάν προσπαθείτε να συγχωνεύσετε πολλά φύλλα σε ένα κύριο φύλλο, θα πρέπει να κάνετε βρόχο σε κάθε φύλλο. αντιγράψτε τα δεδομένα κάθε φύλλου στο κύριο φύλλο. Αλλά θα θέλατε να εξαιρέσετε το κύριο φύλλο από το looping. Ας υποθέσουμε ότι ονομάσατε το κύριο φύλλο ως "Master". Σε αυτή την περίπτωση χρησιμοποιήστε αυτήν τη μέθοδο:

Sub loopSheets () For Every ws In ActiveWorkbook.Worksheets If ws.Name "Master" Then Debug.Print ws.Name & "Copied" End If Next ws End Sub

Είναι σχεδόν ίδιο με τον παραπάνω κώδικα, με μόνο προσθήκη της δήλωσης If.

Εάν ws.Name "Master" Τότε

Αυτή η γραμμή ελέγχει εάν το όνομα του τρέχοντος φύλλου εργασίας είναι "Master". αν δεν είναι, ο κωδικός μεταξύ του εάν εκτελείται το μπλοκ. Διαφορετικά ο κωδικός, εάν παραλείπεται το μπλοκ.

Λοιπόν, ναι, έτσι μπορείτε να περιηγηθείτε σε φύλλα εργασίας στο Excel. Στη συνέχεια θα μάθουμε πώς να ενοποιήσουμε πολλά φύλλα σε ένα χρησιμοποιώντας το vba.