„Excel“ lapų pervadinimas atliekamas iš užduočių juostos, žemiau darbalapių yra du kartus spustelėjus ant jų, tačiau VBA mes naudojame „Sheets“ arba „Worksheet“ ypatybių metodą lapams pervardyti, sintaksė pervardyti lapą VBA yra tokia „Sheets“ („ Senojo lapo pavadinimas “). Pavadinimas =„ Naujo lapo pavadinimas “.
Pervardykite „Excel VBA“ lapą
Mes visi atlikome šią užduotį - pervadinti darbalapį pagal savo tapatybę ar pagal patogumą, ar ne? Pervardijimas nėra raketų mokslas, kurį reikia įvaldyti, tačiau jei esate VBA koduotojas, turite žinoti šią užduotį - pervardyti darbalapį. Kadangi dirbame su darbalapiais naudodami jų pavadinimus, svarbu žinoti darbalapių pavadinimų svarbą VBA koduojant. Šiame straipsnyje mes parodysime, kaip pervardyti lapą naudojant „Excel VBA“ kodavimą.
Kaip pervardyti lapą VBA?
Keičiant darbalapio pavadinimą nereikia jokių specialių įgūdžių. Mes tiesiog turime nurodyti, kurio lapo pavadinimą keičiame, įvesdami esamą lapo pavadinimą.
Pvz., Jei norime pervadinti lapą pavadinimu „1 lapas“, tada turime paskambinti lapą jo vardu, naudodami objektą „Darbalapis“.
Darbalapiai („Sheet1“)
Paminėjus lapo pavadinimą, turime pasirinkti ypatybę „Pavadinimas“, kad pervardytumėte darbalapio pavadinimą.
Darbalapiai („Sheet1“). Pavadinimas
Dabar mes turime nustatyti „Name“ ypatybę į pavadinimą pagal mūsų norus.
Darbalapiai („Sheet1“). Pavadinimas = „Naujas vardas“
Taip galime pavadinti darbalapio pavadinimą VBA naudodami ypatybę Pavadinimas.
Tolesniuose straipsnio skyriuose parodysime vis daugiau ir daugiau darbalapio keitimo ar pervadinimo pavyzdžių.
Pervardyti darbalapius „Excel VBA“ pavyzdžiai
Žemiau pateikiami VBA pervadinimo lapo pavyzdžiai.
1 pavyzdys - Pakeiskite arba pervardykite lapą naudodami VBA kintamuosius.
Pvz., Pažiūrėkite į žemiau pateiktą pavyzdinį kodą.
Kodas:
Sub Rename_Example1 () Dim Ws as Worksheet Set Ws = Worksheet ("Sheet1") Ws.Name = "New Sheet" End Sub
Pirmiau minėtame kode kintamąjį paskelbiau darbalapiu.
„Dim Ws“ kaip darbalapis
Toliau aš nustatiau kintamojo nuorodą kaip „Sheet1“, naudodamasis darbalapių objektu.
Nustatyti Ws = darbalapiai („Sheet1“)
Dabar kintamasis „Ws“ turi darbalapio „Sheet1“ nuorodą.
Dabar naudodamas kintamąjį „Ws“, aš pervadinau darbalapį kaip „Naujas lapas“.
Šis kodas pakeis „Sheet1“ pavadinimą į „New Sheet“.
Jei paleidžiu kodą rankiniu būdu arba naudodamas spartųjį klavišą F5, vėl gausime klaidą „Subscript Out Range“.
Priežastis, kodėl gauname šią klaidą, nes ankstesniame etape mes jau pakeitėme darbalapį pavadinimu „Sheet1“ į „New Sheet“. Kadangi nebėra darbalapio pavadinimo, „Sheet1“ nėra, VBA meta šią klaidą.
2 pavyzdys - visus darbalapių pavadinimus gaukite viename lape.
Visus darbaknygės darbalapių pavadinimus galime gauti viename lape. Žemiau pateiktas kodas išgaus visus darbalapių pavadinimus.
Kodas:
Sub Renmae_Example2 () „Dim Ws“ kaip darbalapis „Dim LR“ ilgas kiekvienam „ActiveWorkbook“ darbalaukiui. Darbo lapai LR = darbalapiai („Pagrindinis lapas“). Ląstelės (Rows.Count, 1) .End (xlUp). Eilutė + 1 ląstelės (LR, 1). Pasirinkite ActiveCell.Value = Ws.Name Next Ws End Sub
Šis kodas išgaus visus galimus darbalapių pavadinimus į lapą pavadinimu „Pagrindinis lapas“.
3 pavyzdys - nustatykite nuolatinį pavadinimą „Excel“ darbalapyje naudodami VBA
Kadangi koduodami dirbame su lapų pavadinimais, svarbu jiems nustatyti nuolatinius pavadinimus. Kaip jiems nustatyti nuolatinius vardus?
Pavyzdžiui, pažvelkite į žemiau pateiktą kodą.
Kodas:
Sub Rename_Example3 () darbalapiai ("Sheet1"). Pasirinkite End Sub
Aukščiau pateiktas kodas pasirinks „Sheet1“.
Jei jūsų darbaknygę naudoja daugelis žmonių, jei kas nors pakeitė darbalapio pavadinimą, gausime klaidą „Subscript Out of Range“.
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.”
Jei paleidžiu kodą naudodamas F5 klavišą arba rankiniu būdu, jis vis tiek pasirenka lapą pavadinimu „Pardavimai“. Kadangi mes jam suteikėme nuolatinį pavadinimą, jis vis tiek pasirinks tik tą patį lapą.
