Αυτό το άρθρο θα συζητήσει το αντικείμενο ActiveSheet στο VBA. Θα συζητήσει επίσης πώς να ενεργοποιήσετε, να επιλέξετε και να μεταβείτε στα Φύλλα εργασίας (και πολλά άλλα). Διαβάστε τον πλήρη οδηγό φύλλων εργασίας VBA για περισσότερες πληροφορίες σχετικά με την εργασία με φύλλα εργασίας στο VBA.
ActiveSheet
Στο VBA, το ActiveSheet αναφέρεται στο τρέχον ενεργό φύλλο εργασίας. Μόνο ένα Φύλλο μπορεί να είναι ενεργό κάθε φορά.
Ενεργοποίηση φύλλου εργασίας (Ρύθμιση του ActiveSheet)
Για να ορίσετε το ActiveSheet χρησιμοποιήστε το φύλλο εργασίας. Ενεργοποιήστε:
| 1 | Φύλλα εργασίας ("Εισαγωγή"). Ενεργοποιήστε |
Η εντολή Ενεργοποίηση φύλλου θα "μεταβεί" στο φύλλο, αλλάζοντας το ορατό φύλλο.
Το παραπάνω παράδειγμα χρησιμοποιεί το όνομα Φύλλο (Καρτέλα). Αντ 'αυτού, μπορείτε να χρησιμοποιήσετε το κωδικό όνομα VBA για το φύλλο εργασίας:
| 1 | Φύλλο 1. Ενεργοποιήστε |
Όνομα ActiveSheet
Για να λάβετε το όνομα του ActiveSheet:
| 1 | msgbox ActiveSheet.name |
Επιλεγμένα φύλλα έναντι ActiveSheet
Σε οποιαδήποτε χρονική στιγμή, μόνο ένα Φύλλο μπορεί να είναι το ActiveSheet. Ωστόσο, μπορούν να επιλεγούν πολλά φύλλα εργασίας ταυτόχρονα.
Όταν επιλεγούν πολλά φύλλα εργασίας, μόνο το "κορυφαίο" φύλλο εργασίας θεωρείται ενεργό (το ActiveSheet).
Επιλέξτε Φύλλο εργασίας
Εάν θέλετε να επιλέξετε ένα φύλλο εργασίας αντί να το ενεργοποιήσετε. Χρησιμοποιήστε .Επιλέξτε αντ 'αυτού.
Επιλέξτε φύλλο εργασίας με όνομα καρτέλας
Αυτό επιλέγει ένα φύλλο εργασίας με βάση το όνομα της καρτέλας φύλλου
| 1 | Φύλλα ("Εισαγωγή"). Επιλέξτε |
Επιλέξτε φύλλο εργασίας κατά αριθμό ευρετηρίου
Αυτό επιλέγει ένα φύλλο εργασίας με βάση τη θέση του σε σχέση με άλλες καρτέλες
| 1 | Φύλλα εργασίας (1). Επιλέξτε |
Επιλέξτε φύλλο εργασίας με όνομα κωδικού VBA
| 1 | Φύλλο 1. Επιλέξτε |
Η επιλογή φύλλων εργασίας με κωδικό όνομα μπορεί να αποτρέψει σφάλματα που προκαλούνται από αλλαγές ονόματος φύλλου εργασίας.
Επιλέξτε Τρέχον φύλλο εργασίας
Για να επιλέξετε το τρέχον φύλλο εργασίας, χρησιμοποιήστε το αντικείμενο ActiveSheet:
| 1 | ActiveSheet.Select |
Περισσότερα Ενεργοποίηση / Επιλογή παραδειγμάτων φύλλου
Ορίστε το ActiveSheet σε Variable
Αυτό θα εκχωρήσει το ActiveSheet σε μια μεταβλητή αντικειμένου φύλλου εργασίας.
| 123 | Dim ws Ως φύλλο εργασίαςΟρισμός ws = ActiveSheet |
Αλλαγή ονόματος ActiveSheet
Αυτό θα αλλάξει το όνομα του ActiveSheet.
| 1 | ActiveSheet.Name = "NewName" |
Με το ActiveSheet
Η χρήση της δήλωσης με σας επιτρέπει να βελτιστοποιήσετε τον κώδικα όταν εργάζεστε με αντικείμενα (όπως φύλλα ή ActiveSheet).
| 12345 | Με το ActiveSheet.Name = "StartFresh".Cells.Clear.Range ("A1"). Value = .NameΤέλος με |
Παρατηρήστε πώς δεν χρειάζεται να επαναλάβετε το "ActiveSheet" πριν από κάθε γραμμή κώδικα. Αυτό μπορεί να είναι μια τεράστια εξοικονόμηση χρόνου όταν εργάζεστε με μια μεγάλη λίστα εντολών.
Κάντε αναζήτηση σε επιλεγμένα φύλλα
Η ακόλουθη μακροεντολή θα μετακινηθεί σε όλα τα επιλεγμένα φύλλα, εμφανίζοντας τα ονόματά τους.
| 12345678 | Sub GetSelectedSheetsName ()Dim ws Ως φύλλο εργασίαςΓια κάθε ws Στο ActiveWindow.SelectedSheetsMsgBox ws.NameΕπόμενο wsΤέλος υπο |
GoTo Next Sheet
Αυτός ο κωδικός θα μεταβεί στο επόμενο Φύλλο. Εάν το ActiveSheet είναι το τελευταίο φύλλο, τότε θα μεταβεί στο πρώτο φύλλο στο τετράδιο εργασίας.
| 12345 | Εάν ActiveSheet.Index = Worksheets.Count Στη συνέχειαΦύλλα εργασίας (1). ΕνεργοποιήστεΑλλούActiveSheet.Next.ActivateΤέλος εαν |
