Definer antall regneark i en Excel -arbeidsbok

Hvordan definere antall Excel -ark ved hjelp av en makro

Mange makroer er laget for å automatisk lage arbeidsbøker. Disse mappene bør da vanligvis også ha et visst antall regneark.

Bruk følgende kommando for å kontrollere ønsket antall ark via en makro:

Definer subnummer på ark ()
Application.SheetsInNewWorkbook = 5
Slutt Sub

Bruk tallet etter likhetstegnet for å finne ut hvor mange regneark som skal være i arbeidsboken din. Denne verdien er identisk med nummeret som brukeren kan angi via menyen "Verktøy - Alternativer - Generelt" i feltet "Ark i arbeidsboken", som det kan sees i følgende figur:

Selvfølgelig kan du også lese av verdien. Dette er nyttig hvis du bare vil endre antall regneark kort for deretter å opprette en mappe med akkurat dette antallet regneark. Følgende program viser hvordan du gjør dette:

1. Det lagrer det forhåndsinnstilte antallet ark i en variabel.
2. Den setter verdien til tallet 7.
3. Den oppretter en ny arbeidsbok (som deretter inneholder syv ark).
4. Det tilbakestiller det forhåndsinnstilte antallet tabeller til den tidligere lagrede verdien.

Her er den riktige programlisten for denne oppgaven:

SubtabellnummerMark ()
Dim nummer som heltall
Number = Application.SheetsInNewWorkbook
Application.SheetsInNewWorkbook = 7
Arbeidsbøker.Legg til
Application.SheetsInNewWorkbook = nummer
Slutt Sub