Šiame straipsnyje bus aptariamas „ActiveSheet“ objektas VBA. Taip pat bus aptarta, kaip suaktyvinti, pasirinkti ir eiti į darbalapius (ir daug daugiau). Norėdami gauti daugiau informacijos apie darbą su darbalapiais VBA, perskaitykite visą mūsų VBA darbalapių vadovą.
„ActiveSheet“
VBA „ActiveSheet“ nurodo šiuo metu aktyvų darbalapį. Vienu metu gali būti aktyvus tik vienas lapas.
Aktyvinti darbalapį (ActiveSheet nustatymas)
Norėdami nustatyti „ActiveSheet“, naudokite darbalapį. Aktyvinti:
| 1 | Darbo lapai („Įvestis“). Aktyvinti |
Komanda Aktyvinti lapą iš tikrųjų „eis“ į lapą, pakeisdama matomą lapą.
Aukščiau pateiktame pavyzdyje naudojamas lapo (skirtuko) pavadinimas. Vietoj to darbalapyje galite naudoti VBA kodo pavadinimą:
| 1 | 1 lapas. Aktyvuoti |
„ActiveSheet“ pavadinimas
Norėdami gauti „ActiveSheet“ pavadinimą:
| 1 | msgbox ActiveSheet.name |
Pasirinkti skaičiuoklės ir „ActiveSheet“
Bet kuriuo metu „ActiveSheet“ gali būti tik vienas lapas. Tačiau vienu metu galima pasirinkti kelis darbalapius.
Kai pasirenkami keli darbalapiai, tik „viršuje esantis“ darbalapis laikomas aktyviu („ActiveSheet“).
Pasirinkite darbalapį
Jei norite pasirinkti darbalapį, o ne jį suaktyvinti. Vietoj to naudokite .Pasirinkite.
Pasirinkite darbalapį pagal skirtuko pavadinimą
Tai pasirenka darbalapį pagal lapo skirtuko pavadinimą
| 1 | Skaičiuoklės („Įvestis“). Pasirinkite |
Pasirinkite darbalapį pagal indekso numerį
Tai pasirenka darbalapį pagal jo padėtį, palyginti su kitais skirtukais
| 1 | Darbo lapai (1). Pasirinkite |
Pasirinkite darbalapį su VBA kodo pavadinimu
| 1 | 1 lapas. Pasirinkite |
Pasirinkę darbalapius pagal kodo pavadinimą, galite išvengti klaidų, kurias sukelia darbalapio pavadinimo pakeitimai.
Pasirinkite Dabartinis darbalapis
Norėdami pasirinkti dabartinį darbalapį, naudokite „ActiveSheet“ objektą:
| 1 | „ActiveSheet“. Pasirinkite |
Daugiau Aktyvinti / pasirinkti lapų pavyzdžius
Nustatykite „ActiveSheet“ į kintamąjį
Taip ActiveSheet bus priskirtas darbalapio objekto kintamajam.
| 123 | Dim ws kaip darbalapisNustatykite ws = ActiveSheet |
Pakeiskite „ActiveSheet“ pavadinimą
Tai pakeis „ActiveSheet“ pavadinimą.
| 1 | ActiveSheet.Name = "Naujas vardas" |
Su „ActiveSheet“
Naudodami „Su pareiškimu“ galite supaprastinti savo kodą dirbdami su objektais (pvz., Skaičiuoklėmis ar „ActiveSheet“).
| 12345 | Su „ActiveSheet“.Name = "StartFresh".Ląstelės.Nuvalyti.Range ("A1"). Reikšmė = .PavadinimasPabaiga su |
Atkreipkite dėmesį, kaip jums nereikia kartoti „ActiveSheet“ prieš kiekvieną kodo eilutę. Tai gali sutaupyti daug laiko dirbant su ilgu komandų sąrašu.
Peržiūrėkite pasirinktus lapus
Ši makrokomanda perkelia visus pasirinktus lapus, rodydama jų pavadinimus.
| 12345678 | Antrasis „GetSelectedSheetsName“ ()Dim ws kaip darbalapisUž kiekvieną ws ActiveWindow.SelectedSheetsMsgBox ws.PavadinimasKitas wsPabaiga Sub |
Eiti į kitą lapą
Šis kodas pereis į kitą lapą. Jei „ActiveSheet“ yra paskutinis lapas, jis pereis prie pirmojo darbaknygės lapo.
| 12345 | Jei ActiveSheet.Index = darbalapiai.Skaičiuokite tadaDarbo lapai (1). AktyvintiKitasActiveSheet.Next.ActivatePabaiga Jei |
