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

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.
kte lap 201905

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!
officetab alja
A megjegyzések rendezése szerint
Hozzászólások (28)
Még nincs értékelés. Legyen Ön az első, aki értékel!
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.
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.
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
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
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.
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
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"
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.
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
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
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
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.
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
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!
A weboldal moderátora ezt a megjegyzést minimalizálta
Kedves JAS!
Örülök, hogy segíthettem.
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
A weboldal moderátora ezt a megjegyzést minimalizálta
Good Day,
Köszönöm a megosztást.
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?
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.
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?
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?
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
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?
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.
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.
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
A weboldal moderátora ezt a megjegyzést minimalizálta
szépen dolgozott!
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
Még senki sem írt megjegyzést
Hagyja meg észrevételeit
Feladás vendégként
×
Értékeld ezt a bejegyzést:
0   Karakterek
Javasolt helyek

Kövess minket

Copyright © 2009 - www.extendoffice.com. | Minden jog fenntartva. Powered by ExtendOffice. | Oldaltérkép
A Microsoft és az Office logó a Microsoft Corporation védjegyei vagy bejegyzett védjegyei az Egyesült Államokban és / vagy más országokban.
Sectigo SSL védi