Přejít k hlavnímu obsahu

Jak přejmenovat listy na základě hodnot buněk (ze seznamu) v Excelu?

Autor: Kelly Naposledy změněno: 2023-11-17

Přejmenování jednoho listu v Excelu se obvykle provádí kliknutím pravým tlačítkem myši na záložku listu a výběrem "Přejmenovat" z kontextové nabídky. Pokud však potřebujete přejmenovat více listů pomocí hodnot ze zadaných buněk nebo chcete dynamicky pojmenovat list na základě hodnoty konkrétní buňky, můžete použít několik metod. Tento článek vás provede těmito technikami, díky čemuž bude proces přímočarý a efektivní.


Dynamicky přejmenujte list z hodnoty buňky pomocí jazyka VBA

Pomocí jazyka VBA v Excelu můžeme dynamicky přejmenovat list z určité hodnoty buňky a můžete postupovat následovně:

Krok 1: Klikněte pravým tlačítkem na název listu listu, který dynamicky pojmenujete podle hodnoty buňky, a vyberte Zobrazit kód z nabídky pravého tlačítka myši.

Krok 2: V otvoru Microsoft Visual Basic pro aplikace okno, vložte následující kód VBA do okna modulu.

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

Tip: Tento VBA dynamicky přejmenuje list na základě hodnoty v buňce A1, můžete změnit "A1" na jiné buňky podle vašich potřeb.

Krok 3: Uložte kód VBA a zavřete Microsoft Visual Basic pro aplikaci okno.

Pak uvidíte, že se název listu dynamicky mění na základě zadané hodnoty buňky.

Poznámky:

  • Pokud je zadaná buňka prázdná, list se nepřejmenuje.
  • List bude přejmenován pokaždé, když změníte hodnotu v zadané buňce.
  • Pokud do zadané buňky zadáte speciální znaky, například *, zobrazí se upozornění na chybu.

Přejmenujte více listů na základě hodnot buněk v odpovídajících listech

Výše popsaná metoda umožňuje přejmenování jednoho listu najednou. Nicméně pomocí Přejmenujte více pracovních listů vlastnost Kutools pro Excel, můžete rychle přejmenovat všechny nebo více listů na základě hodnoty zadané buňky v každém odpovídajícím listu. Můžete například přejmenovat každý list tak, aby odpovídal hodnotě nalezené v buňce A1 daného listu.

Kutools pro Excel - Baleno s více než 300 základními nástroji pro Excel. Užijte si plnohodnotnou 30denní zkušební verzi ZDARMA bez nutnosti kreditní karty! Stáhnout nyní!

  1. klikněte Kutools Plus > Pracovní list > Přejmenujte pracovní listy. Viz snímek obrazovky:
  2. V otvoru Přejmenujte více pracovních listů v dialogovém okně postupujte takto:
    1. v Pracovní listy seznam, zkontrolujte listy, které budete přejmenovávat.
    2. v Přejmenovat možnosti zkontrolujte část Nahraďte původní název listu volba.
    3. v Nový název listu sekce, prosím zkontrolujte Přejmenujte listy s konkrétní buňkou a zadejte buňku, jejíž obsah přejmenujete odpovídající list.
    4. Klepněte na tlačítko Ok .

A nyní jsou všechny zaškrtnuté listy přejmenovány na základě zadané buňky každého listu. Viz snímek obrazovky:

Poznámka: Chcete získat přístup k Přejmenujte více pracovních listů Vlastnosti? Stažení Kutools pro Excel Nyní! Kromě toho se Kutools může pochlubit nesčetným množstvím více než 300 dalších funkcí a nabízí 30denní bezplatnou zkušební verzi. Nečekejte a vyzkoušejte to ještě dnes!


Přejmenujte více listů ze zadaného seznamu

Kutools pro Excel Přejmenujte více pracovních listů funkce také podporuje přejmenování více listů na základě hodnot buněk v určeném seznamu.

