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 udobnosti, 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", tada moramo list 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“
Tako možemo naziv radnog lista preimenovati 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.
Primjer # 1 - Promjena ili preimenovanje lista pomoću VBA varijabli.
Na 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".
Sad, koristeći varijablu “Ws”, radni sam list preimenovao 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 Subscripta 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" nije dostupan, 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
Budući da u kodiranju radimo s imenima listova, važno je postaviti im trajna imena. Kako im postaviti stalna imena?
Na primjer, pogledajte donji kod.
Kodirati:
Sub Preimenuj_Primjer3 () Radni listovi ("List1"). Odaberite End Sub
Gornji kod će odabrati Sheet1.
Ako vašu radnu knjigu koristi mnogo ljudi, ako je netko promijenio ime radnog lista, dobit ćemo pogrešku 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.”
Ako kôd pokrenem pomoću tipke F5 ili ručno, on će i dalje odabrati samo list s nazivom "Prodaja". Budući da smo mu dali trajno ime, i dalje će odabrati samo isti list.
