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

Hvordan laver man arknavns navn til celleværdi i Excel?

I nogle tilfælde skal du muligvis omdøbe et regneark baseret på en specificeret celleværdi. I denne artikel viser vi dig metoder til at gøre arkfanenavn lig med celleværdien i Excel.

Gør arkfanenavn lig med celleværdien med VBA-kode
Gør arkfanenavn lig med celleværdien med Kutools til Excel


Gør arkfanenavn lig med celleværdien med VBA-kode

Med den følgende VBA-kode kan du automatisk gøre navnet på arkfanen lig med celleværdien.

1. Højreklik på arkfanen, som du vil gøre arknavnet lig med celleværdien, og klik derefter på Vis kode fra højreklikmenuen. Se skærmbillede:

2. Kopier og indsæt nedenstående kode i vinduet Kode, og tryk derefter på andre + Q taster samtidigt for at lukke vinduet Microsoft Visual Basic til applikationer.

VBA-kode: Gør arkfanen lig med celleværdien

Private Sub Worksheet_Change(ByVal Target As Range)
	If Not Intersect(Target, Range("A1")) Is Nothing Then
		ActiveSheet.Name = ActiveSheet.Range("A1")
	End If
End Sub

Bemærk: I koden er A1 den celle, der indeholder den værdi, du skal bruge som arknavn. Du kan ændre det efter behov.

Fra nu af, når værdien i celle A1 ændrede sig, ændres arkfanenes navn også.


Gør arkfanenavn lig med celleværdien med Kutools til Excel

I dette afsnit introducerer vi dig Omdøb flere regneark nytte af Kutools til Excel. Med dette værktøj kan du nemt omdøbe regneark med en bestemt celles værdi i Excel.

Før påføring Kutools til Excel, Bedes download og installer det først.

1. klik Kutools Plus > Arbejdsark > Omdøb flere regneark. Se skærmbillede:

2. i Omdøb flere regneark dialogboks, skal du gøre som følger.

1). Kontroller de regnearknavne, du vil omdøbe i regneark (du kan vælge et ark eller flere ark).
2). Vælg Udskift det originale arknavn boks i Omdøb muligheder sektion.
3). Hvis du vil omdøbe et regneark eller flere regneark med den angivne celleværdi, skal du vælge Fra specifikt område indstilling, og vælg det celleområde, som du vil omdøbe arkene ud fra.
4). Klik på OK knap. Se skærmbillede:

Du kan se, at de valgte regneark omdøbes med den angivne intervalværdi straks som vist nedenstående skærmbillede.

Noter:

1. Du kan bruge filtre funktion til let at filtrere det nødvendige regneark ud, hvis der er mange regneark.
2. Hvis du vil omdøbe flere regneark med en bestemt celleværdi i hvert ark. For eksempel vil ark1 være lig med dets celle A1s værdi, og ark2 vil også være lig med dets celle A1s værdi. Vælg regneark i regneark og vælg derefter Omdøb regneark med en bestemt celle valgmulighed, og angiv celle A1 i feltet.

3. Arknavnet ændres ikke automatisk med ændringer i celleværdien.

  Hvis du vil have en gratis prøveperiode (30-dag) for dette værktøj, klik for at downloade det, og gå derefter til at anvende handlingen i henhold til ovenstående trin.


Gør arkfanenavn lig med celleværdien med Kutools til Excel


De bedste Office-produktivitetsværktøjer

Kutools til Excel løser de fleste af dine problemer og øger din produktivitet med 80%

  • Genbruge: Indsæt hurtigt komplekse formler, diagrammer og alt, hvad du har brugt før; Krypter celler med adgangskode Opret postliste og send e-mails ...
  • Super formel bar (let redigere flere linjer med tekst og formel); Læsning Layout (let at læse og redigere et stort antal celler); Indsæt til filtreret rækkevidde...
  • Flet celler / rækker / kolonner uden at miste data; Split celler indhold; Kombiner duplikerede rækker / kolonner... Forhindre duplikerede celler; Sammenlign områder...
  • Vælg Duplicate eller Unique Rækker; Vælg tomme rækker (alle celler er tomme); Super Find og Fuzzy Find i mange arbejdsbøger; Tilfældig valg ...
  • Præcis kopi Flere celler uden at ændre formelreference; Auto Opret referencer til flere ark; Indsæt kugler, Afkrydsningsfelter og mere ...
  • Uddrag tekst, Tilføj tekst, Fjern efter position, Fjern mellemrum; Opret og udskriv personsøgningssubtotaler; Konverter mellem celler indhold og kommentarer...
  • Superfilter (gem og anvend filterskemaer på andre ark); Avanceret sortering efter måned / uge / dag, hyppighed og mere; Specielt filter af fed, kursiv ...
  • Kombiner arbejdsbøger og arbejdsark; Fletabeller baseret på nøglekolonner; Opdel data i flere ark; Batch Konverter xls, xlsx og PDF...
  • Mere end 300 kraftfulde funktioner. Understøtter Office / Excel 2007-2021 og 365. Understøtter alle sprog. Nem implementering i din virksomhed eller organisation. Fuld funktioner 30-dages gratis prøveperiode. 60 dages pengene tilbage garanti.
