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

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

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

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

Δημιουργήστε μια δυναμική λίστα ονομάτων φύλλου εργασίας με κώδικα VBA

Δημιουργήστε μια δυναμική λίστα ονομάτων φύλλων εργασίας με το Kutools για Excel καλή ιδέα3

Εμφάνιση δυναμικής λίστας ονομάτων φύλλων εργασίας με το Kutools για Excel καλή ιδέα3


1. Επιλέξτε ένα κελί σε ένα κενό φύλλο, εδώ επιλέγω A1 και μετά κάντε κλικ στο ΜΑΘΗΜΑΤΙΚΟΙ τυποι > Ορίστε το όνομα. δείτε το στιγμιότυπο οθόνης:
doc-dynamical-worksheetname-list-1

2. Στη συνέχεια, στο Νέο όνομα διαλόγου, πληκτρολογήστε φύλλα μέσα στο Όνομα πλαίσιο κειμένου (μπορείτε να αλλάξετε όπως χρειάζεστε) και πληκτρολογήστε αυτόν τον τύπο = SUBSTITUTE (GET.WORKBOOK (1), "[" & GET.WORKBOOK (16) & "]", "") στο πλαίσιο Αναφορές σε κείμενο. Δείτε το στιγμιότυπο οθόνης:
doc-dynamical-worksheetname-list-2

3. κλικ OK. Μεταβείτε στο επιλεγμένο κελί (A1) και πληκτρολογήστε αυτόν τον τύπο = INDEX (φύλλα, σειρές ($ A $ 1: $ A1)) (Το Α1 είναι το κελί που πληκτρολογείτε αυτόν τον τύπο, το "Φύλλα" είναι το όνομα που ορίσατε στο Βήμα 2) σε αυτό και, στη συνέχεια, σύρετε τη λαβή αυτόματης συμπλήρωσης προς τα κάτω μέχρι το #REF! εμφανίζεται.
doc-dynamical-worksheetname-list-3

Άκρο: Εάν αφαιρεθούν ή προστεθούν φύλλα εργασίας, πρέπει να μεταβείτε στο A1 και να πατήσετε το πλήκτρο Enter και, στη συνέχεια, να σκουπίσετε ξανά τη λαβή αυτόματης συμπλήρωσης.
doc-dynamical-worksheetname-list-4


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

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

doc-dynamical-worksheetname-list-5       doc-dynamical-worksheetname-list-6

2. Κάντε δεξί κλικ στο όνομα του φύλλου του ευρετηρίου, επιλέξτε Προβολή κωδικού από το μενού περιβάλλοντος. Δείτε το στιγμιότυπο οθόνης:
doc-dynamical-worksheetname-list-7

3. Στο αναδυόμενο παράθυρο, αντιγράψτε και επικολλήστε τον κώδικα VBA κάτω από αυτό.

VBA: Δημιουργία δυναμικής λίστας ονομάτων φύλλων εργασίας.

Private Sub Worksheet_Activate()
	'Updateby20150305
	Dim xSheet As Worksheet
	Dim xRow As Integer
	Dim calcState As Long
	Dim scrUpdateState As Long
	Application.ScreenUpdating = False
	xRow                       = 1
	With Me
		.Columns(1).ClearContents
		.Cells(1, 1) = "INDEX"
		.Cells(1, 1).Name = "Index"
	End With
	For Each xSheet In Application.Worksheets
		If xSheet.Name <> Me.Name Then
			xRow                     = xRow + 1
			With xSheet
				.Range("A1").Name = "Start_" & xSheet.Index
				.Hyperlinks.Add anchor: = .Range("A1"), Address: = "", _
				SubAddress:             = "Index", TextToDisplay: = "Back to Index"
			End With
			Me.Hyperlinks.Add anchor: = Me.Cells(xRow, 1), Address: = "", _
			SubAddress: = "Start_" & xSheet.Index, TextToDisplay: = xSheet.Name
		End If
	Next
	Application.ScreenUpdating = True
End Sub

4. κλικ τρέξιμο or F5 για να εκτελέσετε το VBA, τώρα δημιουργείται μια δυναμική λίστα ονομάτων φύλλων εργασίας.
doc-dynamical-worksheetname-list-8

Συμβουλή:

1. Όταν το φύλλο εργασίας του βιβλίου εργασίας διαγραφεί ή εισαχθεί, η λίστα ονομάτων φύλλου εργασίας θα αλλάξει αυτόματα.

2. Μπορείτε να κάνετε κλικ στο όνομα φύλλου της λίστας ονομάτων για να μεταβείτε στο φύλλο.

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


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

Kutools για Excel, με περισσότερα από 300 εύχρηστες λειτουργίες, διευκολύνει τις εργασίες σας. 

Μετά το δωρεάν εγκατάσταση Kutools για Excel, κάντε τα παρακάτω:

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

doc δυναμικό φύλλο εργασίας όνομα 17

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

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

3. κλικ Ok. Τώρα μπορείτε να δείτε τα ονόματα των φύλλων που αναφέρονται.
doc kutools δημιουργήστε μια λίστα με φύλλα 3

Συμβουλές:

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

2. Τα ονόματα λίστας ή φύλλων δεν μπορούν να αλλάξουν δυναμικά με την εισαγωγή ή διαγραφή των φύλλων.

3. Στην πραγματικότητα, μπορείτε επίσης να δημιουργήσετε μια λίστα κουμπιών για να συνδέσετε το σχετικό φύλλο, απλά πρέπει να το ελέγξετε Περιέχει κουμπιά και μακροεντολές στο διάλογο. δείτε screeshshot:
doc kutools δημιουργήστε μια λίστα με φύλλα 4

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


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

