VBA Sheet Rename Sheet

Rename Sheet in Excel VBA

Minden Excel munkalap átnevezése olyan egyszerű, mint bármely fájl átnevezése. Ezt bármelyik munkalap nevére duplán kattintva, vagy a jobb oldali menü listából az Átnevezés menüpontot választva teheti meg. De mi van akkor, ha egy excel munkalapot szeretnénk átnevezni VBA makró segítségével. A VBA makró segítségével egy vagy több Excel munkalapot is átnevezhetünk egyetlen lövéssel. Akár bármelyik munkalap nevét is rögzíthetjük, hogy ne változtassa meg senki. Itt, látni fogjuk, többféleképpen átnevezni bármely munkalapot.

Hogyan lehet átnevezni a lapot Excelben VBA használatával?

Az alábbiakban különböző példákat láthatunk a lap átnevezésére Excelben VBA kód segítségével.

VBA Rename Sheet – Example #1

Bár a VBA segítségével nagyon könnyen átnevezhetünk bármilyen Excel munkalapot. Ennek is számos módja van. Itt a munkalapunk neve alapértelmezetten az alábbiakban látható “Sheet1”, amit át fogunk nevezni.

1. lépés: Ehhez a példához szükségünk lenne egy modulra, ahol a kódolást végezni fogjuk. Menjünk a Beszúrás menübe, és válasszuk ki a Modul menüpontot az alábbi ábrán látható módon.

2. lépés: Most az újonnan megnyitott Modulban írjuk be az alkategóriát a VBA Rename Sheet névre vagy bármilyen más névre.

Code:

Sub VBA_RenameSheet()End Sub

3. lépés: Most definiáljunk egy változót bármilyen névvel, és rendeljük hozzá a Worksheet adattípusokat az alábbi ábrán látható módon. Itt “Sheet”-nek neveztük el.

Kód:

Sub VBA_RenameSheet()Dim Sheet As WorksheetEnd Sub

4. lépés: A Set parancs segítségével válassza ki a Sheet változót az alábbiak szerint.

Code:

Sub VBA_RenameSheet()Dim Sheet As WorksheetSet Sheet =End Sub

Step 5: És a Worksheet parancs segítségével válasszuk ki azt a munkalapot, amelyet át szeretnénk nevezni.

Code:

Sub VBA_RenameSheet()Dim Sheet As WorksheetSet Sheet = Worksheets("Sheet1")End Sub

Step 6: Most használjuk a Sheet funkciót a Name mellett, és adjuk meg az átnevezni kívánt nevet. Itt az “Átnevezett lapot” választjuk.

Code:

Sub VBA_RenameSheet()Dim Sheet As WorksheetSet Sheet = Worksheets("Sheet1")Sheet.Name = "Renamed Sheet"End Sub

Step 7: Most végül fordítsuk le a kódot, és futtassuk le, ha hibát találtunk. A kód futtatásához kattintson a lejátszás gombra, amely az alábbiakban látható módon a menüsor alatt található. Látni fogjuk, hogy a lapunk át lesz nevezve Sheet1-ről Renamed Sheet-re az alább látható módon.

VBA Rename Sheet – Example #2

Ebben a példában egy sokkal egyszerűbb módját fogjuk látni bármely munkalap átnevezésének a VBA makró segítségével. Ehhez szükségünk lenne, egy újabb friss modulra.

1. lépés: Nyissunk meg egy modult, és írjuk meg a VBA Átnevezés alkategóriáját az alábbiakban látható módon.

Kód:

Sub VBA_RenameSheet1()End Sub

2. lépés: Válasszuk ki a lapot, amelyet át akarunk nevezni a Select funkcióval. Itt a mi lapunk a Sheet1.

Code:

Sub VBA_RenameSheet1()Sheets("Sheet1").SelectEnd Sub

Step 3: A következő sorban vegyük figyelembe a Name függvényt a kiválasztott lappal az alábbiak szerint.

Code:

Sub VBA_RenameSheet1()Sheets("Sheet1").SelectSheets("Sheet1").Name =End Sub

Step 4: Válasszuk ki a nevet, amelyet a lap átnevezése után szeretnénk adni. Ugyanazt a nevet választjuk, mint az 1. példában: “Átnevezett lap”

Sub VBA_RenameSheet1()Sheets("Sheet1").SelectSheets("Sheet1").Name = "Renamed Sheet"End Sub

