Selles õpetuses arutatakse, kuidas töölehti VBA abil lisada / sisestada.
Lisa leht
See lihtne makro lisab lehe ActiveSheet ette:
123 | Alam Lisa ()Lehed. LisaEnd Sub |
Pärast lehe sisestamist muutub uus leht ActiveSheetiks. Seejärel saate uue lehega töötamiseks kasutada ActiveSheet'i objekti (selle artikli allosas näitame, kuidas sisestada uus leht otse muutujale).
1 | ActiveSheet.Name = "Uus leht" |
Lisa leht nimega
Saate uue lehe loomise ajal määrata ka lehe nime.
1 | Sheets.Add.Name = "NewSheet" |
Looge lahtrist nimega uus leht
Või kasutage uue lehe nimetamiseks lahtri väärtust.
1 | Sheets.Add.Name = vahemik ("a3") |
Lisa leht enne / pärast teist lehte
Samuti võiksite valida uue lehe sisestamise koha. Saate kasutada atribuute Pärast või Enne lehe sisestamiseks töövihiku kindlasse kohta.
Sisestage leht teise lehe järele
See kood lisab uue lehe PÄRAST teist lehte:
1 | Sheets.Add After: = Sheets ("Sisend") |
See lisab uue lehe PÄRAST teist lehte ja määrab lehe nime:
1 | Sheets.Add (After: = Sheets ("Input")). Name = "NewSheet" |
Pange tähele teises näites nõutavat lisasulku (esimene näide tekitab vea, kui teine sulg on lisatud).
või enne:
1 | Sheets.Add (Enne: = Sheets ("Sisend")). Nimi = "NewSheet" |
Nendes näidetes nimetasime sõnaselgelt lehe, mida kasutati lehe asukoha määramiseks. Sageli soovite selle asemel kasutada leheindeksi numbrit, nii et saate lehe sisestada töövihiku algusesse või lõppu.
Lisage leht töövihiku lõppu
Lehe lisamiseks töövihiku lõppu tehke järgmist.
1 | Arvutustabelid. Lisage pärast: = Lehed (Sheets.Count) |
Lisage leht töövihiku algusesse:
Lehe lisamiseks töövihiku algusesse tehke järgmist.
1 | Sheets.Add (Enne: = Sheets (1)). Name = "FirstSheet" |
Lisa leht muutujale
See kood määrab uue lehe muutujale lehe loomise ajal:
12 | Dim ws töölehenaMäära ws = Sheets.Add |
Siit saate viidata uuele lehele muutujaga „ws”:
1 | ws.name = "VarSheet" |
Veel Lisage lehe näiteid
Looge leht, kui seda juba pole
Võib -olla soovite lehe luua ainult siis, kui seda juba pole.
Looge töölehed nimede loendist
Järgmine rutiin vaatab ühe veeru sisu, milles on nende nimedega praeguses töövihikus Exceli töölehed seadistatud. See helistab teisele funktsioonile, et näha, kas sellenimeline leht on juba olemas ja kas seda lehte ei looda.
1234567891011121314151617181920212223242526 | Privaatne alamkäsk Button1_Click ()Helistage CreateWorksheets (Sheets ("Sheet2"). Vahemik ("A1: a10"))End SubSub CreateWorksheets (Nimes_Of_Sheets as Range)Tuhm nr_Of_Sheets_to_be_Lisatud täisarvunaDim Sheet_Name As StringDim i As täisarvNo_Of_Sheets_to_be_Added = Nimed_Of_Sheets.Rows.CountSest i = 1 kuni No_Of_Sheets_to_be_AddedSheet_Name = Nimes_Of_Sheets.Cells (i, 1). Väärtus„Lisage leht ainult siis, kui seda juba pole ja nimi on pikem kui null tähemärkiKui (Sheet_Exists (Sheet_Name) = False) And (Sheet_Name "") thenTöölehed.Add (). Nimi = Sheet_NameLõpp KuiEdasi iEnd Sub |
1234567891011121314 | Funktsioonileht_Olemas (töölehe_nimi kui string) kui loogilineTöölehe hämardamine töölehenaSheet_Exists = ValeIga töövihiku jaoks käesolevas töövihikus. TöölehedIf Work_sheet.Name = Töölehe_nimi SiisSheet_Exists = TõsiLõpp KuiEdasiLõppfunktsioon |
Seega, kui meil on lehe 2 lahtrites A1: A30 järgmine tekst:
Seejärel luuakse järgmised lehed:
Pange tähele, et kuigi “Koer” ilmub kaks korda, luuakse ainult üks leht.
Selle õpetuse jaoks .XLS -faili allalaadimiseks klõpsake siin.