Note: The other languages of the website are Google-translated. Back to English

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

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

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


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

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

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

2. Αντιγράψτε και επικολλήστε τον παρακάτω κώδικα στο παράθυρο Code και, στη συνέχεια, πατήστε άλλος + Q ταυτόχρονα για να κλείσετε το παράθυρο της Microsoft Visual Basic for Applications.

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

Private Sub Worksheet_Change(ByVal Target As Range)
'Updated by Extendoffice 20230130
    On Error Resume Next
    If Not Intersect(Target, Range("A1")) Is Nothing Then
        ActiveSheet.Name = ActiveSheet.Range("A1")
    ElseIf Not Intersect(Target.Dependents, Range("A1")) Then
        ActiveSheet.Name = ActiveSheet.Range("A1")
    End If
End Sub

Note: Στον κώδικα, το A1 είναι το κελί που περιέχει την τιμή που πρέπει να χρησιμοποιήσετε ως όνομα φύλλου. Μπορείτε να το αλλάξετε όπως χρειάζεστε.

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


Κάντε το όνομα της καρτέλας φύλλου ίσο με την τιμή κελιού με το Kutools για Excel

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

Πριν από την εφαρμογή Kutools για Excel, σας παρακαλούμε κατεβάστε και εγκαταστήστε το πρώτα.

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

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

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

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

Notes:

1. Μπορείτε να χρησιμοποιήσετε το Φίλτρο λειτουργία για να φιλτράρετε εύκολα το απαιτούμενο φύλλο εργασίας, εάν υπάρχουν πολλά φύλλα εργασίας.
2. Εάν θέλετε να μετονομάσετε πολλά φύλλα εργασίας με μια συγκεκριμένη τιμή κελιού σε κάθε φύλλο. Για παράδειγμα, το φύλλο 1 θα είναι ίσο με την τιμή του κελιού Α1 και το φύλλο 2 θα είναι επίσης ίσο με την τιμή του κελιού Α1. Επιλέξτε φύλλα εργασίας στο Φύλλα εργασίας πλαίσιο και, στη συνέχεια, επιλέξτε το Μετονομασία φύλλων εργασίας με συγκεκριμένο κελί επιλογή και καθορίστε το κελί A1 στο πλαίσιο.

3. Το όνομα του φύλλου δεν θα αλλάξει αυτόματα με την αλλαγή της τιμής του κελιού.

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


Κάντε το όνομα της καρτέλας φύλλου ίσο με την τιμή κελιού με το Kutools για Excel


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

Το Kutools για Excel λύνει τα περισσότερα από τα προβλήματά σας και αυξάνει την παραγωγικότητά σας κατά 80%

  • Επαναχρησιμοποίηση: Εισαγάγετε γρήγορα σύνθετοι τύποι, γραφήματα και οτιδήποτε έχετε χρησιμοποιήσει στο παρελθόν. Κρυπτογράφηση κυττάρων με κωδικό πρόσβασης Δημιουργία λίστας αλληλογραφίας και στείλτε email ...
  • Super Formula Bar (επεξεργαστείτε εύκολα πολλές γραμμές κειμένου και τύπου). Διάταξη ανάγνωσης (εύκολη ανάγνωση και επεξεργασία μεγάλου αριθμού κελιών). Επικόλληση σε φιλτραρισμένο εύρος...
  • Συγχώνευση κελιών / σειρών / στηλών χωρίς απώλεια δεδομένων · Περιεχόμενο διαχωρισμού κελιών Συνδυάστε διπλές σειρές / στήλες... Αποτροπή διπλών κυττάρων; Συγκρίνετε τα εύρη...
  • Επιλέξτε Διπλότυπο ή Μοναδικό Σειρές; Επιλέξτε Κενές σειρές (όλα τα κελιά είναι κενά). Σούπερ εύρεση και ασαφής εύρεση σε πολλά βιβλία εργασίας. Τυχαία επιλογή ...
  • Ακριβές αντίγραφο Πολλαπλά κελιά χωρίς αλλαγή της αναφοράς τύπου. Αυτόματη δημιουργία αναφορών σε πολλαπλά φύλλα? Εισαγωγή κουκκίδων, Πλαίσια ελέγχου και άλλα ...
  • Εξαγωγή κειμένου, Προσθήκη κειμένου, Κατάργηση κατά θέση, Αφαιρέστε το διάστημα; Δημιουργία και εκτύπωση υποσύνολων σελιδοποίησης. Μετατροπή περιεχομένου και σχολίων μεταξύ κελιών...
  • Σούπερ φίλτρο (αποθηκεύστε και εφαρμόστε σχήματα φίλτρων σε άλλα φύλλα). Προηγμένη ταξινόμηση ανά μήνα / εβδομάδα / ημέρα, συχνότητα και άλλα. Ειδικό φίλτρο με έντονη, πλάγια ...
  • Συνδυάστε βιβλία εργασίας και φύλλα εργασίας; Συγχώνευση πινάκων βάσει βασικών στηλών. Διαχωρίστε τα δεδομένα σε πολλά φύλλα; Μαζική μετατροπή xls, xlsx και PDF...
  • Περισσότερα από 300 ισχυρά χαρακτηριστικά. Υποστηρίζει Office / Excel 2007-2021 και 365. Υποστηρίζει όλες τις γλώσσες. Εύκολη ανάπτυξη στην επιχείρηση ή τον οργανισμό σας. Πλήρεις δυνατότητες δωρεάν δοκιμής 30 ημερών. Εγγύηση επιστροφής χρημάτων 60 ημερών.
