Hogyan lehet a lapfül nevét megegyezni az Excel cellaértékével?

Bizonyos esetekben előfordulhat, hogy át kell neveznie egy munkalapot egy megadott cellaérték alapján. Ebben a cikkben bemutatjuk azokat a módszereket, amelyekkel a lap fülének neve megegyezik az Excel cellaértékével.

Tegye a lap fül nevét megegyezővé a cella értékével VBA kóddal
A Kutools for Excel alkalmazással tegye egyenlővé a lap fül nevét a cella értékével

Tegye a lap fül nevét megegyezővé a cella értékével VBA kóddal

A következő VBA-kód segítségével a lapfül nevét automatikusan megegyezheti a cella értékével.

1. Kattintson a jobb gombbal azon a lapfülön, amelyen a lap nevét meg szeretné változtatni a cella értékével, majd kattintson a gombra Kód megtekintése a jobb egérgombbal kattintva. Lásd a képernyőképet:

2. Másolja és illessze be a kód alatt a Kód ablakba, majd nyomja meg az gombot más + Q gombokat egyidejűleg a Microsoft Visual Basic for Applications ablak bezárásához.

VBA kód: Tegye a lapfület egyenlővé a cella értékével

Private Sub Worksheet_Change(ByVal Target As Range)
'Updated by Extendoffice 20230130
    On Error Resume Next
    If Not Intersect(Target, Range("A1")) Is Nothing Then
        ActiveSheet.Name = ActiveSheet.Range("A1")
    ElseIf Not Intersect(Target.Dependents, Range("A1")) Then
        ActiveSheet.Name = ActiveSheet.Range("A1")
    End If
End Sub

Megjegyzések: A kódban A1 az a cella, amely tartalmazza azt az értéket, amelyet lapnévként kell használnia. Szükség szerint megváltoztathatja.

Mostantól, amikor az A1 cellában az érték megváltozott, a lap fül neve is ugyanúgy megváltozik.

A Kutools for Excel alkalmazással tegye egyenlővé a lap fül nevét a cella értékével

Ebben a részben bemutatjuk Önnek a Több munkalap átnevezése hasznossága Kutools az Excel számára. Ezzel a segédprogrammal könnyen átnevezheti a munkalapokat bizonyos cellák értékével az Excelben.

Alkalmazás előtt Kutools az Excel számáraKérjük, először töltse le és telepítse.

1. kettyenés Kutools Plus > Munkalap > Több munkalap átnevezése. Lásd a képernyőképet:

2. Ban,-ben Több munkalap átnevezése párbeszédpanelen a következőket kell tennie.

1). Jelölje be az átnevezni kívánt munkalap nevét a munkalapok mezőbe (kiválaszthat egy vagy több lapot).

2). Válassza a lehetőséget Cserélje le az eredeti lap nevét doboz a Opciók átnevezése szakasz.

3). Ha át akar nevezni egy munkalapot vagy több munkalapot a megadott cellaértékkel, válassza ki a lehetőséget Meghatározott tartományból opciót, és válassza ki azt a cellatartományt, amely alapján át szeretné nevezni a lapokat.

4). Kattints a OK gomb. Lásd a képernyőképet:

Láthatja, hogy a kiválasztott munkalapokat a megadott tartományérték azonnal átnevezi, ahogy az alábbi képernyőkép látható.

Megjegyzések:

1. Használhatja a Szűrő funkció segítségével könnyen kiszűrheti a szükséges munkalapot, ha sok munkalap létezik.

2. Ha át akar nevezni több munkalapot, mindegyik lapon egy bizonyos cellaértékkel. Például az 1. lap megegyezik az A1 cella értékével, és a 2. lap is megegyezik az A1 cella értékével. Kérjük, válassza ki a munkalapokat a munkalapok négyzetet, majd jelölje be a A munkalapok átnevezése adott cellával opciót, és adja meg az A1 cellát a mezőben.

3. A cellaérték változásával a lap neve nem változik automatikusan.

Ha szeretnél egy ingyenes próbaidőszakot (30-nap) ebből a segédprogramból, kattintson a letöltéshez, majd lépjen a művelet végrehajtására a fenti lépések szerint.

A Kutools for Excel alkalmazással tegye egyenlővé a lap fül nevét a cella értékével

A legjobb irodai termelékenységi eszközök

A Kutools for Excel megoldja a legtöbb problémát, és 80% -kal növeli a termelékenységet

