Μετάβαση στο κύριο περιεχόμενο

Πώς να δημιουργήσετε αυτόματα τον πίνακα περιεχομένων για όλα τα φύλλα και τις ενημερώσεις;

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

Δημιουργήστε έναν πίνακα περιεχομένων για όλα τα φύλλα και ενημερώστε αυτόματα με τύπους

Δημιουργήστε έναν πίνακα περιεχομένων για όλα τα φύλλα και ενημερώστε αυτόματα με έναν κωδικό VBA

Δημιουργήστε έναν πίνακα περιεχομένων για όλα τα φύλλα και ενημερώστε αυτόματα με μια ισχυρή λειτουργία


Δημιουργήστε έναν πίνακα περιεχομένων για όλα τα φύλλα και ενημερώστε αυτόματα με τύπους

Στο Excel, μπορείτε να δημιουργήσετε έναν πίνακα περιεχομένων ορίζοντας ένα όνομα περιοχής και αναφέροντας το όνομα σε έναν τύπο, ακολουθήστε τα παρακάτω βήματα:

1. Εισαγάγετε ένα νέο φύλλο πριν από όλα τα φύλλα όπου θέλετε να δημιουργήσετε τον πίνακα περιεχομένων και μετονομάστε το όπως θέλετε.

2. Στη συνέχεια, κάντε κλικ στο κουμπί Τύπος > Ορίστε το όνομα, δείτε το στιγμιότυπο οθόνης:

3. Στην Νέο όνομα παράθυρο διαλόγου, καθορίστε ένα όνομα Λίστα φύλλων μέσα στο Όνομα πλαίσιο, μπορείτε να το αλλάξετε στο δικό σας και, στη συνέχεια, εισαγάγετε αυτόν τον τύπο: = GET.WORKBOOK (1) & T (ΤΩΡΑ ()) μέσα στο Αναφέρεται σε πλαίσιο κειμένου, δείτε το στιγμιότυπο οθόνης:

4. Στη συνέχεια, κάντε κλικ στο κουμπί OK για να κλείσετε το παράθυρο διαλόγου.

5. Τώρα, μεταβείτε στο νέο φύλλο όπου θέλετε να δημιουργήσετε έναν πίνακα περιεχομένων και, στη συνέχεια, εισαγάγετε τον ακόλουθο τύπο σε ένα κενό κελί:

=IFERROR(INDEX(MID(Sheetlist,FIND("]",Sheetlist)+1,255),ROWS($A$2:A2)),"")
Note: Στον παραπάνω τύπο, Λίστα φύλλων είναι το όνομα περιοχής που δημιουργήσατε στο βήμα 2.

6. Στη συνέχεια, σύρετε τη λαβή πλήρωσης προς τα κάτω στα κελιά έως ότου εμφανιστούν κενά κελιά και όλα τα ονόματα φύλλων (συμπεριλαμβανομένων των κρυφών φύλλων) του τρέχοντος βιβλίου εργασίας έχουν παρατεθεί όπως φαίνεται παρακάτω στιγμιότυπο οθόνης:

7. Στη συνέχεια, θα πρέπει να δημιουργήσετε υπερσυνδέσμους για τα περιεχόμενα του πίνακα, χρησιμοποιήστε τον παρακάτω τύπο:

=HYPERLINK("#'"&A2&"'!A1","Μετάβαση στο φύλλο")
Note: Στον παραπάνω τύπο, A2 είναι το κελί που περιέχει το όνομα του φύλλου και A1 είναι το κελί στο οποίο θέλετε να μεταβείτε σε αυτό το φύλλο. Για παράδειγμα, εάν κάνετε κλικ στο κείμενο υπερ-σύνδεσης, θα εντοπίσει το κελί A1 αυτού του φύλλου.

8. Τώρα, όταν κάνετε κλικ στο κείμενο υπερ-σύνδεσης, θα μεταβεί σε αυτό το φύλλο αμέσως. Και εάν εισαγάγετε ένα νέο φύλλο, διαγράψετε ένα φύλλο ή αλλάξετε το όνομα του φύλλου, τα περιεχόμενα του πίνακα θα ενημερωθούν αυτόματα.

Notes:
  • 1. Με αυτήν τη μέθοδο, όλα τα κρυφά φύλλα εμφανίζονται και στα περιεχόμενα του πίνακα.
  • 2. Πρέπει να αποθηκεύσετε το αρχείο ως Βιβλίο εργασίας Excel με δυνατότητα μακροεντολής μορφή, με αυτόν τον τρόπο, όταν ανοίγετε αυτό το αρχείο την επόμενη φορά, οι τύποι μπορούν να λειτουργήσουν καλά.

