Ta članek bo obravnaval objekt ActiveSheet v VBA. Razpravljalo se bo tudi o tem, kako aktivirati, izbrati in iti na delovne liste (in še veliko več). Za več informacij o delu z delovnimi listi v VBA preberite naš celoten Vodnik po delovnih listih VBA.
ActiveSheet
V VBA se ActiveSheet nanaša na trenutno aktivni delovni list. Naenkrat je lahko aktiven le en list.
Aktiviraj delovni list (nastavitev lista ActiveSheet)
Če želite nastaviti ActiveSheet, uporabite delovni list. Aktivirajte:
| 1 | Delovni listi ("Vnos"). Aktivirajte |
Ukaz Aktiviraj list bo dejansko »odšel« na list in spremenil vidni list.
Zgornji primer uporablja ime Sheet (Tab). Namesto tega lahko za delovni list uporabite kodno ime VBA:
| 1 | List 1. Aktivirajte |
Ime aktivnega lista
Če želite dobiti ime ActiveSheet:
| 1 | msgbox ActiveSheet.name |
Izbrani listi proti ActiveSheet
V vsakem trenutku je lahko le en list ActiveSheet. Lahko pa izberete več delovnih listov hkrati.
Če je izbranih več delovnih listov, se za aktivnega šteje le "zgornji" delovni list (ActiveSheet).
Izberite Delovni list
Če želite izbrati delovni list, namesto da ga aktivirate. Uporabi. Namesto tega izberite.
Izberite delovni list glede na ime zavihka
Ta izbere delovni list glede na ime zavihka lista
| 1 | Listi ("Vnos"). Izberite |
Izberite delovni list glede na indeksno številko
Ta izbere delovni list glede na njegov položaj glede na druge zavihke
| 1 | Delovni listi (1). Izberite |
Izberite delovni list s kodnim imenom VBA
| 1 | List 1. Izberite |
Izbira delovnih listov po kodnem imenu lahko prepreči napake, ki jih povzročijo spremembe imena delovnega lista.
Izberite Trenutni delovni list
Če želite izbrati trenutni delovni list, uporabite objekt ActiveSheet:
| 1 | ActiveSheet. Izberite |
Več Aktiviraj / Izberi primere listov
Nastavite ActiveSheet na spremenljivo
To bo ActiveSheet dodelilo spremenljivki predmeta delovnega lista.
| 123 | Zatemni kot delovni listNastavite ws = ActiveSheet |
Spremenite ime ActiveSheet
To bo spremenilo ime ActiveSheet.
| 1 | ActiveSheet.Name = "Novo ime" |
Z ActiveSheet
Uporaba stavka With vam omogoča racionalizacijo kode pri delu s predmeti (kot so Sheets ali ActiveSheet).
| 12345 | Z ActiveSheet.Name = "StartFresh".Cells.Clear.Range ("A1"). Vrednost = .ImeKončaj s |
Upoštevajte, kako vam ni treba ponavljati »ActiveSheet« pred vsako vrstico kode. To lahko prihrani veliko časa pri delu z dolgim seznamom ukazov.
Prelistajte izbrane liste
Naslednji makro bo pregledal vse izbrane liste in prikazal njihova imena.
| 12345678 | Sub GetSelectedSheetsName ()Zatemni kot delovni listZa vsako ws v ActiveWindow.SelectedSheetsMsgBox ws.NameNaslednji wsEnd Sub |
Pojdi na naslednji list
Ta koda bo prešla na naslednji list. Če je ActiveSheet zadnji list, bo šel na prvi list v delovnem zvezku.
| 12345 | Če je ActiveSheet.Index = Delovni listi.Štej potemDelovni listi (1). AktivirajSicer paActiveSheet.Next.ActivateKonec Če |
