Munkafüzet létrehozása és táblázatok átnevezése
Olyan munkafüzeteket szeretne létrehozni, amelyek tizenkét munkalapot tartalmaznak, így adatokat gyűjthet az év minden hónapjáról? Hagyja, hogy egy makró ezt automatikusan megtegye Ön helyett.
A következő makró létrehoz egy új, üres munkafüzetet tizenkét munkalappal, és megnevezi az egyes lapokat a hónapnevek rövidített alakjában, azaz "Jan", "Feb" stb. Itt a megfelelő makró:
Sub CreateMonth táblázatok ()
Halvány fül száma egészként
Halvány új munkafüzet
Halvány nevek változatként
Nevek = tömb ("Jan", "Feb", "Mar", "Apr", "May", "Jun", _
"Július", "Aug", "Szeptember", "Október", "Nov", "December")
TabNumber = Application.SheetsInNewWorkbook
Application.SheetsInNewWorkbook = 12
Új beállítása = Munkafüzetek. Hozzáadás
Application.SheetsInNewWorkbook = TabNumber
TabNumber = 1 és 12 között
New.Worksheets (TabNumber) .Name = Nevek (TabNumber - 1)
Következő lap száma
End Sub
Az indulás után kap egy munkafüzetet tizenkét munkalappal. Az alábbi ábra mutatja, hogy néz ki az eredmény:
Ha más neveket szeretne használni a hónapnevek helyett, akkor az érték hozzárendelésben szereplő neveket igazítsa a "Names" változóhoz.
Tipp: Ha szeretné tudni, hogyan kell beírni és elindítani a makrókat az Excelben, itt talál egy rövid leírást: http://www.exceldaily.de/excel-makros-vba/artikel/d/so-haben-sie -makros- in-excel-ein.html