kte καρτέλα 201905

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

  • Ενεργοποίηση επεξεργασίας και ανάγνωσης καρτελών σε Word, Excel, PowerPoint, Publisher, Access, Visio και Project.
  • Ανοίξτε και δημιουργήστε πολλά έγγραφα σε νέες καρτέλες του ίδιου παραθύρου και όχι σε νέα παράθυρα.
  • Αυξάνει την παραγωγικότητά σας κατά 50% και μειώνει εκατοντάδες κλικ του ποντικιού για εσάς κάθε μέρα!
κάτω μέρος γραφείου
Σχόλια (28)
Δεν υπάρχουν ακόμη βαθμολογίες. Γίνε ο πρώτος που θα αξιολογήσετε!
Αυτό το σχόλιο ελαχιστοποιήθηκε από τον συντονιστή του ιστότοπου
Το επικόλλησα σύμφωνα με τις οδηγίες, αλλά δεν εμφανίστηκε στη λίστα με τις διαθέσιμες μακροεντολές μου. Προσπάθησα να το τρέξω χειροκίνητα πληκτρολογώντας το όνομα Macro. Όταν προσπάθησε να εκτελέσει τη μακροεντολή, εμφανίστηκε ένα μήνυμα σφάλματος "Δεν υπάρχει προαιρετικό όρισμα".

Προσωπικό φύλλο εργασίας Sub_change (ByVal Target As Range)
If Not Intersect(Target, Range("A1")) Is Nothing then
ActiveSheet.Name = ActiveSheet.Range("A1")
End If
Sub End

Έχει τρέξει κάποιος άλλος αυτόν τον κωδικό και είχε το ίδιο πρόβλημα;

Ως δοκιμή έτρεξα πιο βασικό κώδικα και λειτούργησε καλά, επομένως η τιμή στο "A1" δεν προκαλεί το πρόβλημα. Όταν εκτελώ τον παρακάτω κώδικα, μπορώ να δω το όνομα της μακροεντολής "myTabName" στη λίστα μακροεντολών. Ο παραπάνω κώδικας δεν εμφανίζεται και υποθέτω ότι αυτό οφείλεται στο όρισμα bug/missing.

Sub myTabName()
ActiveSheet.Name = ActiveSheet.Range("A1")
Sub End

Ευχαριστώ για τη βοήθειά σας, καθώς θα ήθελα πολύ να χρησιμοποιήσω τον κώδικα όπως προορίζεται για την αυτοματοποίηση των αλλαγών ονομάτων καρτελών με βάση μια τιμή κελιού..
Αυτό το σχόλιο ελαχιστοποιήθηκε από τον συντονιστή του ιστότοπου
Αγαπητέ Jason,
Ο κώδικας λειτουργεί καλά στην περίπτωσή μου. Μπορείτε να δώσετε την έκδοση του Office; Σας ευχαριστούμε για το σχόλιό σας.
Αυτό το σχόλιο ελαχιστοποιήθηκε από τον συντονιστή του ιστότοπου
Γεια σου Crystal,

