Var būt gadījumi, kad jums ir jāizveido jauna darbgrāmata ar noteiktu lapu skaitu, izmantojot vba kodu vai makro. Šeit ir vienkāršs makro, kas ļauj izveidot jaunu darbgrāmatu> atvērt un pēc tam saglabāt, izmantojot ne vairāk kā 255 jaunas darblapas. Šajā makro paraugā mēs izveidosim jaunu darbgrāmatu ar 10 darblapām.
Skaidrs variants
Sub create_workbook ()
Dim wb kā darbgrāmata
Iestatīt wb = NewWorkbook (10)
Beigt apakš
Funkcija NewWorkbook (wsCount As Integer) kā darbgrāmata
Dim OriginalWorksheetCount As Long
Set NewWorkbook = Nekas
Ja wsCount 255, iziet no funkcijas
OriginalWorksheetCount = Application.SheetsInNewWorkbook
Application.SheetsInNewWorkbook = wsCount
Iestatīt NewWorkbook = Workbooks.Add
Application.SheetsInNewWorkbook = OriginalWorksheetCount
Beigu funkcija
Koda skaidrojums:
Vispirms mums ir procedūra ar nosaukumu “create_workbook”. Šajā procedūrā mums ir mainīgais wb kā darbgrāmata, un mēs nosaucam funkciju NewWorkbook, izmantojot šo mainīgo. Tātad tiek izsaukta jaunā funkcija, un wscount ir iestatīts uz 10, kas ir darblapu skaits jaunajā darbgrāmatā.
Tad mēs ejam uz izsaukto funkciju, kas ir Funkcija NewWorkbook (wsCount as Integer) kā darbgrāmata. WsCount vērtība, kas ir 10, tiek nodota no apakšizveides create_workbook.
Set NewWorkbook = Nekas
Pirmkārt, NewWorkbook ir iestatīts uz neko, lai mēs varētu notīrīt jebkuru citu vērtību, kas tai varētu tikt piešķirta iepriekšējos kodos.
Ja wsCount 255, tad Exit Function
Tālāk mums jāpārbauda, vai no apakšnodaļas nodotā vērtība ir mazāka par 1 vai lielāka par 255. Ja atbilde ir apstiprinoša uz kādu no šīm pārbaudēm, tad izejiet no funkcijas.
OriginalWorksheetCount = Application.SheetsInNewWorkbook
Excel opciju lapā ir parametrs, kurā ir iestatīts jauno darbgrāmatā iekļaujamo lapu skaits. Mēs nododam šo vērtību mainīgajam OriginalWorksheetCount.Mainīgajam būs noklusējuma lapu skaits, kas jau bija iepriekš iestatīts Excel opcijās.
Application.SheetsInNewWorkbook = wsCount
Tad mēs piešķiram wsCount vērtību, kas tiek pārsūtīta no apakšpunkta uz parametru Excel opcijās, lai lapu skaits tiktu iekļauts jaunā darbgrāmatā. Tātad tagad šis parametrs mainīsies no vecās vērtības uz 10. Vecā vērtība varētu būt 1 vai 3 vai jebkurš cits lietotāja iestatīts skaitlis.
Iestatīt NewWorkbook = Workbooks.Add
Mēs izveidojam jaunu darbgrāmatu, kas tiek piešķirta NewWorkbook. Šī jaunā darbgrāmata ir izveidota, izmantojot lapu skaitu, kas norādīts wsCount. Jūs redzēsit jaunu darbgrāmatu ar 10 lapām ar nosaukumu No 1. līdz 10. lapai. Skatiet zemāk redzamo attēlu, lai redzētu jauno failu Book3, kas ir izveidots.
Tālāk redzamajā attēlā tiks parādīts jaunajā darbgrāmatā izveidoto lapu skaits.
Lietojumprogrammā tiks parādīts arī skaitlis 10. SheetsInNewWorkbook parametrs Excel opcijās, kā parādīts attēlā -
Application.SheetsInNewWorkbook = OriginalWorksheetCount
TheApplication.SheetsInNewWorkbook tiek atgriezts sākotnējais numurs, kas bija pirms wsCount iestatīšanas. Tātad, ja sākotnējais skaitlis bija 1 vai 3, šis parametrs tagad atgriezīsies pie šī skaitļa.
Ja jums patika mūsu emuāri, kopīgojiet to ar saviem draugiem Facebook. Un arī jūs varat sekot mums Twitter un Facebook.
Mēs labprāt uzklausītu jūsu viedokli, dariet mums zināmu, kā mēs varam uzlabot, papildināt vai ieviest jauninājumus mūsu darbā un uzlabot to jūsu labā. Rakstiet mums uz e -pasta vietne