Selles artiklis käsitletakse ActiveSheet'i objekti VBA -s. Samuti arutatakse selle üle, kuidas aktiveerida, valida ja töölehtedele minna (ja palju muud). VBA töölehtedega töötamise kohta lisateabe saamiseks lugege meie täielikku VBA töölehtede juhendit.
ActiveSheet
VBA -s viitab ActiveSheet praegu aktiivsele töölehele. Korraga võib olla aktiivne ainult üks leht.
Aktiveeri tööleht (ActiveSheet seadistamine)
ActiveSheet'i seadistamiseks kasutage töölehte. Aktiveerige:
1 | Töölehed ("Sisend"). Aktiveeri |
Käsk Aktiveeri leht tegelikult "läheb" lehele, muutes nähtavat lehte.
Ülaltoodud näites kasutatakse lehe (tab) nime. Selle asemel saate töölehe jaoks kasutada VBA koodi nime:
1 | Leht 1. Aktiveeri |
ActiveSheet nimi
ActiveSheet'i nime saamiseks tehke järgmist.
1 | msgbox ActiveSheet.name |
Valitud lehed vs ActiveSheet
Igal ajahetkel saab ActiveSheet olla ainult üks leht. Siiski saab korraga valida mitu töölehte.
Kui on valitud mitu töölehte, loetakse aktiivseks tööleht „kõige ülemine” (ActiveSheet).
Valige Tööleht
Kui soovite töölehe aktiveerimise asemel valida. Kasutage .Valige selle asemel.
Valige tööleht vahekaardi nime järgi
See valib töölehe selle lehe vahekaardi nime alusel
1 | Arvutustabelid ("Sisend"). Valige |
Valige tööleht indeksi numbri järgi
See valib töölehe, lähtudes selle asukohast teiste vahelehtede suhtes
1 | Töölehed (1). Valige |
Valige tööleht VBA koodinimega
1 | Leht 1. Valige |
Kui valite töölehed koodnime järgi, saate vältida töölehe nime muutmisest tingitud vigu.
Valige Praegune tööleht
Praeguse töölehe valimiseks kasutage objekti ActiveSheet:
1 | ActiveSheet. Valige |
Veel Aktiveeri / vali lehtede näited
Määrake ActiveSheet väärtuseks Muutuja
See määrab ActiveSheet töölehe objekti muutujale.
123 | Dim ws töölehenaMäära ws = ActiveSheet |
Muutke ActiveSheet'i nime
See muudab ActiveSheet'i nime.
1 | ActiveSheet.Name = "UusNimi" |
ActiveSheet abil
Koos avaldusega kasutamine võimaldab objektide (nt arvutustabelid või ActiveSheet) töötamisel oma koodi sujuvamaks muuta.
12345 | ActiveSheet abil.Name = "StartFresh". Rakud. Selge.Range ("A1"). Väärtus = .NimiLõpeta |
Pange tähele, kuidas te ei pea enne iga koodirida kordama „ActiveSheet”. Pika käsuloendiga töötades võib see säästa aega.
Sirvige valitud lehti
Järgmine makro liigub läbi kõik valitud lehed ja kuvab nende nimed.
12345678 | Alam GetSelectedSheetsName ()Dim ws töölehenaIga ws ActiveWindow.SelectedSheetsMsgBox ws.NameJärgmine wsEnd Sub |
Mine järgmisele lehele
See kood läheb järgmisele lehele. Kui ActiveSheet on viimane leht, läheb see töövihiku esimesele lehele.
12345 | Kui ActiveSheet.Index = Töölehed. Loendage siisTöölehed (1). AktiveeriMuiduActiveSheet.Next.ActivateLõpp Kui |