Sådan opretter du en projektmappe og omdøber tabeller
Vil du oprette projektmapper, der indeholder tolv regneark, så du kan indsamle data for hver måned i året? Lad en makro gøre dette for dig automatisk.
Følgende makro opretter en ny, tom projektmappe med tolv regneark og navngiver de enkelte ark i stenografiformen for månedsnavne, dvs. "Jan", "Feb" osv. Her er den relevante makro:
Sub CreateMonth -tabeller ()
Dim fanenummer som heltal
Dim Ny som projektmappe
Dim navne som variant
Navne = array ("Jan", "Feb", "Mar", "Apr", "May", "Jun", _
"Jul", "Aug", "Sep", "Oct", "Nov", "Dec")
TabNumber = Application.SheetsInNewWorkbook
Application.SheetsInNewWorkbook = 12
Indstil Ny = Workbooks.Add
Application.SheetsInNewWorkbook = TabNumber
For TabNumber = 1 Til 12
New.Worksheets (TabNumber) .Name = Names (TabNumber - 1)
Næste fanenummer
Afslut Sub
Efter start modtager du en projektmappe med tolv regneark. Følgende figur viser, hvordan resultatet ser ud:
Hvis du vil bruge andre navne i stedet for månedsnavne, skal du tilpasse navnene i værditildelingen til variablen "Navne".
Tip: Hvis du gerne vil vide, hvordan du indtaster og starter makroer i Excel, finder du en kort beskrivelse her: http://www.exceldaily.de/excel-makros-vba/artikel/d/so-haben-sie -makros- in-excel-ein.html