Gå til hovedindhold

Hvordan omdøber man ark baseret på celleværdier (fra liste) i Excel?

Omdøbning af et enkelt regneark i Excel sker typisk ved at højreklikke på arkets fane og vælge "Omdøb" fra kontekstmenuen. Men hvis du har brug for at omdøbe flere regneark ved hjælp af værdier fra specificerede celler, eller vil dynamisk navngive et regneark baseret på en specifik celles værdi, er der flere metoder, du kan bruge. Denne artikel vil guide dig gennem disse teknikker, hvilket gør processen ligetil og effektiv.

Dynamisk omdøb et ark fra celleværdi med VBA

Vi kan dynamisk omdøbe et regneark fra en bestemt celles værdi med VBA i Excel, og du kan gøre som følger:

Trin 1: Højreklik på arknavnet på regnearket, som du dynamisk vil navngive det med en celleværdi, og vælg Vis kode fra højreklikmenuen.

Trin 2: I åbningen Microsoft Visual Basic til applikationer vindue, indsæt følgende VBA-kode i modulvinduet.

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: Denne VBA omdøber dynamisk regnearket baseret på værdien i celle A1, du kan ændre "A1" til andre celler baseret på dine behov.

Trin 3: Gem VBA-koden og luk Microsoft Visual Basic til anvendelse vindue.

Derefter vil du se arknavnet ændres dynamisk baseret på den angivne celleværdi.

Bemærkninger:

  • Hvis den angivne celle er tom, vil regnearket ikke blive omdøbt.
  • Regnearket vil blive omdøbt, hver gang du ændrer værdien i den angivne celle.
  • Hvis du indtaster specialtegn i den angivne celle, såsom *, vil en fejladvarsel dukke op.

Omdøb flere ark baseret på celleværdier i tilsvarende ark

Metoden beskrevet ovenfor giver mulighed for at omdøbe ét ark ad gangen. Men ved at bruge Omdøb flere regneark træk ved Kutools til Excel, kan du hurtigt omdøbe alle eller flere ark baseret på værdien af ​​en specificeret celle i hvert tilsvarende ark. For eksempel kan du omdøbe hvert ark, så det matcher værdien, der findes i celle A1 på det pågældende ark.

Kutools til Excel - Pakket med over 300 vigtige værktøjer til Excel. Nyd en 30-dages GRATIS prøveperiode uden behov for kreditkort! Download nu!

  1. Klik Kutools Plus > Arbejdsark > Omdøb regneark. Se skærmbillede:
  2. I åbningen Omdøb flere regneark dialogboks, skal du gøre som følger:
    1. I regneark liste, tjek de regneark, du vil omdøbe.
    2. I Omdøb muligheder afsnit, tjek Udskift det originale arknavn valgmulighed.
    3. I Nyt regnearknavn afsnit, skal du kontrollere Omdøb regneark med en bestemt celle mulighed, og angiv den celle, hvis indhold du vil omdøbe det tilsvarende ark med.
    4. Klik på knappen Ok .

Og nu omdøbes alle markerede ark baseret på den angivne celle i hvert ark. Se skærmbillede:

Bemærk: Vil du have adgang til Omdøb flere regneark funktion? Hent Kutools til Excel nu! Ud over dette kan Kutools prale af et utal af 300+ andre funktioner og tilbyder en 30-dages gratis prøveperiode. Vent ikke, prøv det i dag!

Omdøb flere ark fra den angivne liste

Kutools til Excel Omdøb flere regneark Funktionen understøtter også at omdøbe flere ark baseret på celleværdier i en specificeret liste.

Kutools til Excel - Pakket med over 300 vigtige værktøjer til Excel. Nyd en 30-dages GRATIS prøveperiode uden behov for kreditkort! Download nu!

  1. Klik Kutools Plus > Arbejdsark > Omdøb regneark.
  2. I åbningen Omdøb flere regneark dialogboks, konfigurer som følger:
    1. I regneark listen, vælg de regneark, du vil omdøbe.
    2. I Omdøb muligheder afsnit, tjek Udskift det originale arknavn valgmulighed.
    3. I Nyt regnearknavn afsnit, tjek Fra specifikt område valgmulighed, og klik på knappen  knappen for at åbne den anden Omdøb flere regneark dialogboks (se højre skærmbillede). Vælg derefter listen over celler, som du vil omdøbe efter deres værdier, og klik på OK .
    4. Klik på knappen Ok knappen for at anvende omdøbning.
    5.

