Så här skapar du arbetsböcker som du vill
Vill du se till att du skapar en hel serie tomma kalkylblad i ditt bord och byter namn på dem alla enligt dina önskemål?
Det tar mycket tid om du gör det manuellt. Det manuella namnet på tabellerna är särskilt tidskrävande.
Det är lättare med ett makro. Ange tabellnamnen i ett område i en tabell. Följande illustration visar hur detta kan se ut:
Ring sedan följande makro för att skapa tabellerna:
Sub FuegeBlaetterMithNamenEin ()
Dim område som sträng
Dim Cell As Range
Dim tabell som arbetsblad
Område = "a1: a24"
Med ActiveWorkbook
För varje cell i ActiveSheet.Range .Cells
Ange tabell = .Sheets.Add (Efter: =. Sheets (Sheets.Count))
Table.Name = Cell.Text
Nästa cell
Sluta med
Avsluta Sub
Sätt med variabeln område bestämmer från vilket område i tabellen namnen på kalkylblad tas.
Följande bild visar en arbetsbok där tabellnamnen för månaderna 2010 och 2011 skapades:
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