kte-fane 201905

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!
officetab bund
Sorter kommentarer efter
Kommentarer (27)
Ingen vurderinger endnu. Vær den første til at bedømme!
Denne kommentar blev minimeret af moderatoren på webstedet
Jeg indsatte dette som anvist, men det dukkede ikke op på min liste over tilgængelige makroer. Jeg forsøgte at køre det manuelt ved at indtaste makronavnet. Da den forsøgte at køre makroen, kom der en fejlmeddelelse "Argument ikke valgfrit".

Privat Sub Worksheet_Change (ByVal Target As Range)
Hvis ikke skærer (mål, rækkevidde("A1")) er ingenting så
ActiveSheet.Name = ActiveSheet.Range("A1")
End If
End Sub

Er der andre der har kørt denne kode og haft samme problem?

Som en test kørte jeg mere grundlæggende kode, og det fungerede fint, så værdien i "A1" forårsager ikke problemet. Når jeg kører koden nedenfor, kan jeg se makronavnet "myTabName" i makrolisten. Ovenstående kode vises ikke, og jeg antager, at dette er på grund af fejlen/det manglende argument.

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

Tak for din hjælp, da jeg meget gerne vil bruge koden som beregnet til at automatisere fanenavnsændringer baseret på en celleværdi.
Denne kommentar blev minimeret af moderatoren på webstedet
Kære Jason,
Koden fungerer godt i mit tilfælde. Vil du venligst oplyse din Office-version? Tak for din kommentar.
Denne kommentar blev minimeret af moderatoren på webstedet
Hej Crystal,

Det virkede ikke så godt for mig, kan det være fordi cellen jeg henviser til er en formel?

Tak for svaret
Denne kommentar blev minimeret af moderatoren på webstedet
Jeg får denne kode til at virke, men den opdaterer ikke automatisk fanenavnet, når cellen den henter navnet fra, hvis der refereres til en anden celle (og den celle ændres).


Dvs jeg ændrer en celle i en masterliste, som ændrer celleteksten i en specifik celle på hver fane, som koden refererer til som fanenavnet, MEN fanen opdaterer ikke sit navn tilsvarende.
Denne kommentar blev minimeret af moderatoren på webstedet
God dag,
Følgende VBA-kode kan løse dit problem. Tak for din kommentar 1

Privat Sub Worksheet_Change (ByVal Target As Range)
Dim xRg As Range, xCell As Range
On Error Resume Next
Hvis ikke skærer (mål, rækkevidde("A1")) er ingenting så
ActiveSheet.Name = ActiveSheet.Range("A1")
End If
Application.EnableEvents = False
Indstil xRg = ActiveSheet.Range("A1"). Præcedens
Hvis ikke xRg er ingenting, så
For hver xcelle i xRg
ActiveSheet.Name = ActiveSheet.Range("A1")
Næste
End If
Application.EnableEvents = True
End Sub
Denne kommentar blev minimeret af moderatoren på webstedet
Virker stadig ikke. Jeg har det samme problem som jJJ. crystal: Er hele koden vist i dit svar?
Den sidste linje vist i din kommentar er "Set xRg = ActiveSheet.Range("A1").Precedents"
Denne kommentar blev minimeret af moderatoren på webstedet
Kære JAS,
Klik venligst på knappen Læs mere i højre side af kommentaren for at få vist hele kommentaren.
Denne kommentar blev minimeret af moderatoren på webstedet
Har stadig samme problem.

Jeg har A1 af det nye ark peger på en anden celle i en anden fane. Den opdaterer første gang (når du udfører), men derefter ingen ændring, når du redigerer mastercellen
Denne kommentar blev minimeret af moderatoren på webstedet
Private Sub Worksheet_SelectionChange(ByVal Target As Excel.Range)
Indstil mål = område("A1")
Hvis Target = "" Afslut Sub
Ved fejl GoTo Badname
ActiveSheet.Name = Left(Target, 31)
Exit Sub
Dårligt navn:
MsgBox "Rediger venligst posten i A1." & Chr(13) _
& "Det ser ud til at indeholde en eller flere " & Chr(13) _
& "ulovlige karakterer." & Chr(13)
Range("A1"). Aktiver
End Sub
Denne kommentar blev minimeret af moderatoren på webstedet
Problemet er stadig det samme, det ændrer sig første gang. Når jeg linker den celle til et andet ark og ændrer det, ændres det ikke automatisk
Denne kommentar blev minimeret af moderatoren på webstedet
Jeg skal bruge denne kode, men jeg har aldrig indtastet vba-kode før. Enhver vejledning ville blive værdsat.
Denne kommentar blev minimeret af moderatoren på webstedet
Jeg ændrer en celle i en masterliste, som ændrer celleteksten i en bestemt celle på hver fane, som koden refererer til som fanenavnet, MEN fanen opdaterer ikke sit navn tilsvarende.

