Hvordan lage en arbeidsbok og gi nytt navn til tabeller
Vil du lage arbeidsbøker som inneholder tolv regneark, slik at du kan samle inn data for hver måned i året? La en makro gjøre dette for deg automatisk.
Følgende makro oppretter en ny, tom arbeidsbok med tolv regneark og navngir de enkelte arkene i stenografiformen for månedsnavnene, dvs. "Jan", "Feb" osv. Her er den aktuelle makroen:
Sub CreateMonth -tabeller ()
Dim kategorienummer som heltall
Dim New As Workbook
Dim navn som variant
Navn = array ("Jan", "Feb", "Mar", "Apr", "May", "Jun", _
"Jul", "Aug", "Sep", "Okt", "Nov", "Des")
TabNumber = Application.SheetsInNewWorkbook
Application.SheetsInNewWorkbook = 12
Sett nytt = arbeidsbøker
Application.SheetsInNewWorkbook = TabNumber
For TabNumber = 1 Til 12
New.Worksheets (TabNumber) .Name = Names (TabNumber - 1)
Neste fanenummer
Slutt Sub
Etter start vil du motta en arbeidsbok med tolv regneark. Følgende figur viser hvordan resultatet ser ut:
Hvis du vil bruke andre navn i stedet for månedsnavn, tilpasser du navnene i verditildelingen til varianten "Navn".
Tips: Hvis du vil vite hvordan du skriver inn og starter makroer i Excel, finner du en kort beskrivelse her: http://www.exceldaily.de/excel-makros-vba/artikel/d/so-haben-sie -makros- in-excel-ein.html
