Môžu nastať prípady, keď budete musieť vytvoriť nový zošit s určitým počtom listov pomocou kódu alebo makra vba. Tu je jednoduché makro, ktoré vám umožní vytvoriť nový zošit> otvoriť a potom uložiť maximálne 255 nových pracovných hárkov. V tomto ukážkovom makre vytvoríme nový zošit s 10 pracovnými listami.
Možnosť explicitná
Sub create_workbook ()
Dim wb ako zošit
Nastaviť wb = NewWorkbook (10)
Koniec pod
Funkcia NewWorkbook (wsCount As Integer) ako zošit
Dim OriginalWorksheetCount ako dlhý
Nastaviť NewWorkbook = nič
Ak wsCount 255, potom funkciu ukončite
OriginalWorksheetCount = Application.SheetsInNewWorkbook
Application.SheetsInNewWorkbook = wsCount
Nastaviť NewWorkbook = zošity.Pridať
Application.SheetsInNewWorkbook = OriginalWorksheetCount
Koncová funkcia
Vysvetlenie kódu:
Najprv tu máme postup s názvom „create_workbook“. V tomto postupe máme ako zošit premennú wb a prostredníctvom tejto premennej nazývame funkciu NewWorkbook. Nová funkcia sa teda volá a počet wscount je nastavený na 10, čo je počet pracovných hárkov v novom zošite.
Potom prejdeme na volanú funkciu, ktorá je Funkcia NewWorkbook (wsCount ako celé číslo) ako zošit. Hodnota wsCount, ktorá je 10, sa odovzdá z podskupiny create_workbook.
Nastaviť NewWorkbook = nič
NewWorkbook je najskôr nastavený na nič, aby sme mohli vymazať všetky ostatné hodnoty, ktoré by mu mohli byť priradené v akýchkoľvek predchádzajúcich kódoch.
Ak wsCount 255, potom Ukončiť funkciu
Ďalej musíme skontrolovať, či hodnota odovzdaná z čiastkového testu je menšia ako 1 alebo väčšia ako 255. Ak je na ktorúkoľvek z týchto kontrol kladná odpoveď, ukončite funkciu.
OriginalWorksheetCount = Application.SheetsInNewWorkbook
Na stránke možností programu Excel je parameter, kde je nastavený počet listov, ktoré sa majú zahrnúť do nového zošita. Túto hodnotu odovzdáme premennej OriginalWorksheetCount.Premenná bude obsahovať predvolený počet listov, ktorý bol už prednastavený v možnostiach programu Excel.
Application.SheetsInNewWorkbook = wsCount
Potom priradíme hodnotu wsCount, ktorá je odovzdaná zo sub, parametru v možnostiach programu Excel pre počet hárkov, ktoré majú byť zahrnuté do nového zošita. Takže teraz sa tento parameter zmení zo starej hodnoty na 10. Stará hodnota môže byť 1 alebo 3 alebo akékoľvek iné číslo nastavené používateľom.
Nastaviť NewWorkbook = zošity.Pridať
Vytvoríme nový zošit, ktorý je priradený k NewWorkbook. Tento nový zošit je vytvorený s počtom listov uvedeným v wsCount. Uvidíte nový zošit s 10 listami s názvom List1 až List10. Na nižšie uvedenom obrázku nájdete nový súbor Book3, ktorý bol vytvorený.
Nasledujúci obrázok vám ukáže počet listov, ktoré boli vytvorené v novom zošite.
Číslo 10 sa tiež zobrazí v parametri Application.SheetsInNewWorkbook v Možnosti programu Excel ako na obrázku nižšie -
Application.SheetsInNewWorkbook = OriginalWorksheetCount
TheApplication.SheetsInNewWorkbook sa vráti na pôvodné číslo, ktoré bolo prítomné pred nastavením wsCount. Ak bolo teda pôvodné číslo 1 alebo 3, tento parameter sa teraz vráti k tomuto číslu.
Ak sa vám páčili naše blogy, zdieľajte ich so svojimi priateľmi na Facebooku. A tiež nás môžete sledovať na Twitteri a Facebooku.
Radi by sme vás počuli, dajte nám vedieť, ako môžeme zlepšiť, doplniť alebo inovovať našu prácu a zlepšiť ju pre vás. Napíšte nám na e -mailová stránka