újrafelhasználás: Gyorsan helyezze be összetett képletek, diagramok és bármi, amit korábban használt; Cellák titkosítása jelszóval; Levelezőlista létrehozása és e-maileket küldeni ...
Szuper Formula Bár (könnyedén szerkeszthet több szöveget és képletet); Olvasás elrendezés (könnyen olvasható és szerkeszthető nagyszámú cella); Beillesztés a Szűrt tartományba...
Cellák / sorok / oszlopok egyesítése az adatok elvesztése nélkül; Osztott cellák tartalma; Kombinálja a duplikált sorokat / oszlopokat... megakadályozza az ismétlődő cellákat; Hasonlítsa össze a tartományokat...
Válassza a Másolat vagy az Egyedi lehetőséget Sorok; Válassza az Üres sorok lehetőséget (az összes cella üres); Super Find és Fuzzy Find sok munkafüzetben; Véletlenszerű kiválasztás ...
Pontos másolás Több cella a képletreferencia megváltoztatása nélkül; Automatikus referenciák létrehozása több lapra; Helyezze be a golyókat, Jelölőnégyzetek és még sok más ...
Kivonat szöveg, Szöveg hozzáadása, Eltávolítás pozíció szerint, Hely eltávolítása; Hozz létre és nyomtasson személyhívó részösszegeket; Konvertálás a cellatartalom és a megjegyzések között...
Szuper szűrő (mentse el és alkalmazza a szűrősémákat más lapokra); Haladó rendezés hónap / hét / nap, gyakoriság és egyebek szerint; Speciális szűrő félkövér, dőlt betűvel ...
Kombinálja a munkafüzeteket és a munkalapokat; Táblázatok egyesítése kulcsoszlopok alapján; Az adatok felosztása több lapra; Kötegelt konvertálás xls, xlsx és PDF...
Több mint 300 hatékony funkció. Támogatja az Office / Excel 2007-2021 és 365 verziókat. Minden nyelvet támogat. Könnyű üzembe helyezés vállalatában vagy szervezetében. Teljes funkciók 30 napos ingyenes próbaverzió. 60 napos pénzvisszafizetési garancia.

Tovább ... Ingyenes letöltés... Vásárlás...

Az Office fül a füles felületet hozza az Office-ba, és sokkal könnyebbé teszi a munkáját

Füles szerkesztés és olvasás engedélyezése Wordben, Excelben és PowerPointban, Publisher, Access, Visio és Project.
Több dokumentum megnyitása és létrehozása ugyanazon ablak új lapjain, mint új ablakokban.
50% -kal növeli a termelékenységet, és naponta több száz kattintással csökkenti az egér kattintását!

Tovább ... Ingyenes letöltés... Vásárlás...

Hozzászólások (28)

Még nincs értékelés. Legyen Ön az első, aki értékel!

Jason

körülbelül 5 éve

#21450

A weboldal moderátora ezt a megjegyzést minimalizálta

Ezt az utasításoknak megfelelően beillesztettem, de nem jelent meg az elérhető makrók listájában. Megpróbáltam manuálisan futtatni a makró nevének beírásával. Amikor megpróbálta futtatni a makrót, hibaüzenet jelent meg: „Nem kötelező érv”.

Private Sub Worksheet_Change (ByVal Target mint Range)
Ha nem metszik(cél, tartomány("A1")) akkor semmi
ActiveSheet.Name = ActiveSheet.Range("A1")
Ha véget
End Sub

Valaki más is futtatta ezt a kódot, és volt hasonló probléma?

Próbaként több alapvető kódot futtattam, és jól működött, így az "A1" érték nem okozza a problémát. Amikor lefuttatom az alábbi kódot, a Makró listában láthatom a "myTabName" makró nevét. A fenti kód nem jelenik meg, és feltételezem, hogy ez a hiba/hiányzó argumentum miatt van.

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

Köszönöm a segítségét, mert nagyon szeretném a kódot a cellaérték alapján történő lapnév-módosítások automatizálására használni.

Válasz

kristály- Jason

körülbelül 5 éve

#21451

A weboldal moderátora ezt a megjegyzést minimalizálta

Kedves Jason!
A kód jól működik az én esetemben. Megadná az Office verzióját? Köszönjük észrevételét.

Válasz

Jelentés

Mei1 kristály-

körülbelül 2 héttel ezelőtt

#42601

A weboldal moderátora ezt a megjegyzést minimalizálta

Szia Crystal,

Ez nekem sem működött, lehet, hogy azért, mert az általam hivatkozott cella egy képlet?

Köszi a választ

Válasz

kristály- Mei1

körülbelül 2 nappal ezelőtt

#42878

A weboldal moderátora ezt a megjegyzést minimalizálta

Hi Mei,

Thank you for your feedback. The problem was caused by the formula. The code has been modified. Please give it a try.

Private Sub Worksheet_Change(ByVal Target As Range)
'Updated by Extendoffice 20230130
    On Error Resume Next
    If Not Intersect(Target, Range("A1")) Is Nothing Then
        ActiveSheet.Name = ActiveSheet.Range("A1")
    ElseIf Not Intersect(Target.Dependents, Range("A1")) Then
        ActiveSheet.Name = ActiveSheet.Range("A1")
    End If
