Pomocí makra VBA vytvořte nový sešit, který obsahuje přesně tolik listů, kolik potřebujete
V mnoha makrech mají být vytvořeny nové sešity, které jsou například naplněny určitým obsahem. Důležitým úkolem je vytvořit nový sešit aplikace Excel, který obsahuje přesně požadovaný počet tabulek.
Tuto úlohu provede následující makro. Vytvoří nový sešit, který obsahuje 31 listů. Tyto listy jsou očíslovány od 1 do 31. Zde jsou příslušné příkazy VBA:
Sub FuegeTabellenEin ()
Dim číslo jako celé číslo
Dim i As Integer
Dim Mappe jako sešit
Číslo = Application.SheetsInNewWorkbook
Application.SheetsInNewWorkbook = 31
Nastavit složku = Sešity. Přidat
Pro i = 1 To Mappe.Worksheets.Count
Folder.Worksheets (i) .Name = i
Příště já
Application.SheetsInNewWorkbook = číslo
End Sub
Po spuštění aplikace Excel zobrazí nový sešit, který obsahuje 31 listů. Následující obrázek ukazuje, jak to vypadá v registru listů:
V makru pomocí čísla 31 určíte požadovaný počet pracovních listů. Pokud chcete mít v sešitu méně nebo více listů, změňte toto číslo.
Chcete -li zadat makro, stisknutím klávesy ALT F11 v aplikaci Excel vyvolejte editor VBA. Pomocí příkazu VLOŽIT - MODUL vložte prázdný list modulu. Chcete -li spustit makro přímo z aplikace Excel, použijte kombinaci kláves ALT F8.
