Ako vytvoriť zošit a premenovať tabuľky
Chcete vytvoriť zošity, ktoré obsahujú dvanásť pracovných listov, aby ste mohli zbierať údaje za každý mesiac v roku? Nechajte to za vás automaticky urobiť makro.
Nasledujúce makro vytvorí nový, prázdny zošit s dvanástimi pracovnými listami a pomenuje jednotlivé listy v skrátenej forme názvov mesiacov, tj „Jan“, „Február“ atď. Tu je vhodné makro:
Sub tabuľky CreateMonth ()
Dim číslo karty ako celé číslo
Dim New As Workbook
Tlmené názvy ako variant
Názvy = pole („január“, „február“, „marec“, „apríl“, „máj“, „jún“, _
„Júl“, „august“, „september“, „október“, „november“, „december“)
TabNumber = Application.SheetsInNewWorkbook
Application.SheetsInNewWorkbook = 12
Nastaviť nový = zošity.Pridať
Application.SheetsInNewWorkbook = TabNumber
Pre TabNumber = 1 až 12
Nový. Pracovné listy (TabNumber) .Name = Názvy (TabNumber - 1)
Číslo ďalšej karty
Koniec pod
Po spustení dostanete pracovný zošit s dvanástimi pracovnými listami. Nasledujúci obrázok ukazuje, ako výsledok vyzerá:
Ak chcete namiesto názvov mesiacov použiť iné názvy, prispôsobte názvy v priradení hodnoty premennej „Názvy“.
Tip: Ak by ste chceli vedieť, ako zadávať a spúšťať makrá v Exceli, nájdete tu stručný popis: http://www.exceldaily.de/excel-makros-vba/artikel/d/so-haben-sie -makros- in-excel-ein.html
