Salt la conținutul principal

Cum să redenumiți foile pe baza valorilor celulelor (din listă) în Excel?

Redenumirea unei singure foi de lucru în Excel se face de obicei făcând clic dreapta pe fila foii și alegând „Redenumire” din meniul contextual. Cu toate acestea, dacă trebuie să redenumiți mai multe foi de lucru folosind valori din celulele specificate sau dacă doriți să denumiți dinamic o foaie de lucru pe baza valorii unei anumite celule, există mai multe metode pe care le puteți utiliza. Acest articol vă va ghida prin aceste tehnici, făcând procesul simplu și eficient.


Redenumiți dinamic o foaie din valoarea celulei cu VBA

Putem redenumi dinamic o foaie de lucru din valoarea unei anumite celule cu VBA în Excel și puteți face după cum urmează:

Pasul 1: Faceți clic dreapta pe numele foii de lucru pe care o veți denumi dinamic după o valoare a celulei și selectați Afișați codul din meniul cu clic dreapta.

Pasul 2: În deschidere Microsoft Visual Basic pentru aplicații fereastră, lipiți următorul cod VBA în fereastra modulului.

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

Sfat: Acest VBA redenumește în mod dinamic foaia de lucru pe baza valorii din celula A1, puteți schimba „A1” în alte celule în funcție de nevoile dvs.

Pasul 3: Salvați codul VBA și închideți Microsoft Visual Basic pentru aplicație fereastră.

Apoi veți vedea că numele foii este modificat dinamic în funcție de valoarea specificată a celulei.

note:

  • Dacă celula specificată este goală, foaia de lucru nu va fi redenumită.
  • Foaia de lucru va fi redenumită de fiecare dată când modificați valoarea din celula specificată.
  • Dacă introduceți caractere speciale în celula specificată, cum ar fi *, va apărea un avertisment de eroare.

Redenumiți mai multe foi pe baza valorilor celulelor din foile corespunzătoare

Metoda descrisă mai sus permite redenumirea câte o foaie la un moment dat. Cu toate acestea, prin utilizarea Redenumiți mai multe foi de lucru caracteristică a Kutools pentru Excel, puteți redenumi rapid toate foile sau mai multe foi în funcție de valoarea unei celule specificate din fiecare foaie corespunzătoare. De exemplu, puteți redenumi fiecare foaie pentru a se potrivi cu valoarea găsită în celula A1 a acelei foi.

Kutools pentru Excel - Dotat cu peste 300 de instrumente esențiale pentru Excel. Bucurați-vă de o încercare GRATUITĂ completă de 30 de zile, fără card de credit necesar! Descarcă acum!

  1. Clic Kutools Plus > Fisa de lucru > Redenumiți foile de lucru. Vedeți captura de ecran:
  2. În deschidere Redenumiți mai multe foi de lucru caseta de dialog, procedați după cum urmează:
    1. În Foi de lucru listă, verificați foile de lucru pe care le veți redenumi.
    2. În Redenumiți opțiunile secțiune, verificați Înlocuiți numele foii originale opțiune.
    3. În Nume foaie de lucru nouă secțiunea, vă rugăm să verificați Redenumiți foile de lucru cu o celulă specifică opțiunea și specificați celula al cărei conținut veți redenumi foaia corespunzătoare.
    4. Apasă pe Ok butonul.

Și acum toate foile bifate sunt redenumite în funcție de celula specificată a fiecărei foi. Vedeți captura de ecran:

Notă: Doriți să accesați Redenumiți mai multe foi de lucru caracteristică? Descarca Kutools pentru Excel acum! Dincolo de aceasta, Kutools se mândrește cu o multitudine de alte 300 de alte funcții și oferă o perioadă de încercare gratuită de 30 de zile. Nu așteptați, încercați azi!


Redenumiți mai multe foi din lista specificată

Kutools pentru Excel Redenumiți mai multe foi de lucru caracteristica acceptă și redenumirea mai multor foi pe baza valorilor celulelor dintr-o listă specificată.

