VBA Preimenovanje lista | Kako preimenovati Excelov delovni list s kodo VBA?

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 našem udobju, kajne? Preimenovanje ni raketna znanost, ki bi jo bilo mogoče obvladati, č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 v 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 z njegovim imenom 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.

To predlogo za preimenovanje listov VBA lahko prenesete tukaj - Predloga za preimenovanje listov VBA

Primer # 1 - Spremenite ali preimenujte list s spremenljivkami VBA.

Za primer si oglejte 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 ime delovnega lista »Sheet1« ni več na voljo, VBA vrže 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, jim je pomembno nastaviti stalna imena. Kako jim določimo stalna imena?

Za primer si oglejte 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.

Da bi se temu izognili, mu lahko nastavimo stalno ime. Če želite nastaviti stalno ime, sledite spodnjim korakom.

1. korak: V urejevalniku Visual Basic izberite list, na katerega moramo nastaviti stalno ime.

2. korak: Pritisnite tipko F4, da se prikaže okno Lastnosti.

3. korak: Pod Ime, Lastnost spremenite ime v »Novo ime«.

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.