Lappušu pārdēvēšana programmā Excel tiek veikta no uzdevumjoslas, zem kuras darblapas atrodas, veicot dubultklikšķi uz tām, taču VBA lapas pārdēvēšanai mēs izmantojam rekvizītu metodi Sheets vai Worksheet, lapas nosaukuma sintezēšana VBA ir šāda Sheets (“ Old Sheet Name ”). Name =“ New Sheet name ”.
Pārdēvēt lapu programmā Excel VBA
Mēs visi esam veikuši šo uzdevumu, pārdēvējot darblapu atbilstoši savai identitātei vai ērtībai, vai ne? Pārdēvēšana nav raķešu zinātne, lai apgūtu, bet, ja esat VBA kodētājs, jums jāzina šis uzdevums - pārdēvēt darblapu. Tā kā mēs strādājam ar darblapām, izmantojot to nosaukumus, ir svarīgi zināt darblapu nosaukumu nozīmi VBA kodēšanā. Šajā rakstā mēs parādīsim, kā pārdēvēt lapu, izmantojot Excel VBA kodēšanu.
Kā pārdēvēt lapu VBA?
Lai mainītu darblapas nosaukumu, nav nepieciešamas īpašas prasmes. Mums vienkārši jānorāda, kuras lapas nosaukumu mēs mainām, ievadot esošās lapas nosaukumu.
Piemēram, ja mēs vēlamies pārdēvēt lapu ar nosaukumu “1. lapa”, tad mums ir jāsauc lapa ar tās nosaukumu, izmantojot objektu Darblapa.
Darblapas (“Sheet1”)
Pēc lapas nosaukuma pieminēšanas mums jāizvēlas rekvizīts “Nosaukums”, lai pārdēvētu darblapas nosaukumu.
Darblapas (“Sheet1”). Nosaukums
Tagad mums ir jāiestata nosaukums Nosaukums atbilstoši mūsu vēlmēm.
Darblapas (“Sheet1”). Name = “New Name”
Šādi mēs varam pārdēvēt darblapas nosaukumu VBA, izmantojot rekvizītu Name.
Turpmākajās raksta sadaļās mēs parādīsim arvien jaunus darblapas mainīšanas vai pārdēvēšanas piemērus.
Darblapu pārdēvēšanas piemēri programmā Excel VBA
Zemāk ir VBA pārdēvēšanas lapas piemēri.
1. piemērs - mainiet vai pārdēvējiet lapu, izmantojot VBA mainīgos.
Piemēram, apskatiet zemāk redzamo koda paraugu.
Kods:
Apdēvēt_piemērs1 () Aptumšot Ws kā darblapu kopu Ws = Darblapas ("Sheet1") Ws.Name = "Jauna lapa" Beigu apakšdaļa
Iepriekš minētajā kodā es mainīju mainīgo kā darblapu.
Dim Ws kā darblapa
Pēc tam, izmantojot darblapu objektu, esmu iestatījis atsauci uz mainīgo kā “Sheet1”.
Iestatīt Ws = darblapas ("Sheet1")
Tagad mainīgajam “Ws” ir atsauce uz darblapu “Sheet1”.
Tagad, izmantojot mainīgo “Ws”, darblapu esmu pārdēvējis par “Jauna lapa”.
Šis kods nomainīs “Sheet1” nosaukumu uz “New Sheet”.
Ja es palaidu kodu manuāli vai caur īsinājumtaustiņu F5, tad atkal mēs saņemsim kļūdu Subscript Out of Range.
Iemesls, kāpēc mēs saņemam šo kļūdu, jo pašā iepriekšējā darbībā darblapu ar nosaukumu “Sheet1” mēs esam mainījuši uz “New Sheet”. Tā kā vairs nav darblapas nosaukuma, “Sheet1” nav pieejams, VBA izmet šo kļūdu.
2. piemērs - iegūstiet visus darblapu nosaukumus vienā lapā.
Mēs varam iegūt visus darbgrāmatas darblapu nosaukumus vienā lapā. Zemāk redzamais kods izraksta visus darblapu nosaukumus.
Kods:
Sub Renmae_Example2 () Dim Ws kā darblapa Dim LR tikpat garš katram W ActiveWorkbook.Worksheets LR = darblapas ("Galvenā lapa"). Šūnas (Rows.Count, 1) .End (xlUp) .Rinda + 1 šūnas (LR, 1). Atlasiet ActiveCell.Value = Ws.Name Next Ws End Sub
Šis kods izvelk visus pieejamos darblapu nosaukumus lapā ar nosaukumu “Galvenā lapa”.
3. piemērs - iestatiet pastāvīgo nosaukumu Excel darblapā, izmantojot VBA
Tā kā kodēšanā mēs strādājam ar lapu nosaukumiem, ir svarīgi tiem iestatīt pastāvīgus nosaukumus. Kā mēs viņiem nosakām pastāvīgus nosaukumus?
Piemēram, apskatiet zemāk redzamo kodu.
Kods:
Apakšdēvēt_piemers3 () darblapas ("1. lapa"). Atlasiet Beigu beigas
Iepriekš minētais kods atlasīs lapu Sheet1.
Ja jūsu darbgrāmatu izmanto daudzi cilvēki, ja kāds mainīja darblapas nosaukumu, mēs saņemsim kļūdu 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.”
Ja es palaidu kodu, izmantojot F5 taustiņu vai manuāli, tas joprojām izvēlēsies lapu tikai ar nosaukumu “Pārdošana”. Tā kā mēs tam bijām devuši pastāvīgu nosaukumu, tas joprojām atlasīs tikai to pašu lapu.