Δεν δούλεψε και σε μένα, μπορεί να οφείλεται στο ότι το κελί που αναφέρομαι είναι τύπος;

Ευχαριστώ για την απάντηση
Αυτό το σχόλιο ελαχιστοποιήθηκε από τον συντονιστή του ιστότοπου
Γεια Μέι,

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

Private Sub Worksheet_Change(ByVal Target As Range)
'Updated by Extendoffice 20230130
    On Error Resume Next
    If Not Intersect(Target, Range("A1")) Is Nothing Then
        ActiveSheet.Name = ActiveSheet.Range("A1")
    ElseIf Not Intersect(Target.Dependents, Range("A1")) Then
        ActiveSheet.Name = ActiveSheet.Range("A1")
    End If
End Sub
Αυτό το σχόλιο ελαχιστοποιήθηκε από τον συντονιστή του ιστότοπου
Βάζω αυτόν τον κωδικό να λειτουργεί, αλλά δεν ενημερώνει αυτόματα το όνομα της καρτέλας όταν το κελί από το οποίο αντλεί το όνομα εάν αναφέρεται σε άλλο κελί (και αυτό το κελί αλλάζει).


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

Προσωπικό φύλλο εργασίας Sub_change (ByVal Target As Range)
Dim xRg ως εύρος, xCell ως εύρος
On Error Συνέχιση Επόμενη
If Not Intersect(Target, Range("A1")) Is Nothing then
ActiveSheet.Name = ActiveSheet.Range("A1")
End If
Application.EnableEvents = False
Ορισμός xRg = ActiveSheet.Range("A1").Προηγούμενα
Αν δεν είναι το xRg είναι τίποτα τότε
Για κάθε xCell σε xRg
ActiveSheet.Name = ActiveSheet.Range("A1")
Επόμενο
End If
Application.EnableEvents = True
Sub End
Αυτό το σχόλιο ελαχιστοποιήθηκε από τον συντονιστή του ιστότοπου
Ακόμα δεν λειτουργεί. Έχω το ίδιο πρόβλημα με τον jJJ. crystal: Εμφανίζεται ολόκληρος ο κωδικός στην απάντησή σας;
Η τελευταία γραμμή που εμφανίζεται στο σχόλιό σας είναι "Set xRg = ActiveSheet.Range("A1"). Precedents"
Αυτό το σχόλιο ελαχιστοποιήθηκε από τον συντονιστή του ιστότοπου
Αγαπητέ JAS,
Κάντε κλικ στο κουμπί Διαβάστε περισσότερα στη δεξιά πλευρά του σχολίου για να εμφανιστεί ολόκληρο το σχόλιο.
Αυτό το σχόλιο ελαχιστοποιήθηκε από τον συντονιστή του ιστότοπου
Ακόμα έχετε το ίδιο θέμα.

