Hoppa till huvudinnehåll

Hur byter man namn på ark baserat på cellvärden (från lista) i Excel?

Att byta namn på ett enstaka kalkylblad i Excel görs vanligtvis genom att högerklicka på fliken på arket och välja "Byt namn" från snabbmenyn. Men om du behöver byta namn på flera kalkylblad med värden från specificerade celler, eller vill dynamiskt namnge ett kalkylblad baserat på en specifik cells värde, finns det flera metoder du kan använda. Den här artikeln guidar dig genom dessa tekniker, vilket gör processen enkel och effektiv.


Byt namn på ett ark från cellvärde dynamiskt med VBA

Vi kan dynamiskt byta namn på ett kalkylblad från en viss cells värde med VBA i Excel, och du kan göra så här:

Steg 1: Högerklicka på arknamnet på kalkylbladet som du dynamiskt kommer att namnge det med ett cellvärde och välj Visa kod från högerklickmenyn.

Steg 2: I öppningen Microsoft Visual Basic för applikationer fönstret, klistra in följande VBA-kod i modulfönstret.

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

Dricks: Denna VBA byter dynamiskt namn på kalkylbladet baserat på värdet i cell A1, du kan ändra "A1" till andra celler baserat på dina behov.

Steg 3: Spara VBA-koden och stäng Microsoft Visual Basic för applikation fönster.

Då ser du att arknamnet ändras dynamiskt baserat på det angivna cellvärdet.

Anmärkningar:

  • Om den angivna cellen är tom kommer kalkylbladet inte att döpas om.
  • Kalkylbladet kommer att byta namn varje gång du ändrar värdet i den angivna cellen.
  • Om du skriver specialtecken i den angivna cellen, till exempel *, kommer en felvarning att dyka upp.

Byt namn på flera ark baserat på cellvärden i motsvarande ark

Metoden som beskrivs ovan gör det möjligt att byta namn på ett ark i taget. Men genom att använda Byt namn på flera kalkylblad egenskap av Kutools för Excel, kan du snabbt byta namn på alla eller flera ark baserat på värdet av en specificerad cell i varje motsvarande blad. Du kan till exempel byta namn på varje ark så att det matchar värdet som finns i cell A1 på det specifika arket.

Kutools för Excel - Fullpackad med över 300 viktiga verktyg för Excel. Njut av en fullfjädrad 30-dagars GRATIS provperiod utan behov av kreditkort! Ladda ner nu!

  1. Klicka Kutools Plus > Arbetsblad > Byt namn på kalkylblad. Se skärmdump:
  2. I öppningen Byt namn på flera kalkylblad dialogrutan, gör så här:
    1. I kalkylblad listan, kontrollera kalkylbladen du kommer att byta namn på.
    2. I Byt namn på alternativ avsnitt, kolla på Byt ut originalarknamnet alternativ.
    3. I Nytt kalkylbladets namn avsnittet, kontrollera Byt namn på kalkylblad med specifik cell alternativet och ange cellen vars innehåll du ska byta namn på motsvarande ark med.
    4. Klicka på Ok knapp.

Och nu döps alla markerade ark om baserat på den angivna cellen för varje ark. Se skärmdump:

Notera: Vill du komma åt Byt namn på flera kalkylblad funktion? Ladda ner Kutools för Excel nu! Utöver detta har Kutools en myriad av 300+ andra funktioner och erbjuder en 30-dagars gratis provperiod. Vänta inte, ge det ett försök idag!


Byt namn på flera ark från den angivna listan

Kutools för Excel Byt namn på flera kalkylblad Funktionen stöder också att byta namn på flera ark baserat på cellvärden i en specificerad lista.