Kutools pentru Excel - Dotat cu peste 300 de instrumente esențiale pentru Excel. Bucurați-vă de o încercare GRATUITĂ completă de 30 de zile, fără card de credit necesar! Descarcă acum!

  1. Clic Kutools Plus > Fisa de lucru > Redenumiți foile de lucru.
  2. În deschidere Redenumiți mai multe foi de lucru caseta de dialog, configurați după cum urmează:
    1. În Foi de lucru listă, selectați foile de lucru pe care le veți redenumi.
    2. În Redenumiți opțiunile secțiune, verificați Înlocuiți numele foii originale opțiune.
    3. În Nume foaie de lucru nouă secțiune, verificați Din gama specifică și faceți clic pe  butonul pentru a deschide al doilea Redenumiți mai multe foi de lucru caseta de dialog (vezi captura de ecran din dreapta). Apoi, selectați lista de celule pe care le veți redenumi după valorile lor și faceți clic pe OK butonul.
    4. Apasă pe Ok pentru a aplica redenumirea.

Apoi veți vedea că numele tuturor foilor de lucru verificate sunt înlocuite cu valorile celulelor din lista specificată. Vezi mai jos captura de ecran:

Notă: Doriți să accesați Redenumiți mai multe foi de lucru caracteristică? Descarca Kutools pentru Excel acum! Dincolo de aceasta, Kutools se mândrește cu o multitudine de alte 300 de alte funcții și oferă o perioadă de încercare gratuită de 30 de zile. Nu așteptați, încercați azi!


Demo: foi de nume pe baza valorilor celulei (din listă) în Excel


Kutools pentru Excel: Peste 300 de instrumente la îndemână la îndemână! Începeți astăzi perioada de încercare gratuită de 30 de zile, fără limitări ale funcțiilor. Descarcă acum!

Legate de articole:

Cele mai bune instrumente de productivitate de birou

🤖 Kutools AI Aide: Revoluționați analiza datelor pe baza: Execuție inteligentă   |  Generați codul  |  Creați formule personalizate  |  Analizați datele și generați diagrame  |  Invocați funcțiile Kutools...
Caracteristici populare: Găsiți, evidențiați sau identificați duplicatele   |  Ștergeți rândurile goale   |  Combinați coloane sau celule fără a pierde date   |   Rundă fără Formula ...
Super căutare: VLookup cu mai multe criterii    VLookup cu valori multiple  |   VLookup pe mai multe foi   |   Căutare fuzzy ....
Listă derulantă avansată: Creați rapid o listă derulantă   |  Listă drop-down dependentă   |  Listă derulantă cu selectare multiplă ....
Manager de coloane: Adăugați un număr specific de coloane  |  Mutați coloanele  |  Comutați starea vizibilității coloanelor ascunse  |  Comparați intervale și coloane ...
Caracteristici prezentate: Focus pe grilă   |  Vedere de proiectare   |   Big Formula Bar    Manager registru de lucru și foi   |  Biblioteca de resurse (Text automat)   |  Data Picker   |  Combinați foi de lucru   |  Criptare/Decriptare celule    Trimiteți e-mailuri după listă   |  Super Filtru   |   Filtru special (filtrează bold/italic/barat...) ...
Top 15 seturi de instrumente12 Text Instrumente (Adăuga text, Eliminați caractere,...)   |   50+ Diagramă Tipuri de (Gantt Chart,...)   |   40+ Practic Formule (Calculați vârsta pe baza zilei de naștere,...)   |   19 inserare Instrumente (Introduceți codul QR, Inserați imaginea din cale,...)   |   12 Convertire Instrumente (Numere la cuvinte, conversie valutara,...)   |   7 Merge & Split Instrumente (Rânduri combinate avansate, Celule divizate,...)   |   ... și altele

Îmbunătățiți-vă abilitățile Excel cu Kutools pentru Excel și experimentați eficiența ca niciodată. Kutools pentru Excel oferă peste 300 de funcții avansate pentru a crește productivitatea și a economisi timp.  Faceți clic aici pentru a obține funcția de care aveți cea mai mare nevoie...

Descriere


Fila Office aduce interfața cu file în Office și vă face munca mult mai ușoară

  • Activați editarea și citirea cu file în Word, Excel, PowerPoint, Publisher, Access, Visio și Project.
  • Deschideți și creați mai multe documente în filele noi ale aceleiași ferestre, mai degrabă decât în ​​ferestrele noi.
  • Vă crește productivitatea cu 50% și reduce sute de clicuri de mouse pentru dvs. în fiecare zi!
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