Hur man skapar en arbetsbok och byter namn på tabeller
Vill du skapa arbetsböcker som innehåller tolv arbetsblad så att du kan samla in data för varje månad på året? Låt ett makro göra detta åt dig automatiskt.
Följande makro skapar en ny, tom arbetsbok med tolv kalkylblad och namnen på de enskilda arken i månadsnamnens stenografiform, dvs "Jan", "Feb" etc. Här är lämpligt makro:
Sub CreateMonth -tabeller ()
Dimma fliknummer som heltal
Dim New As Workbook
Dim namn som variant
Namn = array ("Jan", "Feb", "Mar", "Apr", "May", "Jun", _
"Jul", "Aug", "Sep", "Oct", "Nov", "Dec")
TabNumber = Application.SheetsInNewWorkbook
Application.SheetsInNewWorkbook = 12
Ange ny = arbetsböcker.Add
Application.SheetsInNewWorkbook = TabNumber
För TabNumber = 1 Till 12
New.Worksheets (TabNumber) .Name = Names (TabNumber - 1)
Nästa fliknummer
Avsluta Sub
Efter start får du en arbetsbok med tolv kalkylblad. Följande bild visar hur resultatet ser ut:
Om du vill använda andra namn istället för månadsnamnen, anpassa namnen i värdetilldelningen till variabeln "Namn".
Tips: Om du vill veta hur du anger och startar makron i Excel hittar du en kort beskrivning här: http://www.exceldaily.de/excel-makros-vba/artikel/d/so-haben-sie -makros- i-excel-ein.html
