Ovaj vodič će raspravljati o tome kako dodati / umetnuti radne listove pomoću VBA.
Dodaj list
Ova jednostavna makronaredba dodat će list prije ActiveSheet -a:
123 | Sub Dodaj ()Listovi.DodajKraj podm |
Nakon umetanja lista, novi list postaje ActiveSheet. Zatim možete koristiti objekt ActiveSheet za rad s novim listom (pri dnu ovog članka pokazat ćemo kako umetnuti novi list izravno u varijablu).
1 | ActiveSheet.Name = "Novi list" |
Dodajte list s imenom
Također možete definirati naziv lista dok stvarate novi list:
1 | Sheets.Add.Name = "Novi list" |
Izradite novi list s imenom iz ćelije
Ili upotrijebite vrijednost ćelije za imenovanje novog lista:
1 | Sheets.Add.Name = range ("a3"). Vrijednost |
Dodajte list prije / poslije drugog lista
Možda biste također htjeli odabrati mjesto na koje će se umetnuti novi list. Svojstva Nakon ili Prije možete upotrijebiti za umetanje lista na određeno mjesto u radnoj knjizi.
Umetanje lista iza drugog lista
Ovaj kôd umetnut će novi list NAKON drugog lista:
1 | Sheets.Add After: = Sheets ("Unos") |
Ovo će umetnuti novi list NAKON drugog lista i odrediti naziv lista:
1 | Sheets.Add (After: = Sheets ("Input")). Name = "NewSheet" |
Uočite dodatne zagrade potrebne u drugom primjeru (prvi primjer generirat će pogrešku ako se dodaju druge zagrade).
ili prije:
1 | Sheets.Add (Prije: = Sheets ("Unos")). Name = "NewSheet" |
U ovim primjerima izričito smo imenovali List koji se koristio za određivanje mjesta lista. Često ćete umjesto toga htjeti upotrijebiti broj indeksa listova kako biste mogli umetnuti list na početak ili kraj radne knjige:
Dodaj list na kraj radne knjige
Da biste dodali list na kraj radne knjige:
1 | Sheets.Add After: = Sheets (Sheets.Count) |
Dodaj list na početak radne knjige:
Da biste dodali list na početak radne knjige:
1 | Sheets.Add (Prije: = Sheets (1)). Name = "FirstSheet" |
Dodaj list varijabli
Ovaj kôd dodjeljuje novi list varijabli dok se list stvara:
12 | Zatamni kao radni listPostavite ws = Listovi.Dodaj |
Odavde možete uputiti novi list s varijablom 'ws':
1 | ws.name = "VarSheet" |
Više primjera dodavanja listova
Izradite list ako već ne postoji
Možda ćete htjeti stvoriti list samo ako već ne postoji.
Napravite radne listove s popisa imena
Sljedeća će rutina pogledati sadržaj jednog stupca koji postavlja Excel radne listove unutar trenutne radne knjige s tim nazivima. Poziva drugu funkciju da provjeri postoji li list s tim imenom i postoji li list.
1234567891011121314151617181920212223242526 | Privatna pomoćna naredbaButton1_Click ()Nazovite CreateWorksheets (Sheets ("Sheet2"). Raspon ("A1: a10"))Kraj podmPodizradni radni listovi (nazivi_O_ listova kao raspon)Dim No_Of_Sheets_to_be_Added As IntegerDim Sheet_Name As StringDim i Kao cijeli brojNe_O_Sheets_to_be_Added = Imena_O__Sheets.Rows.CountZa i = 1 Za Ne_Os_Tablica_to_be_DodanoSheet_Name = Nazivi_O_Listovi. Ćelije (i, 1). Vrijednost'Dodajte list samo ako već ne postoji i ako je naziv dulji od nula znakovaAko je (Sheet_Exists (Sheet_Name) = False) I (Sheet_Name "") TadaRadni listovi.Add (). Naziv = Naziv_nalogaZavrši akoSljedeći iKraj podm |
1234567891011121314 | Funkcijski list_Postoji (naziv radnog lista_naziv kao niz) Kao BooleanZatamni radni list kao radni listList_Exists = NetočnoZa svaki radni list u ovoj radnoj knjizi. Radni listoviAko je Work_sheet.Name = Radni_naziv_NatoList_Postoji = IstinaZavrši akoSljedećiZavršna funkcija |
Dakle, ako imamo sljedeći tekst u ćelijama A1: A30 u 2. listu:
Tada će se stvoriti sljedeći listovi:
Imajte na umu da iako se "Pas" pojavljuje dva puta, stvara se samo jedan list.
Kliknite ovdje da biste preuzeli .XLS datoteku za ovaj vodič.