Σύνοψη
Αυτό το άρθρο περιέχει μια Microsoft Visual Basic για εφαρμογές μακροεντολή (διαδικασία Sub) που διέρχεται από όλα τα φύλλα του ενεργού βιβλίου εργασίας. Αυτή η μακροεντολή εμφανίζει επίσης το όνομα του κάθε φύλλου εργασίας.
Περισσότερες πληροφορίες
Η Microsoft παρέχει παραδείγματα προγραμματισμού μόνο για επεξήγηση, χωρίς καμία εγγύηση, είτε σιωπηρή είτε ρητή. Αυτό περιλαμβάνει, ενδεικτικά, τις σιωπηρές εγγυήσεις εμπορευσιμότητας ή καταλληλότητας για συγκεκριμένο σκοπό. Αυτό το άρθρο προϋποθέτει ότι είστε εξοικειωμένοι με τη γλώσσα προγραμματισμού που παρουσιάζεται, καθώς και με τα εργαλεία που χρησιμοποιούνται για τη δημιουργία διαδικασιών και τον εντοπισμό σφαλμάτων σε αυτές. Οι μηχανικοί υποστήριξης της Microsoft μπορούν να σας εξηγήσουν τη λειτουργικότητα μιας συγκεκριμένης διαδικασίας, αλλά δεν θα τροποποιήσουν αυτά τα παραδείγματα για να παράσχουν πρόσθετες λειτουργίες, ούτε θα δημιουργήσουν διαδικασίες για να καλύψουν τις συγκεκριμένες απαιτήσεις σας. Για να δοκιμάσετε το δείγμα μακροεντολής, ακολουθήστε τα εξής βήματα:
-
Πληκτρολογήστε τον ακόλουθο κώδικα μακροεντολής σε ένα νέο φύλλο λειτουργικής μονάδας.
Sub WorksheetLoop() Dim WS_Count As Integer Dim I As Integer ' Set WS_Count equal to the number of worksheets in the active ' workbook. WS_Count = ActiveWorkbook.Worksheets.Count ' Begin the loop. For I = 1 To WS_Count ' Insert your code here. ' The following line shows how to reference a sheet within ' the loop by displaying the worksheet name in a dialog box. MsgBox ActiveWorkbook.Worksheets(I).Name Next I End Sub
-
Για να εκτελέσετε τη μακροεντολή, τοποθετήστε το σημείο εισαγωγής στη γραμμή που γράφει "Sub WorksheetLoop()" και πιέστε το πλήκτρο F5.
Η μακροεντολή θα Εκτέλεση βρόχου μέσα στο βιβλίο εργασίας και να εμφανίσετε ένα πλαίσιο μηνύματος με ένα όνομα διαφορετικό φύλλο εργασίας κάθε φορά που εκτελείται μέσω του βρόχου. Σημειώστε ότι αυτή η μακροεντολή θα εμφανίσει μόνο τα ονόματα φύλλου εργασίας θα εμφανίζει τα ονόματα των άλλων τύπων φύλλα στο βιβλίο εργασίας. Επίσης, μπορείτε να διέλθετε μέσα όλα τα φύλλα εργασίας στο βιβλίο εργασίας με χρήση ενός βρόχου 'For Each'.
-
Πληκτρολογήστε τον ακόλουθο κώδικα μακροεντολής σε ένα νέο φύλλο λειτουργικής μονάδας.
Sub WorksheetLoop2() ' Declare Current as a worksheet object variable. Dim Current As Worksheet ' Loop through all of the worksheets in the active workbook. For Each Current In Worksheets ' Insert your code here. ' This line displays the worksheet name in a message box. MsgBox Current.Name Next End Sub
-
Για να εκτελέσετε τη μακροεντολή, τοποθετήστε το σημείο εισαγωγής στη γραμμή που γράφει "Sub WorksheetLoop2()" και πιέστε το πλήκτρο F5.
Αυτή η μακροεντολή λειτουργεί τον ίδιο τρόπο στη μακροεντολή WorksheetLoop, εκτός από το ότι χρησιμοποιεί έναν διαφορετικό τύπο βρόχος να επεξεργαστεί όλα τα φύλλα του ενεργού βιβλίου εργασίας.
Αναφορές
Για πρόσθετες πληροφορίες σχετικά με τη λήψη Βοήθειας με τη Visual Basic για εφαρμογές, ανατρέξτε στο ακόλουθο άρθρο της Γνωσιακής Βάσης της Microsoft:
163435 VBA: πόροι προγραμματισμού για τη Visual Basic για εφαρμογές
226118 OFF2000: πόροι προγραμματισμού για τη Visual Basic για εφαρμογές