/ / / Loop μέσω βιβλίων και φύλλων στο Excel VBA

Βρόχο μέσω βιβλίων και φύλλων στο Excel VBA

Παρακάτω θα δούμε ένα πρόγραμμα στο Excel VBA ότι βρόχους μέσω όλων των ανοιχτών βιβλίων εργασίας και φύλλων εργασίας, και εμφανίζει όλα τα ονόματα.

Κατάσταση:

Loop μέσω βιβλίων και φύλλων Παράδειγμα

Προσθέστε τις ακόλουθες γραμμές κώδικα στο κουμπί εντολής:

1. Αρχικά, δηλώνουμε δύο αντικείμενα και μία μεταβλητή. Ένα αντικείμενο τύπου βιβλίου εργασίας που ονομάζουμε βιβλίο, ένα αντικείμενο τύπου φύλλου εργασίας που καλούμε φύλλο και μια μεταβλητή τύπου String που ονομάζουμε κείμενο.

Dim book As Workbook, sheet As Worksheet, text As String

2. Θέλουμε να βρούμε όλα τα ανοιχτά βιβλία εργασίας. Για να επιτευχθεί αυτό, προσθέστε την ακόλουθη γραμμή κώδικα:

For Each book In Workbooks

3. Γράφουμε το κείμενο "Βιβλίο εργασίας:", το όνομα του βιβλίου εργασίας και το κείμενο "Φύλλα εργασίας:" "στο μεταβλητό κείμενο.

text = text & "Workbook: " & book.Name & vbNewLine & "Worksheets: " & vbNewLine

Σημείωση: μπορείτε να χρησιμοποιήσετε τον χειριστή & για να συγκολλήσετε στοιχεία. Για να ξεκινήσετε μια νέα γραμμή, μπορείτε να χρησιμοποιήσετε το vbNewLine.

4. Για να μετακινήσετε όλα τα φύλλα εργασίας ενός βιβλίου εργασίας, προσθέστε την ακόλουθη γραμμή κώδικα:

For Each sheet In book.Worksheets

5. Γράφουμε τα ονόματα των φύλλων εργασίας ενός βιβλίου εργασίας στο μεταβλητό κείμενο.

text = text & sheet.Name & vbNewLine

6. Κλείστε το δεύτερο βρόχο.

Next sheet

7. Προσθέστε μια λευκή γραμμή.

text = text & vbNewLine

8. Μην ξεχάσετε να κλείσετε τον πρώτο βρόχο.

Next book

9. Τέλος, εμφανίζουμε το μεταβλητό κείμενο χρησιμοποιώντας ένα MsgBox.

MsgBox text

10. Ελέγξτε το πρόγραμμα. Πριν κάνετε κλικ στο κουμπί εντολών, δώστε στα φύλλα εργασίας σας ορισμένα περιγραφικά ονόματα και ανοίξτε ένα άλλο κενό βιβλίο εργασίας.

Αποτέλεσμα:

Βρόχο μέσω βιβλίων και φύλλων στο Excel VBA

Επίσης διαβάστε: