Az excelben a munkalapok átnevezése a tálcáról történik, amelyre duplán kattintanak, de a VBA-ban a Sheets vagy a Worksheet tulajdonság metódust használjuk a lap átnevezéséhez, a szintaxis a lap átnevezéséhez a VBA-ban a következő Sheets ( Régi lap neve ”). Név =„ Új lap neve ”.
A Lap átnevezése az Excel VBA alkalmazásban
Mindannyian elvégeztük ezt a feladatot, hogy átnevezzük a munkalapot személyazonosságunk vagy kényelmünk szerint. Az átnevezés nem a rakétatudomány elsajátítása, de ha Ön a VBA-kódoló, akkor ismernie kell ezt a feladatot a munkalap átnevezésével. Mivel munkalapokkal a nevük használatával dolgozunk, fontos ismerni a munkalapok nevének fontosságát a VBA kódolásban. Ebben a cikkben megmutatjuk, hogyan nevezheti át a lapot az Excel VBA kódolással.
Hogyan nevezhetjük át a VBA lapot?
A munkalap nevének megváltoztatásához nincs szükség különösebb ismeretekre. Csak a meglévő lap nevének megadásával kell utalnunk arra, hogy melyik lap nevét változtatjuk meg.
Például, ha át akarjuk nevezni az „1. lap” névre keresztelt lapot, akkor a Munkalap objektum használatával a lapot annak nevével kell meghívnunk.
Munkalapok („Sheet1”)
A lap nevének megemlítése után ki kell választanunk a „Név” tulajdonságot a munkalap nevének átnevezéséhez.
Munkalapok („Sheet1”). Név
Most meg kell állítanunk a Name tulajdonságot a névre, a kívánságunknak megfelelően.
Munkalapok („1. lap”). Név = „Új név”
Így átnevezhetjük a munkalap nevét a VBA-ban a Name tulajdonság segítségével.
A cikk következő szakaszaiban egyre több példát mutatunk be a munkalap megváltoztatására vagy átnevezésére.
Példák a munkalapok átnevezésére az Excel VBA-ban
Az alábbiakban bemutatjuk a VBA átnevezési lap példáit.
Itt töltheti le ezt a VBA Átnevezés Lap Sablont - VBA Átnevezés Lap Sablont1. példa - Lap módosítása vagy átnevezése VBA-változók használatával.
Példaként tekintse meg az alábbi mintakódot.
Kód:
Sub Rename_Példa1 () Dim Ws mint munkalapkészlet Ws = munkalapok ("Sheet1") Ws.Name = "New Sheet" End Sub 
A fenti kódban először a változót munkalapnak nyilvánítottam.
Dim Ws munkalapként
Ezután a változóra való hivatkozást "Sheet1" -ként állítottam be a munkalapok objektum segítségével.
Set Ws = munkalapok ("Sheet1")Most a „Ws” változó a „Sheet1” munkalap hivatkozását tartalmazza.
Most a „Ws” változó használatával átneveztem a munkalapot „New Sheet” -re.
Ez a kód a „Sheet1” nevet „New Sheet” -re változtatja.
Ha manuálisan vagy az F5 gyorsbillentyűn keresztül futtatom a kódot, akkor ismét az alsó index hibáját kapjuk.
Azért kapjuk ezt a hibát, mert az előző lépésben már megváltoztattuk a „Sheet1” nevű munkalapot „New Sheet” -re. Mivel már nincs munkalap neve, a „Sheet1” nem érhető el, a VBA dobja ezt a hibát.
2. példa - Az összes munkalap-nevet egyetlen lapban szerezheti be.
A munkafüzet összes munkalap-nevét egyetlen lapban megkaphatjuk. Az alábbi kód kibontja az összes munkalap nevét.
Kód:
Sub Renmae_Example2 () Dim Ws as Workheet Dim LR Long as Long for Every Ws in ActiveWorkbook.Worksheets LR = Worksheetets ("Main Sheet"). Cellák (Rows.Count, 1) .End (xlUp) .Row + 1 Cellák (LR, 1). Válassza az ActiveCell.Value = Ws.Név Next Ws End Sub elemet 
Ez a kód kibontja az összes rendelkezésre álló munkalapnevet a „Fő lap” nevű lapra.
3. példa - Állítsa az állandó nevet az Excel munkalapra a VBA használatával
Mivel a lapnevekkel dolgozunk a kódolásban, fontos állandó neveket beállítani hozzájuk. Hogyan állíthatunk be nekik állandó neveket?
Például nézze meg az alábbi kódot.
Kód:
Sub Rename_Example3 () munkalapok ("Sheet1"). Válassza a Sub Sub végét 
A fenti kód kiválasztja a Sheet1-et.
Ha a munkafüzetét sokan használják, ha valaki megváltoztatta a munkalap nevét, akkor az Subscript Out of Range hibát kapjuk.
Ennek elkerülése érdekében beállíthatjuk az állandó nevet. Az állandó név beállításához kövesse az alábbi lépéseket.
1. lépés: Válassza ki azt a lapot, amelyre az állandó nevet be kell állítanunk a Visual Basic Editorban.
2. lépés: Nyomja meg az F4 billentyűt a Tulajdonságok ablak megjelenítéséhez.
3. lépés: A Név, Tulajdonság alatt változtassa meg a nevet „Új névre”.
As you can see one name is showing as “Sheet1” and in a bracket, we can see the new name as “New Sheet”.
Now in coding, we will use the new name instead of an actual visible name.
Code:
Sub Rename_Example3() NewSheet.Select End Sub
Now come back to the worksheet window, we can still see the sheet name as “Sheet1” only.
Now I will change the sheet name to “Sales”.
If I run the code using the F5 key or manually then it will still select the sheet named “Sales” only. Since we had given a permanent name to it, still it will select the same sheet only.