Kutools för Excel - Fullpackad med över 300 viktiga verktyg för Excel. Njut av en fullfjädrad 30-dagars GRATIS provperiod utan behov av kreditkort! Ladda ner nu!

  1. Klicka Kutools Plus > Arbetsblad > Byt namn på kalkylblad.
  2. I öppningen Byt namn på flera kalkylblad dialogrutan, konfigurera enligt följande:
    1. I kalkylblad listan, välj de kalkylblad du ska byta namn på.
    2. I Byt namn på alternativ avsnitt, kolla på Byt ut originalarknamnet alternativ.
    3. I Nytt kalkylbladets namn avsnitt, kolla på Från specifikt intervall alternativet och klicka på  knappen för att öppna den andra Byt namn på flera kalkylblad dialogrutan (se den högra skärmdumpen). Välj sedan listan över celler som du ska byta namn på efter deras värden och klicka på OK knapp.
    4. Klicka på Ok -knappen för att tillämpa bytet.

Då ser du att alla markerade kalkylblads namn ersätts med cellvärdena i den angivna listan. Se nedanstående skärmdump:

Notera: Vill du komma åt Byt namn på flera kalkylblad funktion? Ladda ner Kutools för Excel nu! Utöver detta har Kutools en myriad av 300+ andra funktioner och erbjuder en 30-dagars gratis provperiod. Vänta inte, ge det ett försök idag!


Demo: namnblad baserat på cellvärden (från listan) i Excel


Kutools för Excel: Över 300 praktiska verktyg till hands! Börja din 30-dagars gratis provperiod utan funktionsbegränsningar idag. Ladda ner nu!

Relaterade artiklar:

Bästa kontorsproduktivitetsverktyg

🤖 Kutools AI Aide: Revolutionera dataanalys baserat på: Intelligent utförande   |  Generera kod  |  Skapa anpassade formler  |  Analysera data och generera diagram  |  Anropa Kutools funktioner.
Populära funktioner: Hitta, markera eller identifiera dubbletter   |  Ta bort tomma rader   |  Kombinera kolumner eller celler utan att förlora data   |   Rund utan formel ...
Superuppslag: Flera kriterier VLookup    VLookup med flera värden  |   VSök över flera ark   |   Fuzzy Lookup ....
Avancerad rullgardinslista: Skapa snabbt en rullgardinslista   |  Beroende rullgardinslista   |  Flervals-rullgardinslista ....
Kolumnhanterare: Lägg till ett specifikt antal kolumner  |  Flytta kolumner  |  Växla synlighetsstatus för dolda kolumner  |  Jämför intervall och kolumner ...
Utvalda funktioner: Rutnätsfokus   |  Designvy   |   Stor formelbar    Arbetsbok & Bladhanterare   |  Resursbibliotek (Automatisk text)   |  Datumväljare   |  Kombinera arbetsblad   |  Kryptera/Dekryptera celler    Skicka e-postmeddelanden efter lista   |  Superfilter   |   Specialfilter (filtrera fet/kursiv/genomstruken...) ...
Topp 15 verktygssatser12 text verktyg (lägga till text, Ta bort tecken, ...)   |   50+ Diagram Typer (Gantt Chart, ...)   |   40+ Praktiskt Formler (Beräkna ålder baserat på födelsedag, ...)   |   19 Införande verktyg (Infoga QR-kod, Infoga bild från sökväg, ...)   |   12 Konvertering verktyg (Siffror till ord, Valutaväxling, ...)   |   7 Slå ihop och dela verktyg (Avancerade kombinera rader, Dela celler, ...)   |   ... och mer

Uppgradera dina Excel-färdigheter med Kutools för Excel och upplev effektivitet som aldrig förr. Kutools för Excel erbjuder över 300 avancerade funktioner för att öka produktiviteten och spara tid.  Klicka här för att få den funktion du behöver mest...

Beskrivning


Fliken Office ger ett flikgränssnitt till Office och gör ditt arbete mycket enklare

  • Aktivera flikredigering och läsning i Word, Excel, PowerPoint, Publisher, Access, Visio och Project.
  • Öppna och skapa flera dokument i nya flikar i samma fönster, snarare än i nya fönster.
  • Ökar din produktivitet med 50 % och minskar hundratals musklick för dig varje dag!
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