Jak vytvořit sešit a přejmenovat tabulky
Chcete vytvářet sešity, které obsahují dvanáct pracovních listů, abyste mohli sbírat data za každý měsíc v roce? Nechte to makro udělat za vás automaticky.
Následující makro vytvoří nový, prázdný sešit s dvanácti pracovními listy a pojmenuje jednotlivé listy ve zkrácené podobě názvů měsíců, tj. „Jan“, „Únor“ atd. Zde je příslušné makro:
Podřízené tabulky CreateMonth ()
Dim číslo karty jako celé číslo
Ztlumit nový jako sešit
Dim jména jako varianta
Jména = pole („leden“, „únor“, „březen“, „duben“, „květen“, „červen“, _
„Jul“, „Aug“, „Sep“, „Oct“, „Nov“, „Dec“)
TabNumber = Application.SheetsInNewWorkbook
Application.SheetsInNewWorkbook = 12
Nastavit nový = Sešity.Přidat
Application.SheetsInNewWorkbook = TabNumber
Pro TabNumber = 1 až 12
New.Worksheets (TabNumber) .Name = Jména (TabNumber - 1)
Číslo další záložky
End Sub
Po spuštění obdržíte sešit s dvanácti pracovními listy. Následující obrázek ukazuje, jak výsledek vypadá:
Pokud chcete místo názvů měsíců použít jiná jména, přizpůsobte názvy v přiřazení hodnot proměnné „Jména“.
Tip: Pokud byste chtěli vědět, jak zadávat a spouštět makra v Excelu, najdete zde stručný popis: http://www.exceldaily.de/excel-makros-vba/artikel/d/so-haben-sie -makros- in-excel-ein.html
