Takto sešity vytváříte, jak chcete
Chcete zajistit, aby ve vaší tabulce byla vytvořena celá řada prázdných pracovních listů a všechny přejmenovány podle vašich přání?
Pokud to provedete ručně, zabere to spoustu času. Ruční přejmenování tabulek je obzvláště časově náročné.
S makrem je to jednodušší. Zadejte názvy tabulek do oblasti v tabulce. Následující obrázek ukazuje, jak to může vypadat:
Potom vytvořením tabulek zavolejte následující makro:
Sub FuegeBlaetterMithNamenEin ()
Ztlumit oblast jako řetězec
Dim Cell jako rozsah
Dim tabulka jako pracovní list
Oblast = "a1: a24"
S ActiveWorkbook
Pro každou buňku v ActiveSheet.Range .Cells
Set table = .Sheets.Add (After: =. Sheets (Sheets.Count))
Table.Name = Cell.Text
Další buňka
Konec s
End Sub
Vložte s proměnnou plocha určuje, ze které oblasti tabulky jsou převzaty názvy pro pracovní listy.
Následující obrázek ukazuje sešit, ve kterém byly vytvořeny názvy tabulek za měsíce 2010 a 2011:
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
