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

Προσθέστε τις ακόλουθες γραμμές κώδικα στο κουμπί εντολής:
1. Αρχικά, δηλώνουμε δύο αντικείμενα και μία μεταβλητή. Ένα αντικείμενο τύπου βιβλίου εργασίας που ονομάζουμε βιβλίο, ένα αντικείμενο τύπου φύλλου εργασίας που καλούμε φύλλο και μια μεταβλητή τύπου String που ονομάζουμε κείμενο.
2. Θέλουμε να βρούμε όλα τα ανοιχτά βιβλία εργασίας. Για να επιτευχθεί αυτό, προσθέστε την ακόλουθη γραμμή κώδικα:
3. Γράφουμε το κείμενο "Βιβλίο εργασίας:", το όνομα του βιβλίου εργασίας και το κείμενο "Φύλλα εργασίας:" "στο μεταβλητό κείμενο.
Σημείωση: μπορείτε να χρησιμοποιήσετε τον χειριστή & για να συγκολλήσετε στοιχεία. Για να ξεκινήσετε μια νέα γραμμή, μπορείτε να χρησιμοποιήσετε το vbNewLine.
4. Για να μετακινήσετε όλα τα φύλλα εργασίας ενός βιβλίου εργασίας, προσθέστε την ακόλουθη γραμμή κώδικα:
5. Γράφουμε τα ονόματα των φύλλων εργασίας ενός βιβλίου εργασίας στο μεταβλητό κείμενο.
6. Κλείστε το δεύτερο βρόχο.
7. Προσθέστε μια λευκή γραμμή.
8. Μην ξεχάσετε να κλείσετε τον πρώτο βρόχο.
9. Τέλος, εμφανίζουμε το μεταβλητό κείμενο χρησιμοποιώντας ένα MsgBox.
10. Ελέγξτε το πρόγραμμα. Πριν κάνετε κλικ στο κουμπί εντολών, δώστε στα φύλλα εργασίας σας ορισμένα περιγραφικά ονόματα και ανοίξτε ένα άλλο κενό βιβλίο εργασίας.
Αποτέλεσμα:
