Pomocou makra VBA vytvorte nový zošit, ktorý obsahuje presne toľko pracovných hárkov, koľko potrebujete
V mnohých makrách majú vzniknúť nové zošity, ktoré sú napríklad naplnené určitým obsahom. Dôležitou úlohou je vytvoriť nový zošit programu Excel, ktorý obsahuje presne požadovaný počet tabuliek.
Nasledujúce makro robí túto úlohu. Vytvorí sa nový zošit, ktorý obsahuje 31 pracovných hárkov. Tieto pracovné listy sú očíslované od 1 do 31. Tu sú príslušné príkazy VBA:
Sub FuegeTabellenEin ()
Dim číslo ako celé číslo
Dim i As Integer
Dim Mappe ako pracovný zošit
Číslo = Application.SheetsInNewWorkbook
Application.SheetsInNewWorkbook = 31
Nastaviť priečinok = zošity. Pridať
Pre i = 1 pre Mappe.Worksheets.Count
Priečinok. Pracovné listy (i). Názov = i
Ďalej i
Application.SheetsInNewWorkbook = číslo
Koniec pod
Po spustení program Excel zobrazí nový zošit, ktorý obsahuje 31 pracovných hárkov. Nasledujúci obrázok ukazuje, ako to vyzerá v registri listov:
V makre pomocou čísla 31 zadáte požadovaný počet pracovných hárkov. Toto číslo zmeňte, ak chcete mať v zošite menej alebo viac pracovných hárkov.
Ak chcete zadať makro, stlačením klávesu ALT F11 v programe Excel otvorte editor VBA. Na vloženie prázdneho listu modulu použite príkaz VLOŽIŤ - MODUL. Na spustenie makra priamo z Excelu použite kombináciu klávesov ALT F8.
