VBA preimenovanje lista | Kako preimenovati radni list Excel pomoću VBA koda?

Preimenovanje listova u Excelu vrši se na programskoj traci ispod radnih listova dvostrukim klikom na njih, ali u VBA za preimenovanje lista koristimo metodu Sheets ili Worksheet svojstvo, sintaksa za preimenovanje lista u VBA je sljedeća Sheets („ Ime starog lista "). Name =" Novo ime lista ".

Preimenuj list u programu Excel VBA

Svi smo obavili ovaj zadatak preimenovanja radnog lista prema našem identitetu ili prema našoj pogodnosti, zar ne? Preimenovanje nije raketna znanost kojom se treba ovladati, ali ako ste VBA koder, tada morate znati ovaj zadatak preimenovanja radnog lista. Budući da radimo s radnim listovima koristeći njihova imena, važno je znati važnost imena radnih listova u VBA kodiranju. U ovom ćemo vam članku pokazati kako preimenovati list pomoću Excel VBA kodiranja.

Kako preimenovati list u VBA?

Za promjenu naziva radnog lista nisu potrebne posebne vještine. Samo trebamo uputiti koji naziv lista mijenjamo unošenjem postojećeg naziva lista.

Na primjer, ako želimo preimenovati list nazvan "List 1", list moramo nazvati njegovim imenom pomoću objekta Worksheet.

Radni listovi (“List1”)

Nakon spominjanja imena lista moramo odabrati svojstvo “Name” da bismo preimenovali naziv radnog lista.

Radni listovi (“List1”). Ime

Sada moramo postaviti svojstvo Name na ime prema našoj želji.

Radni listovi („List1“). Name = „Novo ime“

Na ovaj način možemo preimenovati naziv radnog lista u VBA pomoću svojstva Name.

U sljedećim odjeljcima članka pokazat ćemo vam sve više primjera mijenjanja ili preimenovanja radnog lista.

Primjeri preimenovanja radnih listova u programu Excel VBA

Ispod su primjeri VBA lista za preimenovanje.

Ovaj VBA predložak za preimenovanje listova možete preuzeti ovdje - VBA predložak za preimenovanje lista

Primjer # 1 - Promjena ili preimenovanje lista pomoću VBA varijabli.

Za primjer pogledajte donji uzorak koda.

Kodirati:

 Sub Preimenuj_Primjer1 () Dim Ws As Worksheet Set Ws = Worksheets ("Sheet1") Ws.Name = "New Sheet" End Sub 

Prvo sam u gornjem kodu varijablu proglasio kao Radni list.

 Zatamni kao radni list

Dalje, referencu na varijablu postavio sam kao "Sheet1" pomoću objekta radnog lista.

 Postavi Ws = radne listove ("List1")

Sada varijabla "Ws" sadrži referencu radnog lista "List1".

Sada sam koristeći varijablu “Ws” preimenovao radni list u “New Sheet”.

Ovaj kod promijenit će naziv "Sheet1" u "New Sheet".

Ako kôd pokrenem ručno ili putem tipke prečaca F5, opet ćemo dobiti pogrešku Subscript Out of Range.

Razlog zašto dobivamo ovu pogrešku jer smo u prethodnom koraku već promijenili radni list s nazivom "Sheet1" u "New Sheet". Budući da više ne postoji naziv radnog lista "Sheet1", VBA baca ovu pogrešku.

Primjer # 2 - Dohvatite sva imena radnog lista u jednom listu.

Na jednom listu možemo dobiti sva imena radnog lista u radnoj knjizi. Kôd u nastavku izdvojit će sva imena radnog lista.

Kodirati:

 Sub Renmae_Example2 () Zatamni W kao radni list Zatamni LR koliko dugo za svaki W u ActiveWorkbook.Worksheets LR = Radni listovi ("Glavni list"). Ćelije (Rows.Count, 1) .End (xlUp) .Red + 1 Cells (LR, 1) .Odaberite ActiveCell.Value = Ws.Name Sljedeće Ws End Sub 

Ovaj će kôd izdvojiti sva dostupna imena radnog lista na list s nazivom "Glavni list".

Primjer # 3 - Postavite trajno ime na Excel radni list pomoću VBA

Since we work with sheet names in coding it is important to set permanent names to them. How do we set permanent names for them?

For an example look at the below code.

Code:

 Sub Rename_Example3() Worksheets("Sheet1").Select End Sub 

The above code will select the Sheet1.

If your workbook is used by many people, if someone changed the name of the worksheet then we will get the Subscript Out of Range error.

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 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”.

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.