Excel VBA Naziv radnog lista
U VBA-u za imenovanje radnog lista nisu potrebne posebne vještine. Samo trebamo uputiti koji naziv lista mijenjamo unošenjem postojećeg naziva lista. Na primjer, ako želimo promijeniti list s nazivom "Prodaja", list moramo nazvati njegovim imenom pomoću objekta Worksheet.
Radni listovi ("Prodaja")
Nakon spominjanja imena lista, moramo odabrati svojstvo “Name” da bismo promijenili naziv radnog lista.
Radni listovi ("Prodaja"). Ime
Sada moramo postaviti svojstvo Name na ime prema našoj želji. Pretpostavimo da želite promijeniti "Prodaja" u "Prodajni list", a zatim stavite znak jednakosti nakon svojstva "NAME" i unesite novo ime u dvostruke navodnike.
Radni listovi ("Prodaja"). Naziv = "Prodajni list"
Na ovaj način možemo promijeniti naziv radnog lista pomoću svojstva Name.
Primjeri imenovanja radnog lista pomoću VBA
Primjer # 1
Promijenite ili preimenujte list pomoću varijabli.
Na primjer, pogledajte donji uzorak koda.
Kodirati:
Sub Name_Example1 () Dim Ws As Worksheet Set Ws = Worksheets ("Sales") Ws.Name = "Sales Sheet" End Sub
U prvom gore, varijablu sam proglasio kao Radni list.
Zatamni kao radni list
Dalje, referencu na varijablu postavio sam kao "Prodaja" pomoću objekta radnih listova.
Postavi Ws = radne listove ("Prodaja")
Sada varijabla "Ws" sadrži referencu radnog lista "Prodaja".
Sad, koristeći varijablu "Ws", radni sam list preimenovao u "Prodajni list".
Ovaj će kôd promijeniti naziv "Prodaja" u "Prodajni list".
Važna napomena koju treba zapamtiti
Upravo smo vidjeli kako promijeniti naziv excel radnog lista iz jednog u drugi naziv. Međutim, ako ponovno pokrenemo kôd, dobit ćemo pogrešku Subscript Out of Range.
Jedan od ključeva za dobivanje stručnjaka za VBA makronaredbe je rukovanje pogreškama. Prije rješavanja pogrešaka, moramo znati zašto dobivamo ovu pogrešku.
Razlog zašto dobivamo ovu pogrešku jer smo u prethodnom koraku već promijenili radni list pod nazivom "Prodaja" u "Prodajni list".
Nemamo nijedan list nazvan "Prodaja", dobit ćemo ovaj indeks izvan dometa.
Primjer # 2
Dohvatite sva imena radnog lista u pojedinačnom listu .
Pretpostavimo da imate puno radnih listova u svojoj radnoj knjizi i želite dobiti naziv svih tih radnih listova u bilo kojem pojedinačnom radnom listu. To se može postići korištenjem VBA kodiranja.
Na primjer, pogledajte donju sliku.
Ovdje imamo toliko listova.
Od svih ovih listova potrebno nam je ime svakog lista na listu nazvanom "Indeksni list". Napisao sam donji kod za vas.
Kodirati:
Sub All_Sheet_Names () Zatamni W kao radni list Dim LR Koliko dugo traje svaki W u ActiveWorkbook.Worksheets LR = Radni listovi ("Indeksni list"). Ćelije (Redovi.broj, 1) .Završetak (xlUp) .Row + 1 'Ovaj LR je iskoristiv kako biste pronašli zadnji korišteni redak Ćelije (LR, 1). Odaberite ActiveCell.Value = Ws.Name Sljedeće Ws End Sub
Sada kopirajte ovaj kod u svoj modul.
Sada pokrenite kôd imenovanjem bilo kojeg radnog lista kao "Indeksni list". Ovaj će kôd dati imena svih radnih listova u "Indeksnom listu".
Ovako, koristeći svojstvo "NAME" radnog lista u VBA-u, možemo se poigrati nazivom radnog lista. Možemo preimenovati, izdvojiti i možemo odabrati određeni radni list i učiniti mnoge druge stvari koje se mogu učiniti pomoću svojstva "Name".
Stvari koje treba zapamtiti
- NAME u VBA je vlasništvo.
- Pomoću ovog imena možemo preimenovati radni list, a također možemo izdvojiti i imena listova.
- Možemo promijeniti bilo koje ime radnog lista u navedenoj radnoj knjizi ako se referirate na druge radne knjige osim na radnu knjižicu napisanu kodom.
- Ako se naziv radnog lista ne podudara, dobit ćemo indeks izvan dosega.