Δημιουργήστε έναν πίνακα περιεχομένων για όλα τα φύλλα και ενημερώστε αυτόματα με έναν κωδικό VBA

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

1. Εισαγάγετε ένα νέο φύλλο πριν από όλα τα φύλλα όπου θέλετε να δημιουργήσετε τον πίνακα περιεχομένων και μετονομάστε το όπως θέλετε. Στη συνέχεια, κάντε δεξί κλικ στην καρτέλα του φύλλου και επιλέξτε Προβολή κωδικού από το μενού περιβάλλοντος, δείτε το στιγμιότυπο οθόνης:

2. Στο άνοιγμα Microsoft Visual Basic για εφαρμογές παράθυρο, αντιγράψτε και επικολλήστε τον παρακάτω κώδικα στο παράθυρο κώδικα φύλλου:

Κώδικας VBA: Δημιουργήστε αυτόματα έναν πίνακα περιεχομένων για όλα τα φύλλα και τις ενημερώσεις

Private Sub Worksheet_Activate()
‘Updateby ExtendOffice
Dim xWsh As Worksheet
Dim xWshs As Worksheets
Dim xShowHinddenWorkSheet As Boolean
Dim xI As Long
Dim xRg As Range
Dim xStrTitle, xStrTCHeader, xStrWShName As String
xShowHinddenWorkSheet = False 'Change this to True to display the hidden sheets as you need
xStrTitle = "A1"
xStrTCHeader = "A3"
On Error Resume Next
Application.ScreenUpdating = False
Me.Cells.Clear
Me.Range(xStrTitle).Font.Bold = True
Me.Range(xStrTitle).Font.Size = Me.Range(xStrTitle).Font.Size + 2
Me.Range(xStrTitle).Value = "Table of Contents"
Me.Range(xStrTCHeader).Value = "No."
Me.Range(xStrTCHeader).Offset(0, 1).Value = "Sheet Name"
Me.Range(xStrTCHeader).Resize(1, 2).Font.Bold = True
xStrWShName = Me.Name
xI = 1
For Each xWsh In Application.ActiveWorkbook.Worksheets
    If xWsh.Name <> xStrWShName Then
        If (xWsh.Visible = xlSheetVisible) Or xShowHinddenWorkSheet Then
            Me.Hyperlinks.Add Anchor:=Me.Range(xStrTCHeader).Offset(xI, 1), Address:="", SubAddress:="'" & xWsh.Name & "'!A1", TextToDisplay:=xWsh.Name
            Me.Range(xStrTCHeader).Offset(xI).Value = xI
            xI = xI + 1
        End If
    End If
Next
Application.ScreenUpdating = True
End Sub

3. Στη συνέχεια, πατήστε F5 κλειδί για την εκτέλεση αυτού του κώδικα και τα περιεχόμενα του πίνακα δημιουργούνται ταυτόχρονα στο νέο φύλλο εργασίας, όλα τα κρυφά φύλλα δεν θα εμφανίζονται στα περιεχόμενα του πίνακα, δείτε στιγμιότυπο οθόνης:

4. Από τώρα, κατά τη διαγραφή, την εισαγωγή ή τη μετονομασία φύλλου, τα περιεχόμενα του πίνακα θα ενημερώνονται δυναμικά.

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

Δημιουργήστε έναν πίνακα περιεχομένων για όλα τα φύλλα και ενημερώστε αυτόματα με μια ισχυρή λειτουργία

Εάν έχετε Kutools για Excel, της Παράθυρο πλοήγησης μπορεί να σας βοηθήσει να απαριθμήσετε όλα τα ονόματα φύλλων σε ένα αριστερό παράθυρο κάθετα και να πλοηγηθείτε στο συγκεκριμένο φύλλο γρήγορα και εύκολα.

Μετά την εγκατάσταση Kutools για Excel, κάντε το ως εξής:

1. Πατήστε Kutools > Πλοήγηση, δείτε το στιγμιότυπο οθόνης:

2. Στην επέκταση Πλοήγηση Παράθυρο, κάντε κλικ στο κουμπί Βιβλίο & φύλλο εργασίας εικονίδιο, όλα τα ανοιγμένα βιβλία εργασίας παρατίθενται στο επάνω πλαίσιο λίστας και όλα τα ορατά φύλλα μέσα στο βιβλίο εργασίας εμφανίζονται στο κάτω πλαίσιο λίστας, δείτε στιγμιότυπο οθόνης:

3. Και τώρα, μπορείτε να μεταβείτε στο φύλλο απλώς κάνοντας κλικ στο όνομα του φύλλου από το αριστερό παράθυρο. Και όταν διαγράφετε, εισάγετε ή μετονομάζετε ένα φύλλο, η λίστα φύλλων στο παράθυρο θα ενημερώνεται δυναμικά.