Έχω το A1 του νέου φύλλου να δείχνει σε άλλο κελί σε διαφορετική καρτέλα. Ενημερώνεται την πρώτη φορά (όταν εκτελείτε), αλλά μετά δεν αλλάζει κατά την επεξεργασία του κύριου κελιού
Αυτό το σχόλιο ελαχιστοποιήθηκε από τον συντονιστή του ιστότοπου
Ιδιωτικό δευτερεύον φύλλο εργασίας_SelectionChange(ByVal Target As Excel.Range)
Ορισμός στόχου = εύρος ("A1")
Εάν Στόχος = "" Τότε βγείτε από το Sub
Σε σφάλμα GoTo Badname
ActiveSheet.Name = Left(Target, 31)
Έξοδος Sub
Κακό όνομα:
MsgBox "Παρακαλώ αναθεωρήστε την καταχώριση στο A1." & Chr(13) _
& "Φαίνεται να περιέχει ένα ή περισσότερα " & Chr(13) _
& "παράνομοι χαρακτήρες." & Chr(13)
Εύρος ("A1"). Ενεργοποίηση
Sub End
Αυτό το σχόλιο ελαχιστοποιήθηκε από τον συντονιστή του ιστότοπου
Το θέμα παραμένει το ίδιο, αλλάζει την πρώτη φορά. όταν συνδέω αυτό το κελί σε άλλο φύλλο και το αλλάζω, δεν το αλλάζει αυτόματα
Αυτό το σχόλιο ελαχιστοποιήθηκε από τον συντονιστή του ιστότοπου
Πρέπει να χρησιμοποιήσω αυτόν τον κωδικό, αλλά δεν έχω εισαγάγει ποτέ τον κωδικό vba. Οποιαδήποτε καθοδήγηση θα εκτιμηθεί.
Αυτό το σχόλιο ελαχιστοποιήθηκε από τον συντονιστή του ιστότοπου
Αλλάζω ένα κελί σε μια κύρια λίστα, η οποία αλλάζει το κείμενο του κελιού σε ένα συγκεκριμένο κελί σε κάθε καρτέλα, στο οποίο ο κώδικας αναφέρεται ως όνομα καρτέλας, ΑΛΛΑ η καρτέλα δεν ενημερώνει το όνομά της αντίστοιχα.

---- δεν είναι δουλειά
Αυτό το σχόλιο ελαχιστοποιήθηκε από τον συντονιστή του ιστότοπου
Πήρα ολόκληρο τον κωδικό και λειτούργησε. Ευχαριστώ πολύ για τη βοήθειά σου!
Αυτό το σχόλιο ελαχιστοποιήθηκε από τον συντονιστή του ιστότοπου
Αγαπητέ JAS,
Χαίρομαι που μπόρεσα να βοηθήσω.
Αυτό το σχόλιο ελαχιστοποιήθηκε από τον συντονιστή του ιστότοπου
Μπορείτε μάλλον να χρησιμοποιήσετε απλή μακροεντολή



Sub Macro3 ()
Dim ευρετήριο ως ακέραιος αριθμός
Για ευρετήριο = 1 έως 18

Sheets(index).Name = Sheets(index).Range("A2").Τιμή

Επόμενο ευρετήριο



Sub End
Αυτό το σχόλιο ελαχιστοποιήθηκε από τον συντονιστή του ιστότοπου
Καλή μέρα,
Σας ευχαριστούμε για την κοινή χρήση.
Αυτό το σχόλιο ελαχιστοποιήθηκε από τον συντονιστή του ιστότοπου
Αυτό ακριβώς χρειάζομαι, αλλά χρειάζομαι την καρτέλα για να δημιουργήσω ξανά μια ημερομηνία και δεν λειτουργεί... Υποθέτω ότι αυτό έχει να κάνει με τον τρόπο με τον οποίο το excel εκτελεί την ημερομηνία και την ώρα, μπορεί κάποιος να προτείνει μια λύση;
Αυτό το σχόλιο ελαχιστοποιήθηκε από τον συντονιστή του ιστότοπου
Γεια σου Nick,
Το Excel δεν υποστηρίζει την πληκτρολόγηση του ονόματος φύλλου που περιέχει ειδικούς χαρακτήρες. Εάν η ημερομηνία που πληκτρολογείτε περιέχει τον χαρακτήρα /, δεν θα σας επιτρέψει να δημιουργήσετε το όνομα του φύλλου με αυτήν την ημερομηνία.
Αυτό το σχόλιο ελαχιστοποιήθηκε από τον συντονιστή του ιστότοπου
Πώς μπορώ να αναφέρω δύο κελιά. για παράδειγμα όνομα και αριθμός ταυτότητας;
Αυτό το σχόλιο ελαχιστοποιήθηκε από τον συντονιστή του ιστότοπου
Χρησιμοποιώ τον ακριβή κωδικό σας από τα παραπάνω για κώδικα VBA που λειτουργεί τέλεια για αυτό που χρειάζομαι. Ωστόσο, έχω μια δέσμη μακροεντολών σε ένα φύλλο που ονομάζεται Πρότυπο εργασίας που αντιγράφεται και επαναχρησιμοποιείται για κάθε νέα εργασία. Σχεδίασα όλες τις μακροεντολές μου με βάση μια νέα αντιγραμμένη έκδοση που ονομάζεται Πρότυπο εργασίας (2). Μόλις το όνομα του φύλλου αλλάξει στο νέο όνομα εργασίας, οι μακροεντολές δεν λειτουργούν πλέον και πρέπει να το κάνουν χειροκίνητα. Θα ήθελα να μπορώ να χρησιμοποιώ οποιοδήποτε από τα κουμπιά Macro μου ανά πάσα στιγμή αντί να τα χρησιμοποιώ μόνο πριν αλλάξω το όνομα του φύλλου.

