Der kan være tilfælde, hvor du skal oprette en ny projektmappe med et bestemt antal ark gennem en vba -kode eller makro. Her er en simpel makro, som giver dig mulighed for at oprette en ny projektmappe> åbne og derefter gemme med maksimalt 255 nye regneark. I denne prøve -makro opretter vi en ny projektmappe med 10 regneark.
Mulighed eksplicit
Sub create_workbook ()
Dim wb Som projektmappe
Sæt wb = NewWorkbook (10)
Afslut Sub
Funktion NewWorkbook (wsCount As Integer) Som Workbook
Dim originalWorksheetCount As Long
Indstil NewWorkbook = Intet
Hvis wsCount 255 Afslut derefter funktionen
OriginalWorksheetCount = Application.SheetsInNewWorkbook
Application.SheetsInNewWorkbook = wsCount
Indstil NewWorkbook = Workbooks.Add
Application.SheetsInNewWorkbook = OriginalWorksheetCount
Afslut funktion
Kode Forklaring:
Først har vi en procedure kaldet "create_workbook”. I denne procedure har vi en variabel wb som projektmappe, og vi kalder funktionen NewWorkbook gennem denne variabel. Så den nye funktion kaldes, og wscount sættes til 10, hvilket er antallet af regneark i den nye projektmappe.
Derefter går vi til den kaldte funktion, som er Funktion NewWorkbook (wsCount som heltal) som projektmappe. Værdien for wsCount, der er 10, videregives fra sub -create_workbook.
Indstil NewWorkbook = Intet
Først er NewWorkbook sat til ingenting, så vi kan slette enhver anden værdi, der kan tildeles den i alle tidligere koder.
Hvis wsCount 255 derefter afslut funktion
Dernæst skal vi kontrollere, om værdien, der videregives fra subben, er mindre end 1 eller større end 255. Hvis svaret er ja til en af disse kontroller, skal du forlade funktionen.
OriginalWorksheetCount = Application.SheetsInNewWorkbook
Der er en parameter på excel -indstillingssiden, hvor antallet af ark, der skal medtages i en ny projektmappe, er angivet. Vi overfører denne værdi til variablen OriginalWorksheetCount.Variablen vil indeholde standardantallet af ark, der allerede var forudindstillet i excel-indstillingerne.
Application.SheetsInNewWorkbook = wsCount
Derefter tildeler vi værdien af wsCount, som videregives fra suben til parameteren i excel -mulighederne for antallet af ark, der skal medtages i en ny projektmappe. Så nu vil denne parameter ændre sig fra den gamle værdi til 10. Den gamle værdi kan være 1 eller 3 eller et hvilket som helst andet tal, der er angivet af brugeren.
Indstil NewWorkbook = Workbooks.Add
Vi opretter en ny projektmappe, som er tildelt NewWorkbook. Denne nye projektmappe er oprettet med det antal ark, der er angivet i wsCount. Du vil se en ny projektmappe med 10 ark med titlen Sheet1 to Sheet10. Se billedet herunder for den nye fil Book3, som er blevet oprettet.
Billedet herunder viser dig antallet af ark, der blev oprettet i den nye projektmappe.
Tallet 10 vises også i parameteren Application.SheetsInNewWorkbook i Excel -indstillinger som på billedet herunder -
Application.SheetsInNewWorkbook = OriginalWorksheetCount
TheApplication.SheetsInNewWorkbook returneres til sit originale nummer, som var til stede, før wsCount blev angivet. Så hvis det originale tal var 1 eller 3, vender denne parameter nu tilbage til det tal.
Hvis du kunne lide vores blogs, kan du dele den med dine venner på Facebook. Og også du kan følge os på Twitter og Facebook.
Vi vil meget gerne høre fra dig, lad os vide, hvordan vi kan forbedre, supplere eller innovere vores arbejde og gøre det bedre for dig. Skriv til os på e -mail -websted