Ugrás a tartalomra

Hogyan lehet átnevezni a munkalapokat a cellaértékek alapján (listából) az Excelben?

Egyetlen munkalap átnevezése az Excelben általában úgy történik, hogy a jobb gombbal a lap fülére kattint, és a helyi menüből válassza az „Átnevezés” lehetőséget. Ha azonban több munkalapot kell átneveznie megadott cellákból származó értékek használatával, vagy dinamikusan szeretne elnevezni egy munkalapot egy adott cella értéke alapján, többféle módszert is használhat. Ez a cikk végigvezeti Önt ezeken a technikákon, így a folyamat egyszerű és hatékony.


A munkalap dinamikus átnevezése a cellaértékből a VBA segítségével

Egy munkalapot dinamikusan átnevezhetünk egy adott cella értékéből az Excel VBA-jával, és ezt a következőképpen teheti meg:

Lépés 1: Kattintson a jobb gombbal annak a munkalapnak a nevére, amelyet dinamikusan cellaértékkel nevez el, és válassza ki Kód megtekintése a jobb egérgombbal kattintva.

Lépés 2: A megnyitón Microsoft Visual Basic for Applications ablakba, illessze be a következő VBA-kódot a modul ablakába.

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

Tipp: Ez a VBA dinamikusan átnevezi a munkalapot az A1 cellában lévő érték alapján, az "A1" értéket az Ön igényei szerint módosíthatja más cellákra.

Lépés 3: Mentse el a VBA kódot, és zárja be Microsoft Visual Basic alkalmazásokhoz ablak.

Ekkor látni fogja, hogy a lap neve dinamikusan megváltozik a megadott cellaérték alapján.

Megjegyzések:

  • Ha a megadott cella üres, a munkalap nem kerül átnevezésre.
  • A munkalap minden alkalommal át lesz nevezve, amikor módosítja a megadott cellában lévő értéket.
  • Ha speciális karaktereket ír be a megadott cellába, például *, hibajelzés jelenik meg.

Nevezze át több lapot a megfelelő munkalapok cellaértékei alapján

A fent leírt módszer lehetővé teszi egy-egy lap átnevezését. Használatával azonban a Több munkalap átnevezése jellemzője Kutools az Excel számára, gyorsan átnevezheti az összes vagy több lapot az egyes megfelelő lapok megadott cellájának értéke alapján. Például átnevezhet minden lapot, hogy megfeleljen az adott lap A1 cellájában található értéknek.

Kutools az Excel számára - Tele van több mint 300 alapvető Excel-eszközzel. Élvezze a teljes funkcionalitású 30 napos INGYENES próbaverziót hitelkártya nélkül! Letöltés most!

  1. Kattints Kutools Plus > Munkalap > Munkalapok átnevezése. Lásd a képernyőképet:
  2. A megnyitón Több munkalap átnevezése párbeszédpanelt, kérjük, tegye a következőket:
    1. A munkalapok listában ellenőrizze az átnevezni kívánt munkalapokat.
    2. A Opciók átnevezése szakasz, ellenőrizze a Cserélje le az eredeti lap nevét opciót.
    3. A Új munkalap neve szakaszban, kérjük, ellenőrizze a A munkalapok átnevezése adott cellával opciót, és adja meg azt a cellát, amelynek tartalmával átnevezni fogja a megfelelő lapot.
    4. Kattintson az Ok gombot.

És most minden ellenőrzött munkalap átnevezésre kerül az egyes lapok megadott cellája alapján. Lásd a képernyőképet:

Jegyzet: Szeretné elérni a Több munkalap átnevezése funkció? Letöltés Kutools az Excel számára Most! Ezen túlmenően a Kutools több mint 300 egyéb funkcióval büszkélkedhet, és 30 napos ingyenes próbaverziót kínál. Ne várj, próbáld ki még ma!


Nevezze át több lapot a megadott listáról

Kutools az Excelhez Több munkalap átnevezése a funkció támogatja több munkalap átnevezését is egy megadott lista cellaértékei alapján.

