Šioje pamokoje bus aptarta, kaip pridėti / įterpti darbalapius naudojant VBA.
Pridėti lapą
Ši paprasta makrokomanda pridės lapą prieš „ActiveSheet“:
| 123 | Sub Add ()Lakštai. PridėtiPabaiga Sub |
Įdėjus lapą, naujasis lapas tampa „ActiveSheet“. Tada galite naudoti „ActiveSheet“ objektą, kad galėtumėte dirbti su nauju lape (šio straipsnio apačioje parodysime, kaip įterpti naują lapą tiesiai į kintamąjį).
| 1 | ActiveSheet.Name = "Naujas lapas" |
Pridėkite lapą su pavadinimu
Kurdami naują lapą taip pat galite apibrėžti lapo pavadinimą:
| 1 | Sheets.Add.Name = "NewSheet" |
Sukurkite naują lapą su pavadinimu iš langelio
Arba naudokite langelio vertę, kad pavadintumėte naują lapą:
| 1 | Sheets.Add.Name = diapazonas ("a3") |
Pridėti lapą prieš / po kito lapo
Taip pat galbūt norėsite pasirinkti vietą, kurioje bus įterptas naujasis lapas. Galite naudoti ypatybes „Po“ arba „Prieš“, kad įterptumėte lapą į tam tikrą darbaknygės vietą.
Įdėkite lapą po kito lapo
Šis kodas įterps naują lapą po kito lapo:
| 1 | Skaičiuoklės. Pridėti po: = Lakštai („Įvestis“) |
Tai įterps naują lapą po kito lapo ir nurodys lapo pavadinimą:
| 1 | Sheets.Add (After: = Sheets ("Input")). Name = "NewSheet" |
Atkreipkite dėmesį į papildomą skliaustą, reikalingą antrajame pavyzdyje (pirmasis pavyzdys sukels klaidą, jei bus pridėtas antrasis skliaustas).
arba anksčiau:
| 1 | Sheets.Add (Prieš: = Skaičiuoklės („Įvestis“)). Pavadinimas = "NewSheet" |
Šiuose pavyzdžiuose mes aiškiai pavadinome lapą, naudojamą lapo vietai nustatyti. Dažnai norėsite naudoti „Sheet Index“ numerį, kad galėtumėte įterpti lapą į darbaknygės pradžią arba pabaigą:
Pridėkite lapą prie darbo knygos pabaigos
Norėdami pridėti lapą prie darbaknygės pabaigos:
| 1 | Skaičiuoklės. Pridėti po: = Lakštai (Sheets.Count) |
Pridėkite lapą prie darbo knygos pradžios:
Norėdami pridėti lapą prie darbo knygos pradžios:
| 1 | Sheets.Add (Prieš: = Sheets (1)). Name = "FirstSheet" |
Pridėti lapą prie kintamojo
Šis kodas priskiria naują lapą kintamajam, kai lapas sukuriamas:
| 12 | Dim ws kaip darbalapisNustatykite ws = Sheets.Add |
Čia galite nurodyti naują lapą su kintamuoju „ws“:
| 1 | ws.name = "VarSheet" |
Daugiau Pridėti lapų pavyzdžių
Sukurkite lapą, jei jo dar nėra
Galbūt norėsite sukurti lapą tik tada, jei jo dar nėra.
Sukurkite darbalapius iš vardų sąrašo
Toliau pateikiama tvarka apžvelgs vieno stulpelio turinį, nustatytą „Excel“ darbalapiuose dabartinėje darbaknygėje su šiais pavadinimais. Jis skambina kitai funkcijai, norėdamas pamatyti, ar lapas tokiu pavadinimu jau egzistuoja, ir jei taip, lapas nėra sukurtas.
| 1234567891011121314151617181920212223242526 | Privati antrinė komandaButton1_Click ()Skambinkite „CreateWorksheets“ (skaičiuoklės („Sheet2“). Diapazonas („A1: a10“))Pabaiga SubAntrinis „CreateWorksheets“ (pavadinimų_skaičiuoti kaip diapazonas)Dim Dimension__f_Sheets_to_be_Added As IntegerDim Sheet_Name As StringDim i As IntegerNo_Of_Sheets_to_be_Added = Names_Of_Sheets.Rows.CountJei i = 1 iki No_Of_Sheets_to_be_AddedSheet_Name = Names_Of_Sheets.Cells (i, 1). Vertė„Pridėkite lapą tik tuo atveju, jei jo dar nėra ir pavadinimas yra ilgesnis nei nulis simboliųJei (Sheet_Exists (Sheet_Name) = False) Ir (Sheet_Name "") TadaDarbo lapai. Pridėti (). Pavadinimas = Sheet_NamePabaiga JeiKitas I.Pabaiga Sub |
| 1234567891011121314 | Funkcijų lapas_Eksistuoja (Darbo lapas_pavadinimas kaip eilutė) kaip loginisUžtemdyti darbo_lapą kaip darbalapįSheet_Exists = NetiesaUž kiekvieną darbo_lapą „ThisWorkbook.Worksheets“Jei Work_sheet.Name = WorkSheet_Name TadaSheet_Exists = TiesaPabaiga JeiKitasPabaigos funkcija |
Taigi, jei 2 lapo langeliuose A1: A30 yra toks tekstas:
Tada bus sukurti šie lapai:
Atminkite, kad nors „šuo“ rodomas du kartus, sukuriamas tik vienas lapas.
Norėdami atsisiųsti .XLS failą šiai pamokai, spustelėkite čia.
