Note: The other languages of the website are Google-translated. Back to English
Belépek  \/ 
x
or
x
Regisztráció  \/ 
x

or

Hogyan nevezhetjük át a munkalapokat az Excel cellaértékei alapján?

A munkalapok átnevezését általában az Excel munkánk során alkalmazzák, de megpróbálta már átnevezni a munkalapokat a cellák értéke alapján? Természetesen átnevezheti a munkalapokat manuálisan, de itt ez az oktatóanyag bemutat néhány trükköt, amelyekkel gyorsan átnevezhet több munkalapot a cellák értéke alapján, ami megtakaríthatja a munkaidejét.

A munkalapok átnevezése egy adott cella alapján a VBA-val

Munkalapok átnevezése egy adott cella alapján Több munkalap átnevezése jó ötlet3

A munkalapok átnevezése a cellatartalom tartománya alapján a Több munkalap átnevezése segítségével jó ötlet3


A VBA alatt a relatív munkalapot átnevezheti egy adott cella alapján.

1. Válassza ki azt a cellát, amely alapján át akarja nevezni a munkalapot, ebben az esetben válassza az A1 cellát. Lásd a képernyőképet:

doc átnevezi az 1. munkalapot

2. nyomja meg Alt + F11 gombokat a megnyitáshoz Microsoft Visual Basic for Applications ablak.

3. kettyenés betétlap > Modulok, majd illessze be a VBA kód alá az újba Modulok ablak.

VBA: A munkalapok átnevezése egy adott cellaértékek alapján.

Sub RenameSheet()
'UpdatebyKutools20191129
Dim xWs As Worksheet
Dim xRngAddress As String
Dim xName As String
Dim xSSh As Worksheet
Dim xInt As Integer
xRngAddress = Application.ActiveCell.Address
On Error Resume Next
Application.ScreenUpdating = False
For Each xWs In Application.ActiveWorkbook.Sheets
    xName = xWs.Range(xRngAddress).Value
    If xName <> "" Then
        xInt = 0
        Set xSSh = Nothing
        Set xSSh = Worksheets(xName)
        While Not (xSSh Is Nothing)
            Set xSSh = Nothing
            Set xSSh = Worksheets(xName & "(" & xInt & ")")
            xInt = xInt + 1
        Wend
        If xInt = 0 Then
            xWs.Name = xName
        Else
            If xWs.Name <> xName Then
                xWs.Name = xName & "(" & xInt & ")"
            End If
        End If
    End If
Next
Application.ScreenUpdating = True
End Sub

4. nyomja meg F5 kulcs a VBA kód futtatásához. Ezután az összes munkalapot minden relatív A1 cellaérték átnevezte.

doc átnevezi az 2. munkalapot


Ha van Kutools for Excel, akkor nem kell mentenie a VBA kódot, használhatja a Több munkalap átnevezése funkcióval gyorsan átnevezheti az összes munkalapot a relatív cellák alapján.

Kutools for Excel, Több mint 300 a praktikus funkciók megkönnyítik a munkáját. 

Után ingyenes telepítés Kutools for Excel, kérjük, tegye az alábbiak szerint:

1. Engedélyezze azt a munkafüzetet, amelynek át akarja nevezni a munkalapok nevét.

2. kettyenés Kutools Plus > Munkalap > Munkalapok átnevezése. Lásd a képernyőképet:

doc átnevezi az 11. munkalapot

3. Ezután a felbukkanó párbeszédpanelen ellenőrizze az átnevezni kívánt lapokat munkalapok ablaktáblát, és válassza ki az egyik lehetőséget Átnevezheti az opciót szükséged van, itt lecserélem a lap nevét, majd ellenőrizem A munkalapok átnevezése adott cellával, és válassza ki az átnevezni kívánt cellát. Lásd a képernyőképet:

doc átnevezi az 9. munkalapot

4. kettyenés Ok. Most a lapokat átnevezik meghatározott cellatartalommal.

doc átnevezi az 2. munkalapot

De néha több munkalap átnevezésére van szükség a cellaértékek tartománya alapján, amint az az alábbi képernyőképen látható. alábbi módszerrel.

doc átnevezi az 3. munkalapot


Val vel Több munkalap átnevezése of Kutools for Excel, átnevezheti a lapokat a kiválasztott tartomány alapján is.

Után ingyenes telepítés Kutools for Excel, kérjük, tegye az alábbiak szerint:

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

doc átnevezi az 11. munkalapot

2. Ban,-ben Több munkalap átnevezése párbeszédpanelen a következőképpen kell megadnia a beállításokat:

(1) Válassza ki az átnevezni kívánt munkalapokat Munkalapok listája;

(2) Ellenőrizze Meghatározott tartományból opciót, és válassza ki az átnevezni kívánt cellaértékeket;

(3) Adja meg a Opciók átnevezése, ellenőrizheted Helyezze be az eredeti lap neve elé, Beszúrás az eredeti lap neve utánvagy Cserélje le az eredeti lap nevét, és megnézheti a megfelelő eredményt a párbeszédpanelen.

doc átnevezi az 10. munkalapot

3. kettyenés Ok, és akkor láthatja, hogy az összes kiválasztott munkalap át lett nevezve a megadott cellaértékek alapján.

Cserélje le az eredeti lap nevét

doc átnevezi az 6. munkalapot

Helyezze be az eredeti lap neve elé

doc átnevezi az 7. munkalapot

Beszúrás az eredeti lap neve után

doc átnevezi az 8. munkalapot

A Munkalapok átnevezése segédprogrammal átnevezheti a munkalapokat is egy adott előtaggal vagy utótaggal. Kattintson ide, ha többet szeretne megtudni a Több munkalap átnevezéséről.


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-2019 és 365. Támogatja az összes nyelvet. Könnyen telepíthető a vállalkozásba vagy szervezetbe. 30 napos ingyenes próbaverzió. 60 napos pénzvisszafizetési garancia.
kte tab 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 minden nap több száz kattintással csökkenti az egér kattintását!
officetab alja
Say something here...
symbols left.
You are guest
or post as a guest, but your post won't be published automatically.
Loading comment... The comment will be refreshed after 00:00.
  • To post as a guest, your comment is unpublished.
    Don · 2 months ago
    Every time I look for a VBA routine and find an article like this from you guys, I try the sample code and it NEVER works.  It always goes into Debug on the first try.  I am starting to believe you deliberately publish poorly written code to drive people to try and purchase your Add-in.  
  • To post as a guest, your comment is unpublished.
    Henry · 1 years ago
    In the VBA code example, what changes would be made to select A2 as the cell value rather than A1?
    • To post as a guest, your comment is unpublished.
      Sunny · 1 years ago
      Hi, Henry, select A2 instead of A1, all sheets will renamed with the value of cell A2.
  • To post as a guest, your comment is unpublished.
    Biplab Das · 1 years ago
    'Updateby20150602
    This code showing error..............Only works ActiveSheet & RunTime Error 1004 [Object_Worksheet faild]
    • To post as a guest, your comment is unpublished.
      Sunny · 1 years ago
      Hi, Biplab Das, maybe the original code cannot work at new versions (2013 or later), I have upadated a new code in the tutorial, you could try again.