Μετά το δωρεάν εγκατάσταση Kutools για Excel, κάντε τα παρακάτω:

1. κλικ Kutools > Πλοήγηση. Κλίκ Βιβλίο & φύλλο εργασίας για να εμφανίσετε το βιβλίο εργασίας και το φύλλο εργασίας και μπορείτε να επιλέξετε ένα βιβλίο εργασίας, τότε τα φύλλα εργασίας του θα εμφανιστούν στο Πλοήγηση τζάμι. Δείτε το στιγμιότυπο οθόνης:
παράθυρο πλοήγησης doc 1   

Συμβουλή:

Όταν διαγράφονται ή προστίθενται φύλλα εργασίας, μπορείτε να κάνετε κλικ στο κουμπί ανανέωσης παράθυρο πλοήγησης doc 2 στο Πλοήγησηn παράθυρο για να ανανεώσετε τα ονόματα του φύλλου εργασίας.

Κάντε κλικ εδώ για περισσότερες πληροφορίες σχετικά με την πλοήγηση.

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

Δημοφιλή χαρακτηριστικά: Εύρεση, επισήμανση ή αναγνώριση διπλότυπων   |  Διαγραφή κενών γραμμών   |  Συνδυάστε στήλες ή κελιά χωρίς απώλεια δεδομένων   |   Γύρος χωρίς φόρμουλα ...
Σούπερ Αναζήτηση: 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 (13)
No ratings yet. Be the first to rate!
This comment was minimized by the moderator on the site
Hallo. hoe zou ik dit kunnen doen om hetzelfde te doen maar met een welbepaade cel van verschillende werkbladen. Bv. een leeg tabblad. mijn andere werkbladen hebben allemaal dezelfde lay-out, maar in iedere cel een andere tekst. Nu zou ik graag in mijn leeg tabblad in Cel A1 de gegevens terugvinden van tabblad1 cel B3. Maar dan zou ik graag in Cel A2 de gegevens terugvinden van tabblad 2 cel 3. En zou naar beneden en dit in een beweging. We kunnen allemaal afzonderlijk doen, maar als er 500 werkbladen zijn, is dit onmogelijk.

Merci voor den input.
This comment was minimized by the moderator on the site
Hi, I guess you want to list all same cells across multiple sheets, if so, there are two tutorials may help you. Please visit:
How to reference same cell from multiple worksheets in Excel?
How to create a list from same cells across multiple sheets in Excel?
Hope it is helpful.
This comment was minimized by the moderator on the site
Em português brasileiro, GET.WORKBOOK é identificado como uma função no Gerenciador de Nomes para criar o nome "Sheets", mas ao referenciar "Sheets" numa célula, aparece o erro "#NOME?". Tentei várias vezes, inclusive com a sugestão de traduzir GET.WORKBOOK para OBTER.LIVRO mas não funcionou.
This comment was minimized by the moderator on the site
Hi, try this: =SUBSTITUIR(INFO.PASTA.TRABALHO(1),"["&INFO.PASTA.TRABALHO(16)&"]","")
This comment was minimized by the moderator on the site
Thanks for this helpful info. I created a dynamic list with VBA code in the Index tab. I found that it only updates when I click back to the Index tab, though. Is there a way to ensure it auto updates as soon as a new tab is created? I refer to the tab names elsewhere in the workbook and others will be using it so I'm trying to make it seamless. Thank you!
This comment was minimized by the moderator on the site
Sorry, I do not find that code can finish your job.
This comment was minimized by the moderator on the site
Or you can simply rightClick either the left or right tab-horizontal-scroll arrow at the bottomLeft, and then click the worksheet name (from the simple vertical list) that you want to jump to.
This comment was minimized by the moderator on the site
Just what I needed and worked perfectly. Thank you!
This comment was minimized by the moderator on the site
Defining the name "Sheets" in the define name DOES NOT WORK. The "refers to" box will not save the formula as typed and converts it to a text string.
This comment was minimized by the moderator on the site
how can I use this code to create the list of worksheets in horizontal order instead of vertical? is it possible?
This comment was minimized by the moderator on the site
Thank you. It is very useful. :D
This comment was minimized by the moderator on the site
How can i remove the links to each sheets and how to not include the "sheet1" and "Index" sheet? Private Sub Worksheet_Activate() 'Updateby20150305 Dim xSheet As Worksheet Dim xRow As Integer Dim calcState As Long Dim scrUpdateState As Long Application.ScreenUpdating = False xRow = 1 With Me .Columns(1).ClearContents .Cells(1, 1) = "INDEX" .Cells(1, 1).Name = "Index" End With For Each xSheet In Application.Worksheets If xSheet.Name Me.Name Then xRow = xRow + 1 With xSheet .Range("A1").Name = "Start_" & xSheet.Index .Hyperlinks.Add anchor: = .Range("A1"), Address: = "", _ SubAddress: = "Index", TextToDisplay: = "Back to Index" End With Me.Hyperlinks.Add anchor: = Me.Cells(xRow, 1), Address: = "", _ SubAddress: = "Start_" & xSheet.Index, TextToDisplay: = xSheet.Name End If Next Application.ScreenUpdating = True End Sub
This comment was minimized by the moderator on the site
How would I go about editing this code to include a checkbox to the left of the link that I could use to hide rows on a cover sheet? Also how could I insert a row on the worksheets below A1 to have the return to index link show up there?
There are no comments posted here yet
Please leave your comments in English
Posting as Guest
×
Rate this post:
0   Characters
Suggested Locations