End Sub

Válasz

Jelentés

jJJ

körülbelül 5 éve

#21710

A weboldal moderátora ezt a megjegyzést minimalizálta

Kapom ezt a kódot, hogy működjön, de nem frissíti automatikusan a lap nevét, amikor egy másik cellára hivatkozik (és ez a cella megváltozik).

Vagyis megváltoztatok egy cellát a fő listában, ami megváltoztatja a cella szövegét egy adott cellában minden lapon, amelyre a kód lapnévként hivatkozik, DE a lap nem frissíti ennek megfelelően a nevét.

Válasz

Jelentés

kristály- jJJ

körülbelül 5 éve

#21711

A weboldal moderátora ezt a megjegyzést minimalizálta

Jó napot,
A következő VBA-kód megoldhatja a problémát. Köszönöm hozzászólásodat 1

Private Sub Worksheet_Change (ByVal Target mint Range)
Dim xRg As Range, xCell As Range
On Error Resume Next
Ha nem metszik(cél, tartomány("A1")) akkor semmi
ActiveSheet.Name = ActiveSheet.Range("A1")
Ha véget
Application.EnableEvents = Hamis
Set xRg = ActiveSheet.Range("A1").Precedens
Ha nem xRg, akkor semmi
Minden xCell In xRg
ActiveSheet.Name = ActiveSheet.Range("A1")
Következő
Ha véget
Application.EnableEvents = Igaz
End Sub

Válasz

Jelentés

JAS kristály-

körülbelül 5 éve

#21712

A weboldal moderátora ezt a megjegyzést minimalizálta

Még mindig nem működik. Ugyanaz a problémám, mint jJJ. crystal: A teljes kód megjelenik a válaszában?
A megjegyzés utolsó sora: "Set xRg = ActiveSheet.Range("A1").Precedens"

Válasz

kristály- JAS

körülbelül 5 éve

#21713

A weboldal moderátora ezt a megjegyzést minimalizálta

Kedves JAS!
A teljes megjegyzés megjelenítéséhez kattintson a megjegyzés jobb oldalán található További információ gombra.

Válasz

Jelentés

Alex kristály-

körülbelül 5 éve

#21714

A weboldal moderátora ezt a megjegyzést minimalizálta

Még mindig ugyanaz a probléma.

Az új lap A1-je egy másik lapon lévő másik cellára mutat. Első alkalommal frissül (végrehajtáskor), de azután nem változik a főcella szerkesztésekor

Válasz

Rj Alex

körülbelül 3 éve

#21715

A weboldal moderátora ezt a megjegyzést minimalizálta

Private Sub Worksheet_SelectionChange(ByVal Target as Excel.Range)
Cél beállítása = Tartomány ("A1")
Ha Target = "", akkor lépjen ki a Sub
Hiba esetén GoTo Badname
ActiveSheet.Name = Bal(Cél, 31)
Exit Sub
Rossz név:
MsgBox "Kérjük, vizsgálja felül az A1 bejegyzést." & Chr(13) _
& "Úgy tűnik, egy vagy több tartalmaz" & Chr(13) _
& "illegális karakterek". & Chr(13)
Tartomány("A1"). Aktiválja
End Sub

Shadab kristály-

mintegy 4 hónappal ezelőtt

#39971

A weboldal moderátora ezt a megjegyzést minimalizálta

A probléma továbbra is ugyanaz, először változik. ha azt a cellát egy másik laphoz kapcsolom és megváltoztatom, akkor nem változik meg automatikusan

Válasz

John Hammonds kristály-

körülbelül 4 éve

#21716

A weboldal moderátora ezt a megjegyzést minimalizálta

Ezt a kódot kell használnom, de még soha nem adtam meg vba kódot. Bármilyen útmutatást szívesen vennénk.

Válasz

NOOR kristály-

körülbelül 3 éve

#21717

A weboldal moderátora ezt a megjegyzést minimalizálta

Módosítok egy cellát egy törzslistában, ami megváltoztatja a cella szövegét egy adott cellában minden lapon, amelyre a kód lapnévként hivatkozik, DE a lap nem frissíti ennek megfelelően a nevét.

---- ez nem munka

Válasz

JAS

körülbelül 5 éve

#21987

A weboldal moderátora ezt a megjegyzést minimalizálta

Megkaptam az egész kódot, és működött. Köszönöm szépen a segítséget!

Válasz

kristály- JAS

körülbelül 5 éve

#21988

A weboldal moderátora ezt a megjegyzést minimalizálta

Kedves JAS!
Örülök, hogy segíthettem.

Válasz

Jelentés

Nilanjan Pal