Υπάρχει τρόπος ο κώδικας VBA να αναφέρεται πάντα στο όνομα του φύλλου πριν από την εκτέλεση των υπόλοιπων συναρτήσεων κώδικα;
Αυτό το σχόλιο ελαχιστοποιήθηκε από τον συντονιστή του ιστότοπου
Ποιος είναι ο υψηλότερος αριθμός φύλλων εργασίας που μπορούν να αλλάξουν ονόματα μέσω του Kutools Plus; γιατί το excel μου αφήνει μόνο 17 ονόματα να αλλάξω, και αυτό είναι
Αυτό το σχόλιο ελαχιστοποιήθηκε από τον συντονιστή του ιστότοπου
Αυτό λειτούργησε τέλεια για το πρώτο μου φύλλο εργασίας, αλλά όχι για το δεύτερο ή το τρίτο κ.λπ. (έχω περίπου 20 φύλλα εργασίας που χρειάζονται όλα αυτή τη λειτουργία). Μου διαφεύγει κάτι;
Αυτό το σχόλιο ελαχιστοποιήθηκε από τον συντονιστή του ιστότοπου
Γεια σου A Owen,
Αυτός ο κωδικός λειτουργεί μόνο για ένα φύλλο εργασίας ανά φορά. Συγγνώμη για την ταλαιπωρία.
Αυτό το σχόλιο ελαχιστοποιήθηκε από τον συντονιστή του ιστότοπου
Γεια σου Crystal,

Όταν επικολλώ τον κώδικά σας, εμφανίζεται με σφάλμα "Ο τύπος που ορίζεται από το χρήστη δεν έχει οριστεί";

Ευχαριστώ.
Αυτό το σχόλιο ελαχιστοποιήθηκε από τον συντονιστή του ιστότοπου
Γεια σου Tom J,
Βεβαιωθείτε ότι αυτές οι τρεις επιλογές είναι επιλεγμένες στο παράθυρο διαλόγου Αναφορές - VBAProject.
https://www.extendoffice.com/images/stories/comments/comment-picture-zxm/error.png
Αυτό το σχόλιο ελαχιστοποιήθηκε από τον συντονιστή του ιστότοπου
δούλεψε όμορφα!
Αυτό το σχόλιο ελαχιστοποιήθηκε από τον συντονιστή του ιστότοπου
Καλημέρα,
que voulez-vous dire par appuyer autre autre+q dans le code vba après avoir collé.
J'ai simplement fermé la page après avoir collé et ça ne marche pas
merci
Δεν υπάρχουν σχόλια δημοσιεύτηκε ακόμα
Αφήστε τα σχόλιά σας
Δημοσίευση ως επισκέπτης
×
Αξιολογήστε αυτήν την ανάρτηση:
0   Χαρακτήρες
Προτεινόμενες τοποθεσίες

Ακολουθησε μας

Πνευματικά δικαιώματα © 2009 - www.extendoffice.com. | Ολα τα δικαιώματα διατηρούνται. Τροφοδοτείται από ExtendOffice. | Sitemap
Το Microsoft και το λογότυπο του Office είναι εμπορικά σήματα ή σήματα κατατεθέντα της Microsoft Corporation στις Ηνωμένες Πολιτείες ή / και σε άλλες χώρες.
Προστατεύεται από το Sectigo SSL