Kutools pro Excel - Baleno s více než 300 základními nástroji pro Excel. Užijte si plnohodnotnou 30denní zkušební verzi ZDARMA bez nutnosti kreditní karty! Stáhnout nyní!

  1. klikněte Kutools Plus > Pracovní list > Přejmenujte pracovní listy.
  2. V otvoru Přejmenujte více pracovních listů dialogovém okně nakonfigurujte následovně:
    1. v Pracovní listy seznamu, vyberte listy, které chcete přejmenovat.
    2. v Přejmenovat možnosti zkontrolujte část Nahraďte původní název listu volba.
    3. v Nový název listu zkontrolujte část Ze specifického rozsahu a klepněte na tlačítko  tlačítko pro otevření druhého Přejmenujte více pracovních listů dialogové okno (viz snímek obrazovky vpravo). Poté vyberte seznam buněk, které přejmenujete podle jejich hodnot, a klepněte na OK .
    4. Klepněte na tlačítko Ok tlačítko pro použití přejmenování.

Poté uvidíte, že názvy všech zaškrtnutých listů budou nahrazeny hodnotami buněk v zadaném seznamu. Viz níže uvedený snímek obrazovky:

Poznámka: Chcete získat přístup k Přejmenujte více pracovních listů Vlastnosti? Stažení Kutools pro Excel Nyní! Kromě toho se Kutools může pochlubit nesčetným množstvím více než 300 dalších funkcí a nabízí 30denní bezplatnou zkušební verzi. Nečekejte a vyzkoušejte to ještě dnes!


Ukázka: jmenné listy založené na hodnotách buněk (ze seznamu) v aplikaci Excel


Kutools pro Excel: Více než 300 užitečných nástrojů na dosah ruky! Začněte svou 30denní bezplatnou zkušební verzi bez omezení funkcí ještě dnes. Stáhnout nyní!

Související články:

Nejlepší nástroje pro produktivitu v kanceláři

🤖 Kutools AI asistent: Revoluční analýza dat založená na: Inteligentní provedení   |  Generovat kód  |  Vytvořte vlastní vzorce  |  Analyzujte data a generujte grafy  |  Vyvolejte funkce Kutools...
Populární funkce: Najít, zvýraznit nebo identifikovat duplikáty   |  Odstranit prázdné řádky   |  Kombinujte sloupce nebo buňky bez ztráty dat   |   Kolo bez vzorce ...
Super vyhledávání: Více kritérií VLookup    VLookup s více hodnotami  |   VLookup na více listech   |   Fuzzy vyhledávání ....
Pokročilý rozevírací seznam: Rychle vytvořte rozevírací seznam   |  Závislý rozbalovací seznam   |  Vícenásobný výběr rozevíracího seznamu ....
Správce sloupců: Přidejte konkrétní počet sloupců  |  Přesunout sloupce  |  Přepnout stav viditelnosti skrytých sloupců  |  Porovnejte rozsahy a sloupce ...
Doporučené funkce: Zaměření mřížky   |  Návrhové zobrazení   |   Velký Formula Bar    Správce sešitů a listů   |  Knihovna zdrojů (Automatický text)   |  Výběr data   |  Zkombinujte pracovní listy   |  Šifrovat/dešifrovat buňky    Odesílat e-maily podle seznamu   |  Super filtr   |   Speciální filtr (filtr tučné/kurzíva/přeškrtnuté...) ...
Top 15 sad nástrojů12 Text Tools (doplnit text, Odebrat znaky, ...)   |   50+ Graf Typ nemovitosti (Ganttův diagram, ...)   |   40+ Praktické Vzorce (Vypočítejte věk na základě narozenin, ...)   |   19 Vložení Tools (Vložte QR kód, Vložit obrázek z cesty, ...)   |   12 Konverze Tools (Čísla na slova, Přepočet měny, ...)   |   7 Sloučit a rozdělit Tools (Pokročilé kombinování řádků, Rozdělit buňky, ...)   |   ... a více

Rozšiřte své dovednosti Excel pomocí Kutools pro Excel a zažijte efektivitu jako nikdy předtím. Kutools for Excel nabízí více než 300 pokročilých funkcí pro zvýšení produktivity a úsporu času.  Kliknutím sem získáte funkci, kterou nejvíce potřebujete...

Popis


Office Tab přináší do Office rozhraní s kartami a usnadňuje vám práci

  • Povolte úpravy a čtení na kartách ve Wordu, Excelu, PowerPointu, Publisher, Access, Visio a Project.
  • Otevřete a vytvořte více dokumentů na nových kartách ve stejném okně, nikoli v nových oknech.
  • Zvyšuje vaši produktivitu o 50%a snižuje stovky kliknutí myší každý den!
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
Leave your comments
Posting as Guest
×
Rate this post:
0   Characters
Suggested Locations