Συμβουλές: Από προεπιλογή, τα κρυφά φύλλα δεν εμφανίζονται στο παράθυρο πλοήγησης, εάν θέλετε να εμφανίσετε τα κρυφά φύλλα, πρέπει απλώς να κάνετε κλικ στο Εναλλαγή για απόκρυψη / απόκρυψη όλων των κρυφών φύλλων εργασίας εικονίδιο, κάντε ξανά κλικ σε αυτό το εικονίδιο για να αποκρύψετε αμέσως το κρυφό φύλλο.

Τα καλύτερα εργαλεία παραγωγικότητας γραφείου

Δημοφιλή χαρακτηριστικά: Εύρεση, επισήμανση ή αναγνώριση διπλότυπων   |  Διαγραφή κενών γραμμών   |  Συνδυάστε στήλες ή κελιά χωρίς απώλεια δεδομένων   |   Γύρος χωρίς φόρμουλα ...
Σούπερ Αναζήτηση: VLookup πολλαπλών κριτηρίων    VLookup πολλαπλών τιμών  |   VLookup σε πολλά φύλλα   |   Ασαφής αναζήτηση ....
Σύνθετη αναπτυσσόμενη λίστα: Γρήγορη δημιουργία αναπτυσσόμενης λίστας   |  Εξαρτημένη αναπτυσσόμενη λίστα   |  Πολλαπλή αναπτυσσόμενη λίστα ....
Διαχειριστής στήλης: Προσθέστε έναν συγκεκριμένο αριθμό στηλών  |  Μετακίνηση στηλών  |  Εναλλαγή κατάστασης ορατότητας κρυφών στηλών  |  Συγκρίνετε εύρη και στήλες ...
Επιλεγμένα Χαρακτηριστικά: Εστίαση πλέγματος   |  Προβολή σχεδίου   |   Μεγάλη Formula Bar    Διαχείριση βιβλίου εργασίας & φύλλου   |  Βιβλιοθήκη πόρων (Αυτόματο κείμενο)   |  Επιλογή ημερομηνίας   |  Συνδυάστε φύλλα εργασίας   |  Κρυπτογράφηση/Αποκρυπτογράφηση κελιών    Αποστολή email ανά λίστα   |  Σούπερ φίλτρο   |   Ειδικό φίλτρο (φίλτρο με έντονη γραφή/πλάγια γραφή/διαγραφή...) ...
Κορυφαία 15 σύνολα εργαλείων12 Κείμενο Εργαλεία (Προσθήκη κειμένου, Κατάργηση χαρακτήρων, ...)   |   50 + Διάγραμμα Τύποι (Gantt διάγραμμα, ...)   |   40+ Πρακτικό ΜΑΘΗΜΑΤΙΚΟΙ τυποι (Υπολογίστε την ηλικία με βάση τα γενέθλια, ...)   |   19 Εισαγωγή Εργαλεία (Εισαγωγή κωδικού QR, Εισαγωγή εικόνας από το μονοπάτι, ...)   |   12 Μετατροπή Εργαλεία (Αριθμοί σε λέξεις, Μετατροπή Συναλλάγματος, ...)   |   7 Συγχώνευση & διαχωρισμός Εργαλεία (Σύνθετες σειρές συνδυασμού, Διαίρεση κελιών, ...)   |   ... κι αλλα

Αυξήστε τις δεξιότητές σας στο Excel με τα Kutools για Excel και απολαύστε την αποτελεσματικότητα όπως ποτέ πριν. Το Kutools για Excel προσφέρει πάνω από 300 προηγμένες δυνατότητες για την ενίσχυση της παραγωγικότητας και την εξοικονόμηση χρόνου.  Κάντε κλικ εδώ για να αποκτήσετε τη δυνατότητα που χρειάζεστε περισσότερο...

kte καρτέλα 201905


Το Office Tab φέρνει τη διεπαφή με καρτέλες στο Office και κάνει την εργασία σας πολύ πιο εύκολη

  • Ενεργοποίηση επεξεργασίας και ανάγνωσης καρτελών σε Word, Excel, PowerPoint, Publisher, Access, Visio και Project.
  • Ανοίξτε και δημιουργήστε πολλά έγγραφα σε νέες καρτέλες του ίδιου παραθύρου και όχι σε νέα παράθυρα.
  • Αυξάνει την παραγωγικότητά σας κατά 50% και μειώνει εκατοντάδες κλικ του ποντικιού για εσάς κάθε μέρα!
Comments (0)
No ratings yet. Be the first to rate!
There are no comments posted here yet
Please leave your comments in English
Posting as Guest
×
Rate this post:
0   Characters
Suggested Locations