Hvordan skape ny arbeidsbok med bestemt antall regneark?

You kan bruke følgende VBA-kode for å opprette nye arbeidsboken inneholder et bestemt antall faner.
1. Hold nede ALT + F11-tastene for å åpne Microsoft Visual Basic for Applications vinduet.
2. Klikk Sett > Modul, og lim inn følgende kode i modulen Window
VBA-kode. Opprett ny arbeidsbok med bestemt antall regneark
Sub MakeWorkbook () 'oppdatering Extendoffice 20150909 Dim xOldCount As Integer Dim xNewCount As Variant xOldCount = Application.SheetsInNewWorkbook xNewCount = Application.InputBox ("Hvor mange ark i den nye arbeidsboken vil du?", "Kutools for Excel",,,,,, 1) Hvis xNewCount = False Then Exit Sub Hvis (xNewCount < 1) Or (CLng (xNewCount) > 255) Deretter MsgBox "Antall må mellom 1 og 255!" Exit Sub End If Med Program .SheetsInNewWorkbook = xNewCount .Workbooks.Add .SheetsInNewWorkbook = xNewCount End WithEnd Sub3. Når du har limt inn koden, trykk F5-tasten kjøre denne koden, og i rask boksen, vennligst skriv antall ark som du vil innenfor arbeidsboken, se skjermbilde:
4. Klikk deretter på OK-knappen, har den nye arbeidsboken er opprettet med det angitte antallet ark du trenger.

Opprett ny arbeidsbok med bestemt antall regneark ved hjelp Kutools for Excel
Hvis du ikke er kjent med VBA kode, kan du bruke et nyttig verktøy - Kutools for Excel, med sin Opprett Sequence regneark verktøyet, kan du raskt lage en ny arbeidsbok med standard sheet navn, tilpasset ark navn og så videre
Kutools for Excel: med mer enn 120. hendig Excel-tillegg, gratis å prøve uten begrensning i 60 dager. Få det nå . Gå til DownloadFree Trial 60 daysPurchasePayPal /MyCommerce Etter installering Kutools for Excel, kan du gjøre som følger:
1. Klikk Enterprise > Regneark &​​gt; Lag Sequence regneark, se skjermbilde:
to. I Opprett Sequence Regneark dialogboksen gjøre følgende operasjoner: product: (1.) Velg Blank regneark under Base Regneark nedtrekkslisten, plakater (2.) Skriv inn antall ark i den nye arbeidsboken under nummer av Lag tekstboks, plakater (3.) fra arket navn basert på delen velger Excel Standard Navn alternativ
3.. Klikk deretter på OK-knappen, og den nye arbeidsboken vil bli opprettet med bestemt antall regneark.
Klikk for å vite mer om dette Lag Sequence regneark verktøyet ...
Gratis Last ned Kutools for Excel Nå Anmeldelser