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 következő: 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 identitásunk vagy kényelmünk szerint, nem igaz? Az átnevezés nem egy rakéta-tudomány, hogy elsajátítsuk, de ha Ön a VBA-kódoló, akkor ismernie kell ezt a feladatot a munkalap átnevezésével. Mivel a munkalapokkal a nevük használatával dolgozunk, fontos tudni, hogy a munkalapok milyen fontosak a VBA kódolásban. Ebben a cikkben megmutatjuk, hogyan nevezheti át a lapot az Excel VBA kódolással.
Hogyan nevezzük át a lapot a VBA-ban?
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 segítségével a lapot a nevén kell hí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 Név 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.
1. példa - A lap módosítása vagy átnevezése VBA-változók segítségével.
Nézze meg például 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 „Új lap” -ra.
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 egy Alaptartomány tartományon kívüli hibát kapunk.
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 kódolásban lapnevekkel dolgozunk, fontos, hogy állandó neveket állítsunk be hozzájuk. Hogyan állíthatunk be nekik állandó neveket?
Nézze meg például 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.
To avoid this, we can set the permanent name to it. To set the permanent name to follow the below steps.
Step 1: Select the sheet we need to set the permanent name to in Visual Basic Editor.
Step 2: Press the F4 key to see the Properties window.
Step 3: Under Name, Property Change the name to “New Name.”
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.”
Ha az F5 billentyűvel vagy manuálisan futtatom a kódot, akkor is csak az „Értékesítés” nevű lapot választja ki. Mivel állandó nevet adtunk neki, akkor is csak ugyanazt a lapot fogja kiválasztani.
