Navngivning faneblade i ugevis

Når du starter en ny projektmappe, et fælles scenarie kræver at skabe et års forbrug af regneark, en for hver uge i året. Med andre ord kan en projektmappe ender indeholdende 52 eller 53 regneark, afhængigt af hvor mange uger der er i et bestemt år.

Hvis du har et behov for at skabe sådan en projektmappe, du ved, at individuelt at skabe og navngive alle de regneark kan være en reel besværet. Det er her en makro ville komme i handy. Følgende makro vil tilføje det nødvendige antal regneark, og derefter omdøbe alle de regneark efter uge nummer (01 til 52).

Sub YearWorkbook1 ()
Dim iWeek As Integer
Dim SHT som Variant
Application.ScreenUpdating = False
Worksheets.Add Efter: = Regneark (Worksheets.Count), _
Count: = (52 - Worksheets.Count)
iWeek = 1
For hver SHT i arbejdsark
sht.Name = "Uge" & Format (iWeek, "00")
iWeek = iWeek + 1
Næste SHT
Application.ScreenUpdating = True
End Sub

Hvis du i stedet brug for en måde at skabe regneark, der viser datoen for hver uge, der sluttede i et år, så en anden makro er nødvendig.

Sub YearWorkbook2 ()
Dim iWeek As Integer
Dim SHT som Variant
Dim Stemp As String
Dim dSDate Som Dato

Stemp = InputBox ("Dato for første regneark:", "? udgangen af ​​uge")
dSDate = CDate (Stemp)

Application.ScreenUpdating = False
Worksheets.Add Efter: = Regneark (Worksheets.Count), _
Count: = (52 - Worksheets.Count)
For hver SHT i arbejdsark
sht.Name = Format (dSDate, "dd-mmm-yyyy")
dSDate = dSDate + 7
Næste SHT
Application.ScreenUpdating = True
End Sub

Denne version af makroen beder dig om en begyndelse dato. Derefter bruger denne dato til at begynde at navngive de forskellige regneark i projektmappen. Hvis du indtaster en værdi, der ikke kan oversættes til en dato, så makroen vil generere en fejl.

ExcelTips er din kilde til omkostningseffektiv Microsoft Excel træning. Dette tip (12403) gælder for Microsoft Excel 2007 og 2010. Du kan finde en version af dette tip for den ældre menu interface Excel her: Navngivning Tabs i ugevis.


© 2019 Zajacperrone.com | Contact us: webmaster# zajacperrone.com