5. lépés: Ismét fordítsuk le a kódot, és futtassuk le. Látni fogjuk, hogy a sheet1 át lesz nevezve új névvel, mint “Renamed Sheet”.

VBA Rename Sheet – Example #3

Még egy hasonló mód van arra, hogy átnevezzünk egy Excel munkalapot a VBA segítségével. Ez egy kicsit hasonlóan nézne ki, mint a 2. példában látott folyamat, de sokkal könnyebben megjegyezhető és feldolgozható.

1. lépés: Nyissunk meg egy modult, és írjuk meg a VBA Rename Sheet új alkategóriáját az alábbiakban látható módon.

Kód:

Sub VBA_RenameSheet2()End Sub

2. lépés: Válasszuk ki a lapot, amelyet át akarunk nevezni. Itt úgy választhatjuk ki a lapot, hogy az alábbiakban látható módon zárójelbe tesszük a lap sorrendjét. Így nem kell leírnunk az átnevezendő Sheet nevét. Csak az adott Sheet szekvenciája működne.

Code:

Sub VBA_RenameSheet2()Sheets(1).SelectEnd Sub

Lépés 3: A következő sorban tekintsük a Name funkciót a kiválasztott Sheet szekvenciájával az alábbiakban látható módon.

Code:

Sub VBA_RenameSheet2()Sheets(1).SelectSheets(1).Name =End Sub

Lépés 4: Most írjuk be a nevet, amelyet a kiválasztott Sheet1-nek szeretnénk adni. Tekintsük a fenti példákban látott nevet “átnevezett Sheet”-nek.

Code:

Sub VBA_RenameSheet2()Sheets(1).SelectSheets(1).Name = "renamed Sheet"End Sub

5. lépés: Most fordítsuk le újra a kódot és futtassuk le. Észre fogjuk venni, hogy a Sheet1 most ismét “átnevezett Sheet”-re lett átnevezve, ahogy az alább látható.

VBA Rename Sheet – Example #4

Ebben a példában azt fogjuk látni, hogyan lehet egy sor kóddal bármelyik munkalapot átnevezni.

1. lépés: Nyissunk egy modult, és írjuk meg a VBA Rename Sheet alkategóriát, ahogy az alább látható.

Code:

Sub VBA_RenameSheet3()End Sub

Step 2: Válasszuk ki azt a lapsorozatot, amelyet át akarunk nevezni a Name funkcióval együtt, és adjunk meg egy nevet, amellyel át akarjuk nevezni az adott lapot az alábbiakban látható módon.

Code:

Sub VBA_RenameSheet3()Sheets(1).Name = "rename Sheet"End Sub

Step 3: Most egyszerűen futtassuk a kódot a végrehajtáshoz. Ismét meg fogjuk figyelni, hogy Sheet1 most át van nevezve “Rename Sheet”

Pros of Excel VBA Rename Sheet

• Ha több átnevezendő lapunk van, akkor a VBA kód használata sokkal jobb, mint a kézi folyamat.
• Megváltoztathatjuk bármelyik Excel munkalap nevét egysoros VBA kóddal, amit a 4. példában láttunk.
• Bár manuálisan is egyszerű módja bármelyik lap nevének megváltoztatása. De a VBA lap átnevezése nagyon hasznos, amikor új lapot hozunk létre, és azt szeretnénk elkülöníteni más lapokkal, csak azért, hogy kategorizáljuk.

Megjegyzendő dolgok

• Azért, hogy jobban láthassuk a változásokat, tartsuk a VBA ablakot az excel lapokkal párhuzamosan, így a lap nevének megváltoztatása jól látható lesz.
• A fájl mentése a munka elvégzése után a Macro enable formátumban lehetővé teszi számunkra, hogy megőrizzük a kódot a jövőbeli munkához is.
• A lapnév megváltoztatásának folyamatának automatizálása segít nekünk a lapok és adatok kategorizálására fordított idő csökkentésében.

Javasolt cikkek

Ez egy útmutató a VBA Rename Sheet. Itt tárgyaljuk, hogyan lehet átnevezni Sheet az Excelben a VBA kód segítségével néhány gyakorlati példával és letölthető excel sablonnal együtt. Átnézheti más javasolt cikkeinket is –

1. VBA munkafüzet
2. VBA munkalap elnevezése
3. VBA lap védelme feloldása
4. VBA lap védelme

.