Tässä opetusohjelmassa käsitellään laskentataulukoiden lisäämistä / lisäämistä VBA: n avulla.
Lisää taulukko
Tämä yksinkertainen makro lisää taulukon ActiveSheet -taulukon eteen:
| 123 | Sub Add ()Arkit LisääEnd Sub |
Arkin lisäämisen jälkeen uudesta taulukosta tulee ActiveSheet. Voit sitten käyttää ActiveSheet -objektia työskennelläksesi uuden taulukon kanssa (tämän artikkelin lopussa näytämme, kuinka voit lisätä uuden taulukon suoraan muuttujaan).
| 1 | ActiveSheet.Name = "NewSheet" |
Lisää arkki nimellä
Voit myös määrittää taulukon nimen luodessasi uutta taulukkoa:
| 1 | Sheets.Add.Name = "NewSheet" |
Luo uusi arkki nimeltä solusta
Tai käytä solun arvoa uuden taulukon nimeämiseen:
| 1 | Sheets.Add.Name = alue ("a3") |
Lisää arkki ennen / jälkeen toisen arkin
Voit myös halutessasi valita paikan, johon uusi taulukko lisätään. Voit lisätä Jälkeen tai Ennen -ominaisuuksilla taulukon tiettyyn kohtaan työkirjassa.
Lisää arkki toisen arkin jälkeen
Tämä koodi lisää uuden arkin toisen arkin jälkeen:
| 1 | Sheets.Add After: = Sheets ("Input") |
Tämä lisää uuden taulukon toisen arkin jälkeen ja määrittää arkin nimen:
| 1 | Sheets.Add (After: = Sheets ("Input")). Name = "NewSheet" |
Huomaa toisessa esimerkissä vaaditut ylimääräiset sulkeet (ensimmäinen esimerkki tuottaa virheen, jos toinen sulu lisätään).
tai ennen:
| 1 | Sheets.Add (Ennen: = Sheets ("Input")). Name = "NewSheet" |
Näissä esimerkeissä nimettiin nimenomaisesti arkki, jota käytettiin arkin sijainnin määrittämiseen. Usein haluat käyttää Sheet -hakemistonumeroa sen sijaan, jotta voit lisätä arkin työkirjan alkuun tai loppuun:
Lisää taulukko työkirjan loppuun
Taulukon lisääminen työkirjan loppuun:
| 1 | Sheets.Add After: = Sheets (Sheets.Count) |
Lisää taulukko työkirjan alkuun:
Taulukon lisääminen työkirjan alkuun:
| 1 | Sheets.Add (Ennen: = Sheets (1)). Name = "FirstSheet" |
Lisää taulukko muuttujaan
Tämä koodi määrittää uuden taulukon muuttujalle taulukon luomisen yhteydessä:
| 12 | Dim ws laskentataulukkonaAseta ws = Sheets.Add |
Täältä voit viitata uuteen taulukkoon muuttujalla "ws":
| 1 | ws.name = "VarSheet" |
Lisää Lisää taulukon esimerkkejä
Luo taulukko, jos sitä ei ole jo olemassa
Haluat ehkä luoda taulukon vain, jos sitä ei ole jo olemassa.
Luo laskentataulukoita nimiluettelosta
Seuraavassa rutiinissa tarkastellaan yhden sarakkeen sisältöä, joka sisältää Excel -laskentataulukot nykyisessä työkirjassa näillä nimillä. Se soittaa toiseen toimintoon tarkistaakseen, onko saman niminen taulukko jo olemassa ja jos sitä ei ole luotu.
| 1234567891011121314151617181920212223242526 | Yksityinen alikomentoButton1_Click ()Soita CreateWorksheets (Sheets ("Sheet2"). Alue ("A1: a10"))End SubSub CreateWorksheets (Names_Of_Sheets as Range)Dim No_Of_Sheets_to_be_Added as IntegerDim Sheet_Name As StringDim i Kuten kokonaislukuNo_Of_Sheets_to_be_Added = Names_Of_Sheets.Rows.CountSillä i = 1 No_Of_Sheets_to_be_AddedSheet_Name = Names_Of_Sheets.Cells (i, 1). Arvo'Lisää taulukko vain, jos sitä ei ole jo olemassa ja nimi on pidempi kuin nolla merkkiäJos (Sheet_Exists (Sheet_Name) = False) Ja (Sheet_Name "") SittenLaskentataulukot.Add (). Name = Sheet_NameLoppu JosSeuraavaksi minäEnd Sub |
| 1234567891011121314 | Funktio Sheet_Exists (WorkSheet_Name As String) BooleaninaHimmennä työkirja laskentataulukkonaSheet_Exists = FalseJokaiselle tämän työkirjan työkirjalleJos Work_sheet.Name = Työsivun_nimi SittenSheet_Exists = TottaLoppu JosSeuraavaLopeta toiminto |
Joten jos meillä on seuraava teksti taulukon 2 soluissa A1: A30:
Sitten luodaan seuraavat taulukot:
Huomaa, että vaikka “Koira” näkyy kahdesti, vain yksi arkki luodaan.
Voit ladata .XLS -tiedoston tähän opetusohjelmaan napsauttamalla tätä.
