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

Λάβετε μια λίστα με όλα τα ονόματα των φύλλων εργασίας από ένα βιβλίο εργασίας δυναμικά με τύπους

Λάβετε μια λίστα με όλα τα ονόματα των φύλλων εργασίας από ένα βιβλίο εργασίας με μια χρήσιμη λειτουργία

Λάβετε μια λίστα με όλα τα ονόματα των φύλλων εργασίας από ένα βιβλίο εργασίας με κωδικό VBA

Λάβετε μια λίστα με όλα τα ονόματα των φύλλων εργασίας από ένα βιβλίο εργασίας δυναμικά με τύπους

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

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

2. Στην Όνομα Διευθυντής , κάντε κλικ στην επιλογή Νέα κουμπί, δείτε το στιγμιότυπο οθόνης:

3. Στο αναδυόμενο Νέο όνομα διαλόγου, καθορίστε ένα όνομα στο Όνομα πλαίσιο κειμένου και, στη συνέχεια, αντιγράψτε τον παρακάτω τύπο στο Αναφέρεται σε πλαίσιο κειμένου, δείτε το στιγμιότυπο οθόνης:

=GET.WORKBOOK(1)&T(NOW())

4. Στη συνέχεια κάντε κλικ στο κουμπί OK > Κλεισιμο για να κλείσετε τα παράθυρα διαλόγου, τώρα, μεταβείτε σε ένα φύλλο όπου θέλετε να παραθέσετε όλα τα ονόματα των φύλλων και, στη συνέχεια, εισαγάγετε τον ακόλουθο τύπο σε ένα κενό κελί:

=IFERROR(INDEX(MID(Sheetnames,FIND("]",Sheetnames)+1,255),ROWS($A$2:A2)),"")

Note: Στον παραπάνω τύπο, Ονόματα φύλλων είναι το όνομα εύρους που έχετε λάβει το βήμα 3.

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

6. Εάν θέλετε να δημιουργήσετε τον υπερσύνδεσμο για κάθε φύλλο, χρησιμοποιήστε τον παρακάτω τύπο:

=HYPERLINK("#'"&A2&"'!A1","Go To Sheet")

Note: Στον παραπάνω τύπο, A2 είναι το κελί που περιέχει το όνομα του φύλλου και A1 είναι το κελί όπου θέλετε να βρίσκεται το ενεργό κελί. Για παράδειγμα, εάν κάνετε κλικ στο κείμενο υπερσύνδεσης, θα εντοπίσει το κελί A1 του φύλλου.

7. Τώρα, όταν κάνετε κλικ στο κείμενο υπερσύνδεσης, θα σας μεταφέρει σε αυτό το φύλλο, δείτε παρακάτω την επίδειξη:

Λάβετε μια λίστα με όλα τα ονόματα των φύλλων εργασίας από ένα βιβλίο εργασίας με μια χρήσιμη λειτουργία

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

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

1. Πατήστε Kutools Plus > Φύλλο εργασίας > Δημιουργία λίστας ονομάτων φύλλων, δείτε το στιγμιότυπο οθόνης:

2. Στην Δημιουργία λίστας ονομάτων φύλλων πλαίσιο διαλόγου, προσδιορίστε τις ακόλουθες ρυθμίσεις:

(1.) Επιλέξτε στυλ ευρετηρίου φύλλων θέλετε, μπορείτε να δημιουργήσετε ονόματα φύλλων εργασίας με υπερσυνδέσμους ή με κουμπιά μακροεντολής. (2.) Εισαγάγετε τα ονόματα του φύλλου εργασίας για το ευρετήριο φύλλων. (3.) Καθορίστε τη θέση του ευρετηρίου φύλλων εργασίας. (4.) Καθορίστε πόσες στήλες θέλετε να χρησιμοποιήσετε στο νέο φύλλο εργασίας για να εμφανίσετε τα ονόματα του φύλλου εργασίας.

3. Αφού ολοκληρώσετε τις ρυθμίσεις, κάντε κλικ στο OK. Όλα τα ονόματα των φύλλων εργασίας έχουν καταχωρηθεί με συνδέσμους σε ένα νέο φύλλο εργασίας του τρέχοντος βιβλίου εργασίας. Δείτε το στιγμιότυπο οθόνης:

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

Λάβετε μια λίστα με όλα τα ονόματα των φύλλων εργασίας από ένα βιβλίο εργασίας με κωδικό VBA

1. Κρατήστε πατημένο το ALT + F11 και ανοίγει το Microsoft Visual Basic για εφαρμογές παράθυρο.

2. Κλίκ Κύριο θέμα > Μονάδα μέτρησηςκαι επικολλήστε την ακόλουθη μακροεντολή στο Μονάδα μέτρησης Παράθυρο.

VBA: Λίστα όλων των ονομάτων φύλλων εργασίας με υπερσυνδέσμους σε ένα νέο φύλλο εργασίας:

Sub CreateIndex()
'updateby Extendoffice
    Dim xAlerts As Boolean
    Dim I  As Long
    Dim xShtIndex As Worksheet
    Dim xSht As Variant
    xAlerts = Application.DisplayAlerts
    Application.DisplayAlerts = False
    On Error Resume Next
    Sheets("Index").Delete
    On Error GoTo 0
    Set xShtIndex = Sheets.Add(Sheets(1))
    xShtIndex.Name = "Index"
    I = 1
    Cells(1, 1).Value = "INDEX"
    For Each xSht In ThisWorkbook.Sheets
        If xSht.Name <> "Index" Then
            I = I + 1
            xShtIndex.Hyperlinks.Add Cells(I, 1), "", "'" & xSht.Name & "'!A1", , xSht.Name
        End If
    Next
    Application.DisplayAlerts = xAlerts
End Sub

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

Σχετικά Άρθρα