Preimenovanje listov v Excelu se opravi iz opravilne vrstice pod delovnimi listi, tako da jih dvokliknete, vendar v VBA za preimenovanje lista uporabimo metodo Lastnosti ali Delovni list, sintaksa za preimenovanje lista v VBA pa je naslednja Listi (" Ime starega lista "). Name =" Ime novega lista ".
Preimenuj list v Excelu VBA
Vsi smo opravili to nalogo, da smo preimenovali delovni list po svoji identiteti ali po svojem udobju, kajne? Preimenovanje ni raketna znanost za obvladovanje, če pa ste kodirnik VBA, morate to nalogo preimenovanja delovnega lista poznati. Ker delamo z delovnimi listi z uporabo njihovih imen, je pomembno vedeti pomen imen delovnih listov pri kodiranju VBA. V tem članku vam bomo pokazali, kako preimenovati list s pomočjo kodiranja Excel VBA.
Kako preimenovati list v VBA?
Če spremenite ime delovnega lista, ne potrebujete posebnih veščin. Samo vnesti moramo obstoječe ime lista, katero ime lista spreminjamo.
Če želimo na primer list preimenovati kot „List 1“, moramo list poklicati po imenu z uporabo predmeta Worksheet.
Delovni listi (»List1«)
Po omembi imena lista moramo izbrati lastnost “Name”, da preimenujemo ime delovnega lista.
Delovni listi (»List1«). Ime
Zdaj moramo lastnost Name nastaviti na ime po naši želji.
Delovni listi (“Sheet1”). Name = “Novo ime”
Tako lahko tudi ime delovnega lista v VBA preimenujemo z lastnostjo Name.
V naslednjih odsekih članka vam bomo pokazali vedno več primerov spreminjanja ali preimenovanja delovnega lista.
Primeri preimenovanja delovnih listov v programu Excel VBA
Spodaj so primeri VBA preimenovalnega lista.
Primer # 1 - Spremenite ali preimenujte list s spremenljivkami VBA.
Na primer, poglejte spodnjo vzorčno kodo.
Koda:
Sub Preimenuj_Primer1 () Dim Ws As Worksheet Set Ws = Worksheets ("Sheet1") Ws.Name = "New Sheet" End Sub
V zgornji kodi sem spremenljivko najprej razglasil kot Worksheet.
Dim Ws As Delovni list
Nato sem referenco na spremenljivko nastavil kot »Sheet1« z uporabo predmeta delovnih listov.
Nastavite Ws = Delovni listi ("List1")
Zdaj ima spremenljivka "Ws" sklic na delovni list "Sheet1".
Zdaj sem s spremenljivko "Ws" preimenoval delovni list v "New Sheet".
Ta koda bo spremenila ime »Sheet1« v »New Sheet«.
Če zaženem kodo ročno ali prek bližnjične tipke F5, bomo spet dobili napako Subscript Out of Range.
Razlog za to napako, ker smo v prejšnjem koraku že spremenili delovni list z imenom »Sheet1« v »New Sheet«. Ker imena delovnega lista ni več, »Sheet1« ni na voljo, VBA vrne to napako.
2. primer - Pridobite vsa imena delovnih listov v enem listu.
Na enem listu dobimo vsa imena delovnih listov delovnega zvezka. Spodnja koda bo izvlekla vsa imena delovnih listov.
Koda:
Sub Renmae_Example2 () Dim Ws as Worksheet Dim LR As Long for Every Ws in ActiveWorkbook.Worksheets LR = Worksheets ("Main Sheet"). Celice (Rows.Count, 1) .End (xlUp) .Row + 1 Cells (LR, 1) .Izberite ActiveCell.Value = Ws.Name Next Ws End Sub
Ta koda bo izvlekla vsa razpoložljiva imena delovnih listov na list z imenom »Glavni list«.
3. primer - nastavite stalno ime na Excelovem delovnem listu z uporabo VBA
Ker pri kodiranju delamo z imeni listov, je pomembno, da jim nastavimo stalna imena. Kako jim določimo stalna imena?
Na primer, poglejte spodnjo kodo.
Koda:
Sub Preimenuj_Primer3 () Delovni listi ("List1"). Izberite End Sub
Zgornja koda bo izbrala Sheet1.
Če vaš delovni zvezek uporablja veliko ljudi, če je nekdo spremenil ime delovnega lista, bomo dobili napako 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.”
Če zaženem kodo s tipko F5 ali ročno, bo še vedno izbral samo list z imenom »Prodaja«. Ker smo mu dali stalno ime, bo še vedno izbral samo isti list.
