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

Πώς να μετονομάσετε φύλλα με βάση τις τιμές κελιών (από τη λίστα) στο Excel;

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


Μετονομάστε δυναμικά ένα φύλλο από την τιμή κελιού με VBA

Μπορούμε να μετονομάσουμε δυναμικά ένα φύλλο εργασίας από την τιμή ενός συγκεκριμένου κελιού με VBA στο Excel και μπορείτε να κάνετε τα εξής:

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

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

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Set Target = Range("A1")
If Target = "" Then Exit Sub
Application.ActiveSheet.Name = VBA.Left(Target, 31)
Exit Sub
End Sub

Συμβουλή: Αυτό το VBA μετονομάζει δυναμικά το φύλλο εργασίας με βάση την τιμή στο κελί A1, μπορείτε να αλλάξετε το "A1" σε άλλα κελιά με βάση τις ανάγκες σας.

Βήμα 3: Αποθηκεύστε τον κωδικό VBA και κλείστε το Microsoft Visual Basic για εφαρμογή παράθυρο.

Στη συνέχεια, θα δείτε ότι το όνομα του φύλλου αλλάζει δυναμικά με βάση την καθορισμένη τιμή κελιού.

:

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

Μετονομάστε πολλά φύλλα με βάση τις τιμές κελιών στα αντίστοιχα φύλλα

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

Kutools για Excel - Συσκευασμένο με πάνω από 300 βασικά εργαλεία για το Excel. Απολαύστε μια ΔΩΡΕΑΝ δοκιμή 30 ημερών με πλήρεις δυνατότητες χωρίς να απαιτείται πιστωτική κάρτα! Κατέβασε τώρα!

  1. Πατήστε Kutools Plus > Φύλλο εργασίας > Μετονομασία φύλλων εργασίας. Δείτε το στιγμιότυπο οθόνης:
  2. Στο άνοιγμα Μετονομασία πολλών φύλλων εργασίας πλαίσιο διαλόγου, κάντε τα εξής:
    1. Στο Φύλλα εργασίας λίστα, ελέγξτε τα φύλλα εργασίας που θα μετονομάσετε.
    2. Στο Μετονομασία επιλογών , ελέγξτε το Αντικαταστήστε το αρχικό όνομα φύλλου επιλογή.
    3. Στο Νέο όνομα φύλλου εργασίας ενότητα, παρακαλούμε ελέγξτε το Μετονομασία φύλλων εργασίας με συγκεκριμένο κελί και καθορίστε το κελί με το περιεχόμενο του οποίου θα μετονομάσετε το αντίστοιχο φύλλο.
    4. Κάντε κλικ στο Ok κουμπί.

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

Σημείωση: Θέλετε να αποκτήσετε πρόσβαση στο Μετονομασία πολλών φύλλων εργασίας χαρακτηριστικό? Κατεβάστε Kutools για Excel τώρα! Πέρα από αυτό, το Kutools μπορεί να υπερηφανεύεται για μυριάδες 300+ άλλες δυνατότητες και προσφέρει μια δωρεάν δοκιμή 30 ημερών. Μην περιμένετε, δοκιμάστε το σήμερα!


Μετονομάστε πολλά φύλλα από την καθορισμένη λίστα

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

Kutools για Excel - Συσκευασμένο με πάνω από 300 βασικά εργαλεία για το Excel. Απολαύστε μια ΔΩΡΕΑΝ δοκιμή 30 ημερών με πλήρεις δυνατότητες χωρίς να απαιτείται πιστωτική κάρτα! Κατέβασε τώρα!

  1. Πατήστε Kutools Plus > Φύλλο εργασίας > Μετονομασία φύλλων εργασίας.
  2. Στο άνοιγμα Μετονομασία πολλών φύλλων εργασίας παράθυρο διαλόγου, ρυθμίστε τις παραμέτρους ως εξής:
    1. Στο Φύλλα εργασίας λίστα, επιλέξτε τα φύλλα εργασίας που θα μετονομάσετε.
    2. Στο Μετονομασία επιλογών , ελέγξτε το Αντικαταστήστε το αρχικό όνομα φύλλου επιλογή.
    3. Στο Νέο όνομα φύλλου εργασίας , ελέγξτε το Από το συγκεκριμένο εύρος και κάντε κλικ στο  κουμπί για να ανοίξετε το δεύτερο Μετονομασία πολλών φύλλων εργασίας παράθυρο διαλόγου (δείτε το δεξί στιγμιότυπο οθόνης). Στη συνέχεια, επιλέξτε τη λίστα των κελιών που θα μετονομάσετε με τις τιμές τους και κάντε κλικ στο OK κουμπί.
    4. Κάντε κλικ στο Ok κουμπί για να εφαρμόσετε τη μετονομασία.

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

Σημείωση: Θέλετε να αποκτήσετε πρόσβαση στο Μετονομασία πολλών φύλλων εργασίας χαρακτηριστικό? Κατεβάστε Kutools για Excel τώρα! Πέρα από αυτό, το Kutools μπορεί να υπερηφανεύεται για μυριάδες 300+ άλλες δυνατότητες και προσφέρει μια δωρεάν δοκιμή 30 ημερών. Μην περιμένετε, δοκιμάστε το σήμερα!


Επίδειξη: φύλλα ονομάτων με βάση τις τιμές κελιού (από τη λίστα) στο Excel


Kutools για Excel: Πάνω από 300 εύχρηστα εργαλεία στα χέρια σας! Ξεκινήστε τη δωρεάν δοκιμή 30 ημερών χωρίς περιορισμούς δυνατοτήτων σήμερα. Κατεβάστε τώρα!

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

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

Δημοφιλή χαρακτηριστικά: Εύρεση, επισήμανση ή αναγνώριση διπλότυπων   |  Διαγραφή κενών γραμμών   |  Συνδυάστε στήλες ή κελιά χωρίς απώλεια δεδομένων   |   Γύρος χωρίς φόρμουλα ...
Σούπερ Αναζήτηση: 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 (7)
No ratings yet. Be the first to rate!
This comment was minimized by the moderator on the site
Hi there, one question if i want to use the value of 2 cells (A1 & B1) what i have to change?
This comment was minimized by the moderator on the site
Hi there,

Please try the code below:
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    Dim sheetName As String
    
    If Not Intersect(Target, Me.Range("A1:B1")) Is Nothing Then
        sheetName = VBA.Left(Me.Range("A1").Value & Me.Range("B1").Value, 31)
        
        If sheetName <> "" Then
            Application.ActiveSheet.Name = sheetName
        End If
    End If
End Sub

Once you done pasting the code to the View Code window, please select the cell A1 or B1 to make the code run.

Amanda
This comment was minimized by the moderator on the site
Здравствуйте! Подскажите, пожалуйста, а как в Excel создать левую панель, в которой разместить названия листов? То есть перенести ярлыки листов влево (сейчас то они снизу)
This comment was minimized by the moderator on the site
This comment was minimized by the moderator on the site
I used the dynamic sheet name coding and functionally it works well, but I get the Runtime Error 1004 whenever I click inside a cell. Anyone have any info on how to correct this?


Thanks
This comment was minimized by the moderator on the site
This is awesome, thank you so much....
This comment was minimized by the moderator on the site
so I am trying to do this, but nothing is happening - my sheet names aren't changing, everything is the exact same. Do you know what I am doing wrong??
There are no comments posted here yet
Please leave your comments in English
Posting as Guest
×
Rate this post:
0   Characters
Suggested Locations