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:
- Det lagrer det forhåndsinnstilte antallet ark i en variabel.
- Den setter verdien til tallet 7.
- Den oppretter en ny arbeidsbok (som deretter inneholder syv ark).
- 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