---- det er ikke arbejde
Denne kommentar blev minimeret af moderatoren på webstedet
Jeg fik hele koden, og det virkede. Mange tak for din hjælp!
Denne kommentar blev minimeret af moderatoren på webstedet
Kære JAS,
Jeg er glad for, at jeg kunne hjælpe.
Denne kommentar blev minimeret af moderatoren på webstedet
Du kan hellere bruge simpel makro



Sub Macro3 ()
Dim indeks som heltal
For indeks = 1 til 18

Sheets(index).Name = Sheets(index).Range("A2").Value

Næste indeks



End Sub
Denne kommentar blev minimeret af moderatoren på webstedet
Good Day,
Tak for deling.
Denne kommentar blev minimeret af moderatoren på webstedet
Det er præcis, hvad jeg har brug for, men jeg har brug for fanen for at genskabe en dato, og den virker ikke... Jeg går ud fra, at dette har noget at gøre med den måde, excel udarbejder dato og klokkeslæt på, kan nogen foreslå en løsning?
Denne kommentar blev minimeret af moderatoren på webstedet
Hej Nick,
Excel understøtter ikke indtastning af arknavnet, der indeholder specialtegn. Hvis den dato, du indtaster, indeholder tegnet /, vil det ikke tillade dig at oprette arknavnet med den dato.
Denne kommentar blev minimeret af moderatoren på webstedet
Hvordan kan jeg referere til to celler. for eksempel navn og id-nummer?
Denne kommentar blev minimeret af moderatoren på webstedet
Jeg bruger din nøjagtige kode fra ovenstående til VBA-kode, som fungerer perfekt til det, jeg har brug for. Men jeg har en masse makroer på et ark kaldet Job Template, der bliver kopieret og genbrugt til hvert nyt job. Jeg designede alle mine makroer baseret på en ny kopieret version kaldet Job Template (2). Når arknavnet er ændret til det nye jobnavn, virker makroerne ikke længere og skal gøres manuelt. Jeg vil gerne være i stand til at bruge en af ​​mine makroknapper på et hvilket som helst tidspunkt i stedet for kun at bruge dem, før jeg ændrer arknavnet.

Er der en måde, hvorpå VBA-koden altid kan henvise til arknavnet, før resten af ​​kodefunktionerne køres?
Denne kommentar blev minimeret af moderatoren på webstedet
Hvad er det højeste antal arbejdsark, der kan ændres navne via Kutools Plus? fordi Excel lader mig kun ændre 17 navne, og det er det
Denne kommentar blev minimeret af moderatoren på webstedet
Dette fungerede perfekt til mit første regneark, men ikke for det andet eller tredje osv. (Jeg har op til omkring 20 regneark, der alle har brug for denne funktion). Mangler jeg noget?
Denne kommentar blev minimeret af moderatoren på webstedet
Hej A Owen,
Denne kode virker kun for et regneark pr. gang. Beklager ulejligheden.
Denne kommentar blev minimeret af moderatoren på webstedet
Hej Crystal,

Når jeg indsætter din kode kommer den tilbage med fejlen "brugerdefineret type ikke defineret"?

Tak.
Denne kommentar blev minimeret af moderatoren på webstedet
Hej Tom J,
Sørg for, at disse tre muligheder er markeret i dialogboksen Referencer - VBAProject.
https://www.extendoffice.com/images/stories/comments/comment-picture-zxm/error.png
Denne kommentar blev minimeret af moderatoren på webstedet
fungerede flot!
Denne kommentar blev minimeret af moderatoren på webstedet
bonjour,
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
Der er endnu ingen kommentarer her
Efterlad dine kommentarer
Sender som gæst
×
Bedøm dette indlæg:
0   Tegn
Foreslåede steder

Følg os

Copyright © 2009 - www.extendoffice.com. | Alle rettigheder forbeholdes. Drevet af ExtendOffice. | | Sitemap
Microsoft og Office-logoet er varemærker eller registrerede varemærker tilhørende Microsoft Corporation i USA og / eller andre lande.
Beskyttet af Sectigo SSL