Tässä artikkelissa käsitellään ActiveSheet -objektia VBA: ssa. Siinä keskustellaan myös siitä, kuinka aktivoida, valita ja siirtyä laskentataulukoihin (ja paljon muuta). Lue koko VBA -laskentataulukko -oppaamme saadaksesi lisätietoja VBA: n laskentataulukoiden käsittelystä.
ActiveSheet
VBA: ssa ActiveSheet viittaa tällä hetkellä aktiiviseen laskentataulukkoon. Vain yksi taulukko voi olla aktiivinen kerrallaan.
Aktivoi laskentataulukko (ActiveSheetin asettaminen)
Aktivoi ActiveSheet käyttämällä laskentataulukkoa.
1 | Laskentataulukot ("Input"). Aktivoi |
Aktivoi arkki -komento todella "menee" arkkiin ja muuttaa näkyvää taulukkoa.
Yllä oleva esimerkki käyttää taulukon (välilehden) nimeä. Sen sijaan voit käyttää laskentataulukon VBA -koodinimeä:
1 | Arkki 1.Aktivoi |
ActiveSheet -nimi
ActiveSheet -nimen saaminen:
1 | msgbox ActiveSheet.name |
Valitut taulukot vs. ActiveSheet
ActiveSheet voi olla milloin tahansa vain yksi taulukko. Useita laskentataulukoita voidaan kuitenkin valita kerralla.
Kun useita laskentataulukoita on valittu, vain ylimmän laskentataulukon katsotaan olevan aktiivinen (ActiveSheet).
Valitse laskentataulukko
Jos haluat valita laskentataulukon sen aktivoinnin sijaan. Käytä .Valitse sen sijaan.
Valitse laskentataulukko välilehden nimen mukaan
Tämä valitsee laskentataulukon sen Taulukko -välilehden nimen perusteella
1 | Sheets ("Input"). Valitse |
Valitse laskentataulukko indeksinumeron mukaan
Tämä valitsee laskentataulukon sen sijainnin perusteella suhteessa muihin välilehtiin
1 | Laskentataulukot (1) Valitse |
Valitse laskentataulukko, jossa on VBA -koodinimi
1 | Arkki 1 |
Laskentataulukoiden valitseminen koodinimen mukaan voi estää laskentataulukon nimen muutoksista johtuvat virheet.
Valitse Nykyinen laskentataulukko
Voit valita nykyisen laskentataulukon ActiveSheet -objektilla:
1 | Valitse ActiveSheet |
Lisää Aktivoi / valitse taulukkoesimerkkejä
Aseta ActiveSheet -arvoksi Muuttuja
Tämä määrittää ActiveSheet -laskentataulukon objektimuuttujalle.
123 | Dim ws laskentataulukkonaAseta ws = ActiveSheet |
Vaihda ActiveSheet -nimi
Tämä muuttaa ActiveSheet -nimen.
1 | ActiveSheet.Name = "UusiNimi" |
ActiveSheetin kanssa
With Statement -toiminnon avulla voit virtaviivaistaa koodiasi käsitellessäsi objekteja (kuten Sheets tai ActiveSheet).
12345 | ActiveSheetin kanssa.Name = "StartFresh".Solut.Range ("A1"). Arvo = .NimiLopeta |
Huomaa, kuinka sinun ei tarvitse toistaa "ActiveSheet" ennen jokaista koodiriviä. Tämä voi säästää valtavasti aikaa, kun työskentelet pitkän komentoluettelon kanssa.
Selaa valittuja arkkeja
Seuraava makro kiertää kaikki valitut taulukot ja näyttää niiden nimet.
12345678 | Osa GetSelectedSheetsName ()Dim ws laskentataulukkonaJokaiselle ActiveWindow.SelectedSheets -sivulleMsgBox ws.NameSeuraava wsEnd Sub |
Siirry seuraavaan taulukkoon
Tämä koodi siirtyy seuraavalle taulukolle. Jos ActiveSheet on viimeinen taulukko, se siirtyy työkirjan ensimmäiselle taulukolle.
12345 | Jos ActiveSheet.Index = LaskentataulukotLaskentataulukot (1) AktivoiMuuActiveSheet.Next.ActivateLoppu Jos |