körülbelül 5 éve

#22475

A weboldal moderátora ezt a megjegyzést minimalizálta

Használhat egyszerű makrót

Sub Macro3 ()
Halvány index Egész számként
Ha index = 1-től 18-ig

Lapok(index).Név = Lapok(index).Tartomány("A2").Érték

Következő index

End Sub

Válasz

kristály- Nilanjan Pal

körülbelül 5 éve

#22476

A weboldal moderátora ezt a megjegyzést minimalizálta

Good Day,
Köszönöm a megosztást.

Válasz

Jelentés

NickP84

körülbelül 2 éve

#32436

A weboldal moderátora ezt a megjegyzést minimalizálta

Pontosan erre van szükségem, de szükségem van a lapra a dátum újbóli létrehozásához, és ez nem működik... Feltételezem, hogy ez összefügg azzal, ahogyan az Excel meghatározza a dátumot és az időt. Tud valaki ajánlani valami megoldást?

Válasz

Jelentés

kristály- NickP84

körülbelül 2 éve

#32437

A weboldal moderátora ezt a megjegyzést minimalizálta

Szia Nick,
Az Excel nem támogatja a speciális karaktereket tartalmazó lapnév beírását. Ha a beírt dátum tartalmazza a / karaktert, akkor nem teszi lehetővé a lapnév létrehozását ezzel a dátummal.

Válasz

Jelentés

dan

körülbelül 2 éve

#33150

A weboldal moderátora ezt a megjegyzést minimalizálta

Hogyan hivatkozhatok két cellára? például név és azonosító szám?

Válasz

Scott Keller

körülbelül 2 éve

#34080

A weboldal moderátora ezt a megjegyzést minimalizálta

Pontosan a fenti kódot használom a VBA kódhoz, amely tökéletesen működik ahhoz, amire szükségem van. Azonban van egy csomó makróm a Job Template nevű lapon, amelyet minden új munkához másol és újra felhasznál. Az összes makrót egy új, Job Template nevű másolt verzió alapján terveztem (2). Miután a munkalap neve az új feladatnévre módosult, a makrók már nem működnek, és manuálisan kell megtenni. Szeretném, ha bármelyik makrógombot bármikor használhatnám, ahelyett, hogy csak a lap nevének megváltoztatása előtt használnám őket.

Van mód arra, hogy a VBA-kód mindig a lap nevére hivatkozzon, mielőtt futtatná a többi kódfüggvényt?

Válasz

Jelentés

Remi

mintegy 1 éve

#35262

A weboldal moderátora ezt a megjegyzést minimalizálta

Mi a legnagyobb számú munkalap, aminek nevet lehet változtatni a Kutools Plus-szal? mert az excel csak 17 nevet enged megváltoztatni, és ennyi

Válasz

Egy Owen

mintegy 7 hónappal ezelőtt

#38324

A weboldal moderátora ezt a megjegyzést minimalizálta

Ez tökéletesen működött az első munkalapomon, de nem a másodiknál vagy a harmadiknál stb. (akár 20 munkalapom van, amelyek mindegyikéhez szüksége van erre a funkcióra). Lemaradtam valamiről?

Válasz

kristály- Egy Owen

mintegy 7 hónappal ezelőtt

#38379

A weboldal moderátora ezt a megjegyzést minimalizálta

Szia A Owen!
Ez a kód egyszerre csak egy munkalapon működik. Elnézést a kellemetlenségért.

Válasz

Jelentés

Tom j

mintegy 4 hónappal ezelőtt

#40075

A weboldal moderátora ezt a megjegyzést minimalizálta

Szia Crystal,

Amikor beillesztem a kódot, a "felhasználó által definiált típus nincs megadva" hibaüzenet jelenik meg?

Kösz.

Válasz

kristály- Tom j

mintegy 4 hónappal ezelőtt

#40122

A weboldal moderátora ezt a megjegyzést minimalizálta

Szia Tom J!
Győződjön meg arról, hogy ez a három lehetőség be van jelölve a Referenciák - VBAProject párbeszédpanelen.

https://www.extendoffice.com/images/stories/comments/comment-picture-zxm/error.png

Válasz

Jelentés

Christopher Ward

mintegy 3 hónappal ezelőtt

#40828

A weboldal moderátora ezt a megjegyzést minimalizálta

szépen dolgozott!

Válasz

Yas

mintegy 3 hónappal ezelőtt

#40992

A weboldal moderátora ezt a megjegyzést minimalizálta

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

Válasz

Még senki sem írt megjegyzést

Hagyja meg észrevételeit

Feladás vendégként

Bejelentkezés

Név (kötelező)

Email (szükséges)

Értékeld ezt a bejegyzést:

vissza

0 Karakterek

Egyetértek azzal, hogy a szabályait és feltételeit