Joissakin tapauksissa sinun on luotava uusi työkirja, jossa on tietty määrä arkkeja vba -koodin tai makron kautta. Tässä on yksinkertainen makro, jonka avulla voit luoda uuden työkirjan> avata ja tallentaa sitten enintään 255 uutta laskentataulukkoa. Tässä otosmakrossa luomme uuden työkirjan, jossa on 10 laskentataulukkoa.
Vaihtoehto Selkeä
Sub create_workbook ()
Dim wb Työkirjana
Aseta wb = NewWorkbook (10)
End Sub
Toiminto NewWorkbook (wsCount As Integer) Työkirjana
Dim OriginalWorksheetCount As Long
Aseta NewWorkbook = ei mitään
Jos wsCount 255, sulje toiminto
OriginalWorksheetCount = Application.SheetsInNewWorkbook
Application.SheetsInNewWorkbook = wsCount
Aseta NewWorkbook = Workbooks.Add
Application.SheetsInNewWorkbook = OriginalWorksheetCount
Lopeta toiminto
Koodin selitys:
Ensin meillä on menettely nimeltä "create_workbook”. Tässä menettelyssä meillä on muuttuja wb työkirjana ja kutsumme funktiota NewWorkbook tämän muuttujan kautta. Joten uusi funktio kutsutaan ja wscount asetetaan 10: ksi, joka on laskentataulukoiden määrä uudessa työkirjassa.
Sitten menemme kutsuttuun funktioon, joka on Toiminto NewWorkbook (wsCount as Integer) työkirjana. WsCount -arvo, joka on 10, välitetään creat_workbook -aliosasta.
Aseta NewWorkbook = ei mitään
Ensinnäkin NewWorkbook on asetettu tyhjäksi, jotta voimme poistaa kaikki muut arvot, jotka sille voidaan antaa millä tahansa aikaisemmalla koodilla.
Jos wsCount 255, lopeta toiminto
Seuraavaksi meidän on tarkistettava, onko alaosasta välitetty arvo pienempi kuin 1 tai suurempi kuin 255. Jos vastaus on kyllä kumpaankin näistä tarkistuksista, poistu toiminnosta.
OriginalWorksheetCount = Application.SheetsInNewWorkbook
Excel -asetukset -sivulla on parametri, jossa asetetaan uuteen työkirjaan sisällytettävien arkkien määrä. Välitämme tämän arvon muuttujalle OriginalWorksheetCount.Muuttuja sisältää oletusarvoisen taulukon, joka oli jo asetettu Excel-asetuksissa.
Application.SheetsInNewWorkbook = wsCount
Sitten määritämme wsCount -arvon, joka välitetään aliosasta parametriin Excel -asetuksissa uuteen työkirjaan sisällytettävien arkkien lukumäärälle. Joten nyt tämä parametri muuttuu vanhasta arvosta 10. Vanha arvo voi olla 1 tai 3 tai mikä tahansa muu käyttäjän asettama luku.
Aseta NewWorkbook = Workbooks.Add
Luomme uuden työkirjan, joka on liitetty NewWorkbookiin. Tämä uusi työkirja luodaan wsCountissa määritettyjen arkkien määrällä. Näet uuden työkirjan, jossa on 10 arkkia nimeltä Sheet1 to Sheet10. Katso alla oleva kuva uudesta luodusta Book3 -tiedostosta.
Alla olevassa kuvassa näkyy uuteen työkirjaan luotujen arkkien määrä.
Myös numero 10 näkyy sovelluksessa. SheetsInNewWorkbook -parametri Excelin asetuksissa, kuten alla olevassa kuvassa -
Application.SheetsInNewWorkbook = OriginalWorksheetCount
TheApplication.SheetsInNewWorkbook palautetaan alkuperäiseen numeroonsa, joka oli ennen wsCount -arvon määrittämistä. Joten jos alkuperäinen numero oli 1 tai 3, tämä parametri palaa tähän numeroon.
Jos pidit blogistamme, jaa se ystävillesi Facebookissa. Voit myös seurata meitä Twitterissä ja Facebookissa.
Haluaisimme kuulla sinusta, kerro meille, kuinka voimme parantaa, täydentää tai innovoida työtämme ja parantaa sitä sinulle. Kirjoita meille osoitteeseen sähköpostisivusto