Obstajajo lahko primeri, ko morate ustvariti nov delovni zvezek z določenim številom listov s kodo ali makrom vba. Tu je preprost makro, ki vam omogoča, da ustvarite nov delovni zvezek> odprete in nato shranite z največ 255 novimi delovnimi listi. V tem vzorčnem makru bomo ustvarili nov delovni zvezek z 10 delovnimi listi.
Možnost izrecno
Sub create_workbook ()
Dim wb Kot delovni zvezek
Set wb = NewWorkbook (10)
End Sub
Funkcija NewWorkbook (wsCount As Integer) Kot delovni zvezek
Zatemni originalni delovni list toliko časa
Nastavi NewWorkbook = Nič
Če wsCount 255, potem zapustite funkcijo
OriginalWorksheetCount = Application.SheetsInNewWorkbook
Application.SheetsInNewWorkbook = wsCount
Nastavi NewWorkbook = Delovni zvezki.Dodaj
Application.SheetsInNewWorkbook = Izvirno število delovnih listov
Končana funkcija
Koda Pojasnilo:
Najprej imamo postopek, imenovan "create_workbook”. V tem postopku imamo kot delovni zvezek spremenljivko wb in prek te spremenljivke pokličemo funkcijo NewWorkbook. Tako se pokliče nova funkcija in wscount je nastavljen na 10, kar je število delovnih listov v novem delovnem zvezku.
Nato gremo na klicano funkcijo, ki je Funkcijo NewWorkbook (wsCount as Integer) kot delovni zvezek. Vrednost za wsCount, ki je 10, se posreduje iz podnapisa create_workbook.
Nastavi NewWorkbook = Nič
Najprej je NewWorkbook nastavljen na nič, tako da lahko počistimo vse druge vrednosti, ki bi mu bile lahko dodeljene v vseh prejšnjih kodah.
Če wsCount 255, potem zapustite funkcijo
Nato moramo preveriti, ali je vrednost, posredovana iz podmestnika, manjša od 1 ali večja od 255. Če je na katero od teh preverjanj odgovor pritrdilen, potem zapustite funkcijo.
OriginalWorksheetCount = Application.SheetsInNewWorkbook
Na strani z možnostmi excela je parameter, kjer je nastavljeno število listov, ki jih je treba vključiti v nov delovni zvezek. To vrednost posredujemo spremenljivki OriginalWorksheetCount.Spremenljivka bo vsebovala privzeto število listov, ki je že vnaprej nastavljeno v možnostih excel.
Application.SheetsInNewWorkbook = wsCount
Nato dodelimo vrednost wsCount, ki se posreduje iz podrejenega parametra v Excelovih možnostih za število listov, ki jih je treba vključiti v nov delovni zvezek. Zdaj se bo ta parameter spremenil iz stare vrednosti v 10. Stara vrednost je lahko 1 ali 3 ali katera koli druga številka, ki jo nastavi uporabnik.
Nastavi NewWorkbook = Delovni zvezki.Dodaj
Ustvarjamo nov delovni zvezek, ki je dodeljen NewWorkbook. Ta novi delovni zvezek je ustvarjen s številom listov, določenim v wsCount. Videli boste nov delovni zvezek z 10 listi z naslovom List od 1 do List 10. Oglejte si spodnjo sliko za novo datoteko Book3, ki je bila ustvarjena.
Na spodnji sliki je prikazano število listov, ki so bili ustvarjeni v novem delovnem zvezku.
Tudi številka 10 bo prikazana v aplikaciji. Parameter SheetsInNewWorkbook v Excelovih možnostih, kot je prikazano na spodnji sliki -
Application.SheetsInNewWorkbook = Izvirno število delovnih listov
TheApplication.SheetsInNewWorkbook se vrne na prvotno številko, ki je bila prisotna pred nastavitvijo wsCount. Torej, če je bila prvotna številka 1 ali 3, se bo ta parameter zdaj vrnil na to številko.
Če so vam bili naši blogi všeč, jih delite s prijatelji na Facebooku. Prav tako nas lahko spremljate na Twitterju in Facebooku.
Radi bi slišali od vas, nam sporočite, kako lahko izboljšamo, dopolnimo ali inoviramo svoje delo in ga izboljšamo. Pišite nam na e -poštno mesto