Bruk en VBA -makro til å lage en ny arbeidsbok som inneholder nøyaktig så mange regneark du trenger
I mange makroer skal det opprettes nye arbeidsbøker som for eksempel er fylt med bestemt innhold. En viktig oppgave her er å lage en ny Excel -arbeidsbok som inneholder nøyaktig antall regneark du vil ha.
Følgende makro gjør denne jobben. Den oppretter en ny arbeidsbok som inneholder 31 regneark. Disse regnearkene er nummerert fra 1 til 31. Her er de riktige VBA -kommandoene:
Sub FuegeTabellenEin ()
Dim nummer som heltall
Dim i As Integer
Dim Mappe Som arbeidsbok
Number = Application.SheetsInNewWorkbook
Application.SheetsInNewWorkbook = 31
Angi mappe = Workbooks.Add
For i = 1 Til Mappe.Worksheets.Count
Folder.Worksheets (i) .Name = i
Neste jeg
Application.SheetsInNewWorkbook = nummer
Slutt Sub
Når den starter, viser Excel en ny arbeidsbok som inneholder 31 regneark. Følgende figur viser hvordan dette ser ut i arkregisteret:
I makroen angir du antall regneark du vil bruke tallet 31. Endre dette nummeret hvis du vil ha færre eller flere regneark i en arbeidsbok.
For å gå inn i makroen, trykk ALT F11 i Excel for å åpne VBA -editoren. Bruk kommandoen INSERT - MODULE for å sette inn et tomt modulark. For å starte makroen direkte fra Excel, bruk tastekombinasjonen ALT F8.