Kutools az Excel számára - Tele van több mint 300 alapvető Excel-eszközzel. Élvezze a teljes funkcionalitású 30 napos INGYENES próbaverziót hitelkártya nélkül! Letöltés most!

  1. Kattints Kutools Plus > Munkalap > Munkalapok átnevezése.
  2. A megnyitón Több munkalap átnevezése párbeszédpanelen állítsa be a következőképpen:
    1. A munkalapok listában válassza ki az átnevezni kívánt munkalapokat.
    2. A Opciók átnevezése szakasz, ellenőrizze a Cserélje le az eredeti lap nevét opciót.
    3. A Új munkalap neve szakasz, ellenőrizze a Konkrét tartományból opciót, és kattintson a  gombot a második megnyitásához Több munkalap átnevezése párbeszédpanel (lásd a jobb oldali képernyőképet). Ezután válassza ki az értékük alapján átnevezni kívánt cellák listáját, és kattintson a gombra OK gombot.
    4. Kattintson az Ok gombot az átnevezés alkalmazásához.

Ezután látni fogja, hogy az összes ellenőrzött munkalap neve a megadott listában lévő cellaértékekre van cserélve. Lásd az alábbi képernyőképet:

Jegyzet: Szeretné elérni a Több munkalap átnevezése funkció? Letöltés Kutools az Excel számára Most! Ezen túlmenően a Kutools több mint 300 egyéb funkcióval büszkélkedhet, és 30 napos ingyenes próbaverziót kínál. Ne várj, próbáld ki még ma!


Bemutató: névlapok az cellák értékei alapján (listából) az Excel-ben


Kutools az Excel számára: Több mint 300 praktikus eszköz a keze ügyében! Kezdje el a 30 napos ingyenes próbaidőszakot funkciók korlátozása nélkül. Töltse le most!

Kapcsolódó cikkek:

A legjobb irodai hatékonyságnövelő eszközök

🤖 Kutools AI Aide: Forradalmasítsa az adatelemzést a következők alapján: Intelligens végrehajtás   |  Kód létrehozása  |  Hozzon létre egyéni képleteket  |  Adatok elemzése és diagramok létrehozása  |  A Kutools funkciók meghívása...
Népszerű szolgáltatások: Ismétlődések keresése, kiemelése vagy azonosítása   |  Üres sorok törlése   |  Oszlopok vagy cellák kombinálása adatvesztés nélkül   |   Kerek Formula nélkül ...
Szuper keresés: Több kritérium VLookup    Többértékű VLookup  |   VLookup több munkalapon   |   Fuzzy Lookup ....
Speciális legördülő lista: Gyors legördülő lista létrehozása   |  Függő legördülő lista   |  Többszörösen válassza ki a legördülő listát ....
Oszlopkezelő: Adjon meg egy adott számú oszlopot  |  Oszlopok mozgatása  |  Kapcsolja be a Rejtett oszlopok láthatósági állapotát  |  Tartományok és oszlopok összehasonlítása ...
Kiemelt funkciók: Rács fókusz   |  Design nézet   |   Nagy Formula bár    Munkafüzet és lapkezelő   |  Erőforrás-könyvtár (Auto szöveg)   |  Dátumválasztó   |  Kombinálja a munkalapokat   |  Cellák titkosítása/dekódolása    E-mailek küldése listánként   |  Szuper szűrő   |   Speciális szűrő (félkövér/dőlt/áthúzott szűrés...) ...
A 15 legjobb eszközkészlet12 szöveg Eszközök (Szöveg hozzáadása, Karakterek eltávolítása,...)   |   50 + Táblázatos Típusai (Gantt-diagram,...)   |   40+ Praktikus képletek (Számolja ki az életkort a születésnap alapján,...)   |   19 beszúrás Eszközök (Helyezze be a QR-kódot, Kép beszúrása az útvonalból,...)   |   12 Átalakítás Eszközök (Számok szavakig, Valuta átváltás,...)   |   7 Egyesítés és felosztás Eszközök (Haladó kombinált sorok, Hasított sejtek,...)   |   ... és több

Töltsd fel Excel-készségeidet a Kutools for Excel segítségével, és tapasztald meg a még soha nem látott hatékonyságot. A Kutools for Excel több mint 300 speciális funkciót kínál a termelékenység fokozásához és az időmegtakarításhoz.  Kattintson ide, hogy megszerezze a leginkább szükséges funkciót...

Leírás


Az Office lap füles felületet hoz 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!
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