Så vil du se alle afkrydsede regnearks navne er erstattet med celleværdierne i den angivne liste. Se nedenstående skærmbillede:

Bemærk: Vil du have adgang til Omdøb flere regneark funktion? Hent Kutools til Excel nu! Ud over dette kan Kutools prale af et utal af 300+ andre funktioner og tilbyder en 30-dages gratis prøveperiode. Vent ikke, prøv det i dag!

Demo: navneark baseret på celleværdier (fra liste) i Excel


Kutools til Excel: Over 300 praktiske værktøjer lige ved hånden! Start din 30-dages gratis prøveperiode uden funktionsbegrænsninger i dag. Hent nu!

Relaterede artikler:

Bedste kontorproduktivitetsværktøjer

🤖 Kutools AI Aide: Revolutionér dataanalyse baseret på: Intelligent udførelse   |  Generer kode  |  Opret brugerdefinerede formler  |  Analyser data og generer diagrammer  |  Aktiver Kutools funktioner...
Populære funktioner: Find, fremhæv eller identificer dubletter   |  Slet tomme rækker   |  Kombiner kolonner eller celler uden at miste data   |   Runde uden formel ...
Super opslag: VLookup med flere kriterier  |   Multiple Value VLookup  |   VOpslag på tværs af flere ark   |   Fuzzy Lookup ....
Avanceret rulleliste: Opret hurtigt rulleliste   |  Afhængig rulleliste   |  Multivælg rulleliste ....
Column Manager: Tilføj et bestemt antal kolonner  |  Flyt kolonner  |  Skift synlighedsstatus for skjulte kolonner  |  Sammenlign områder og kolonner ...
Fremhævede funktioner: Grid fokus   |  Designvisning   |   Stor Formel Bar   |  Arbejdsbog & Ark Manager   |  Ressourcebibliotek (Autotekst)   |  Datovælger   |  Kombiner regneark   |  Krypter/Dekrypter celler   |  Send e-mails efter liste   |  Superfilter   |   Specielt filter (filter fed/kursiv/gennemstreget...) ...
Top 15 værktøjssæt:  12 tekst Værktøjer (tilføje tekst, Fjern tegn, ...)   |   50 + Chart Typer (Gantt kort, ...)   |   40+ Praktisk formler (Beregn alder baseret på fødselsdag, ...)   |   19 Indsættelse Værktøjer (Indsæt QR-kode, Indsæt billede fra sti, ...)   |   12 Konvertering Værktøjer (Tal til ord, Valutaomregning, ...)   |   7 Flet og del Værktøjer (Avancerede kombinere rækker, Opdel celler, ...)   |   ... og mere

Overlad dine Excel-færdigheder med Kutools til Excel, og oplev effektivitet som aldrig før. Kutools til Excel tilbyder over 300 avancerede funktioner for at øge produktiviteten og spare tid.  Klik her for at få den funktion, du har mest brug for...

Beskrivelse

Fanen Office bringer en grænseflade til et kontor med Office, og gør dit arbejde meget lettere

  • Aktiver redigering og læsning af faner i Word, Excel, PowerPoint, Publisher, Access, Visio og Project.
  • Åbn og opret flere dokumenter i nye faner i det samme vindue snarere end i nye vinduer.
  • Øger din produktivitet med 50 % og reducerer hundredvis af museklik for dig hver dag!
Comments (7)
No ratings yet. Be the first to rate!
Lorenzo
Lorenzo
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?
Reply
0
0
Amanda Lee
Amanda Lee     Lorenzo
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
Reply
Report
0
0
Олег
Олег
This comment was minimized by the moderator on the site
Здравствуйте! Подскажите, пожалуйста, а как в Excel создать левую панель, в которой разместить названия листов? То есть перенести ярлыки листов влево (сейчас то они снизу)
Reply
0
0
Amanda Lee
Amanda Lee     Олег
This comment was minimized by the moderator on the site
Hi there,

Hope this tutorial would help you: https://www.extendoffice.com/documents/excel/3117-excel-worksheet-tabs-in-a-vertical-arrangement-on-left-side.html

Amanda
Reply
Report
0
0
sriggins
sriggins
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
Reply
Report
0
0
HHani
HHani
This comment was minimized by the moderator on the site
This is awesome, thank you so much....
Reply
0
0
Mel
Mel
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??
Reply
0
0
There are no comments posted here yet
Please leave your comments in English
Guest
Posting as Guest
×
Rate this post:
Reset
0   Characters
Suggested Locations