Mogu postojati slučajevi u kojima morate stvoriti novu radnu knjigu s određenim brojem listova putem vba koda ili makronaredbe. Evo jednostavne makronaredbe koja vam omogućuje da stvorite novu radnu knjigu> otvorite i zatim spremite s najviše 255 novih radnih listova. U ovom uzorku makroa stvorit ćemo novu radnu knjigu s 10 radnih listova.
Opcija Eksplicitno
Sub create_workbook ()
Dim wb Kao radna bilježnica
Postavi wb = Nova radna knjiga (10)
Kraj podm
Funkcija NewWorkbook (wsCount As Integer) Kao radna knjiga
Zatamnite izvorni radni list koliko god želite
Postavi NewWorkbook = Ništa
Ako wsCount 255 Zatim izađite iz funkcije
OriginalWorksheetCount = Application.SheetsInNewWorkbook
Application.SheetsInNewWorkbook = wsCount
Postavi NewWorkbook = Radne knjige.Dodaj
Application.SheetsInNewWorkbook = Broj izvornog radnog lista
Završna funkcija
Objašnjenje koda:
Prvo imamo postupak pod nazivom „create_workbook”. U ovom postupku imamo varijablu wb kao radnu knjigu i kroz tu varijablu pozivamo funkciju NewWorkbook. Dakle, nova funkcija se poziva i wscount je postavljen na 10 što je broj radnih listova u novoj radnoj knjizi.
Zatim idemo na pozvanu funkciju koja je Funkcija NewWorkbook (wsCount as Integer) kao Radna knjiga. Vrijednost za wsCount koja je 10 prenosi se iz podnapisa create_workbook.
Postavi NewWorkbook = Ništa
Prvo je NewWorkbook postavljen na ništa, tako da možemo izbrisati bilo koju drugu vrijednost koja mu se može dodijeliti u bilo kojim prethodnim kodovima.
Ako wsCount 255 tada izađite iz funkcije
Zatim moramo provjeriti je li vrijednost prenesena s pod -jedinice manja od 1 ili veća od 255. Ako je odgovor potvrdan na bilo koju od ovih provjera, izađite iz funkcije.
OriginalWorksheetCount = Application.SheetsInNewWorkbook
Na stranici s mogućnostima programa Excel postoji parametar gdje je postavljen broj listova koji se uključuju u novu radnu knjigu. Ovu vrijednost prosljeđujemo varijabli Originalni radni list.Varijabla će sadržavati zadani broj listova koji je već unaprijed postavljen u excel opcijama.
Application.SheetsInNewWorkbook = wsCount
Zatim dodjeljujemo vrijednost wsCount koja se prenosi iz pod -parametra parametru u excel opcijama za broj listova koji će se uključiti u novu radnu knjigu. Tako će se sada ovaj parametar promijeniti sa stare vrijednosti na 10. Stara vrijednost može biti 1 ili 3 ili bilo koji drugi broj koji je postavio korisnik.
Postavi NewWorkbook = Radne knjige.Dodaj
Izrađujemo novu radnu knjigu koja je dodijeljena NewWorkbook -u. Ova nova radna knjiga izrađena je s brojem listova navedenim u wsCount. Vidjet ćete novu radnu knjigu s 10 listova pod nazivom List od 1 do List 10. Pogledajte sliku ispod za novu datoteku Book3 koja je stvorena.
Donja slika prikazuje broj listova koji su stvoreni u novoj radnoj knjizi.
Također će se broj 10 pojaviti u parametru Application.SheetsInNewWorkbook u Excelovim opcijama kao na donjoj slici -
Application.SheetsInNewWorkbook = Broj izvornog radnog lista
TheApplication.SheetsInNewWorkbook vraća se na izvorni broj koji je bio prisutan prije postavljanja wsCount. Dakle, ako je izvorni broj bio 1 ili 3, ovaj će se parametar sada vratiti na taj broj.
Ako vam se sviđaju naši blogovi, podijelite ih sa svojim prijateljima na Facebooku. Također nas možete pratiti na Twitteru i Facebooku.
Voljeli bismo čuti vaše mišljenje, javite nam kako možemo poboljšati, nadopuniti ili inovirati svoj rad i učiniti ga boljim za vas. Pišite nam na web mjesto e -pošte