Ta vadnica bo razpravljala o tem, kako dodati / vstaviti delovne liste z uporabo VBA.
Dodaj list
Ta preprost makro bo pred listo ActiveSheet dodal list:
| 123 | Sub Dodaj ()Listi.DodajEnd Sub |
Po vstavitvi lista novi list postane ActiveSheet. Nato lahko uporabite objekt ActiveSheet za delo z novim listom (Na dnu tega članka bomo pokazali, kako vstaviti nov list neposredno v spremenljivko).
| 1 | ActiveSheet.Name = "Nov list" |
Dodajte list z imenom
Med ustvarjanjem novega lista lahko določite tudi ime lista:
| 1 | Sheets.Add.Name = "Nov list" |
Ustvarite nov list z imenom iz celice
Ali pa uporabite vrednost celice za poimenovanje novega lista:
| 1 | Sheets.Add.Name = vrednost ("a3"). Vrednost |
Dodajte list pred / po drugem listu
Morda boste želeli izbrati tudi mesto, kamor bo vstavljen nov list. Z lastnostmi Po ali Pred lahko list vstavite na določeno mesto v delovnem zvezku.
Vstavite list za drugim listom
Ta koda bo vstavila nov list PO drugem listu:
| 1 | Sheets.Add After: = Sheets ("Input") |
To bo vstavilo nov list PO drugem listu in podalo ime lista:
| 1 | Sheets.Add (After: = Sheets ("Input")). Name = "NewSheet" |
Upoštevajte dodatne oklepaje, ki so potrebni v drugem primeru (prvi primer bo ustvaril napako, če dodate drugi oklepaj).
ali prej:
| 1 | Sheets.Add (Before: = Sheets ("Input")). Name = "NewSheet" |
V teh primerih smo izrecno poimenovali list, ki se uporablja za določanje lokacije lista. Pogosto boste namesto tega uporabili številko indeksa listov, tako da lahko list vstavite na začetek ali konec delovnega zvezka:
Dodaj list na konec delovnega zvezka
Če želite na konec delovnega zvezka dodati list:
| 1 | Sheets.Add After: = Sheets (Sheets.Count) |
Dodaj list na začetek delovnega zvezka:
Če želite na začetek delovnega zvezka dodati list:
| 1 | Sheets.Add (Before: = Sheets (1)). Name = "FirstSheet" |
Dodaj list spremenljivki
Ta koda dodeljuje nov list spremenljivki, ko je list ustvarjen:
| 12 | Zatemni kot delovni listSet ws = Sheets.Add |
Od tu se lahko sklicujete na nov list s spremenljivko 'ws':
| 1 | ws.name = "VarSheet" |
Več primerov dodajanja listov
Ustvarite list, če še ne obstaja
Morda boste želeli ustvariti list le, če še ne obstaja.
Ustvarite delovne liste iz seznama imen
Naslednja rutina bo obravnavala vsebino enega stolpca, ki je v trenutnem delovnem zvezku nastavil Excelove delovne liste s temi imeni. Pokliče drugo funkcijo, da preveri, ali list s tem imenom že obstaja in če list ni ustvarjen.
| 1234567891011121314151617181920212223242526 | Zasebni pod -ukaz Button1_Click ()Pokličite CreateWorksheets (Sheets ("Sheet2"). Range ("A1: a10"))End SubSub CreateWorksheets (Names_Of_Sheets As Range)Dim No_Of_Sheets_to_be_Added As IntegerDim Sheet_Name As StringDim i kot celo številoNo_Of_Sheets_to_be_Added = Imena_Of_Sheets.Rows.CountZa i = 1 do štSheet_Name = Imena_O_Sheets.Cells (i, 1) .Vrednost'Dodaj list samo, če še ne obstaja in je ime daljše od nič znakovČe je (Sheet_Exists (Sheet_Name) = False) In (Sheet_Name "") PotemDelovni listi.Add (). Ime = Ime_listKonec ČeNaprej iEnd Sub |
| 1234567891011121314 | Funkcijski list_Exists (ime delovnega lista_iniz kot niz) kot logičnoZatemni delovni list kot delovni listList_Exists = NeresničnoZa vsak delovni list v tem delovnem zvezkuČe je Work_sheet.Name = WorkSheet_Name PotemList_Exists = ResKonec ČeNaslednjiKončana funkcija |
Če imamo torej v celicah A1 naslednje besedilo: A30 v 2. listu:
Nato bodo ustvarjeni naslednji listi:
Upoštevajte, da čeprav se "pes" pojavi dvakrat, je ustvarjen le en list.
Če želite prenesti datoteko .XLS za to vadnico, kliknite tukaj.
