U ovom će članku biti riječi o objektu ActiveSheet u VBA -i. Također će se raspravljati o tome kako aktivirati, odabrati i otići na radne listove (i još mnogo toga). Pročitajte naš potpuni VBA Vodič za radne listove za više informacija o radu s radnim listovima u VBA -i.
ActiveSheet
U VBA, ActiveSheet se odnosi na trenutno aktivni radni list. Odjednom može biti aktivan samo jedan list.
Aktiviranje radnog lista (postavljanje aktivnog lista)
Da biste postavili ActiveSheet, koristite Radni list.Aktivirajte:
| 1 | Radni listovi ("Unos"). Aktivirajte |
Naredba Activate Sheet zapravo će "otići" na list, mijenjajući vidljivi Sheet.
Gornji primjer koristi naziv Sheet (Tab). Umjesto toga možete koristiti VBA kodni naziv za radni list:
| 1 | List1.Aktiviraj |
Naziv aktivnog lista
Da biste dobili naziv ActiveSheet:
| 1 | msgbox ActiveSheet.name |
Odabrani listovi vs ActiveSheet
U bilo kojem trenutku samo jedan list može biti ActiveSheet. Međutim, više radnih listova može se odabrati odjednom.
Kad je odabrano više radnih listova, samo se radni list s najvišom oznakom smatra aktivnim (ActiveSheet).
Odaberite Radni list
Ako želite odabrati radni list umjesto da ga aktivirate. Koristite .Izaberite umjesto toga.
Odaberite radni list prema nazivu kartice
Ovo odabire radni list na temelju naziva kartice Tablica
| 1 | Tablice ("Unos"). Odaberite |
Odaberite radni list prema broju indeksa
Ovo odabire radni list na temelju njegovog položaja u odnosu na druge kartice
| 1 | Radni listovi (1). Odaberite |
Odaberite radni list s VBA kodnim nazivom
| 1 | List1.Odaberi |
Odabirom radnih listova prema kodnom nazivu mogu se spriječiti pogreške uzrokovane promjenom naziva radnog lista.
Odaberite Trenutni radni list
Za odabir trenutnog radnog lista upotrijebite objekt ActiveSheet:
| 1 | ActiveSheet.Odaberi |
Više Aktiviraj / Odaberite primjere listova
Postavite ActiveSheet na Variable
Time će se ActiveSheet dodijeliti varijabli objekta radnog lista.
| 123 | Zatamni kao radni listPostavite ws = ActiveSheet |
Promijenite naziv aktivnog lista
To će promijeniti naziv aktivnog lista.
| 1 | ActiveSheet.Name = "Novo ime" |
Uz ActiveSheet
Korištenje With Statementa omogućuje vam da pojednostavite svoj kôd pri radu s objektima (kao što su Tablice ili ActiveSheet).
| 12345 | Uz ActiveSheet.Name = "StartFresh".Čelije.Jasno.Range ("A1"). Vrijednost = .NazivZavrši s |
Primijetite kako ne morate ponavljati "ActiveSheet" prije svakog retka koda. Ovo može uštedjeti vrijeme pri radu s dugim popisom naredbi.
Prođite kroz odabrane listove
Sljedeći će makro proći kroz sve odabrane listove i prikazati njihova imena.
| 12345678 | Sub GetSelectedSheetsName ()Zatamni kao radni listZa svaki ws u ActiveWindow.SelectedSheetsMsgBox ws.NameSljedeći wsKraj podm |
Idi na sljedeći list
Ovaj kôd ide na sljedeći list. Ako je ActiveSheet posljednji list, tada će otići na prvi list u radnoj knjizi.
| 12345 | Ako je ActiveSheet.Index = Radni listovi.Prebroji tadaRadni listovi (1) .AktivirajDrugoActiveSheet.Next.ActivateZavrši ako |
