Skivor för Days

September 20

När du startar en ny arbetsbok, är det mycket vanligt att namnge varje kalkylblad efter en annan dag i månaden. Om du gör detta ganska lite, vet du att det kan vara tröttsamt att byta namn varje kalkylblad i sin tur till exakt vad du behöver.

Följande makro utvecklades för att hjälpa till i dessa situationer. Den kontrollerar namnen på de kalkylblad i arbetsboken, döpa dem till dagarna i månaden, om de börjar med bokstäverna "Sheet". Om det inte finns tillräckligt blad i arbetsboken, lägger ark, som är nödvändiga för varje dag i månaden.

Sub DoDays ()
Dim J As Integer
Dim K As Integer
Dim sday As String
Dim Stemp As String
Dim iTarget As Integer
Dim dBasis As Date

iTarget = 13
Medan (iTarget <1) Eller (iTarget> 12)
iTarget = Val (InputBox ("Numerisk månad?"))
Om iTarget = 0 Då Exit Sub
Wend

Application.ScreenUpdating = False
Stemp = Str (iTarget) & "/ 1 /" & År (Now ())
dBasis = CDate (Stemp)

För J = 1 Till 31
sday = Format ((dBasis + J - 1), "dddd mm-dd-åååå")
Om Månad (dBasis + J - 1) = iTarget Sedan

Om J <= Sheets.Count Därefter
Om Vänster (Sheets (J) .name, 5) = "Blad" Då
Lakan (J) .name = sday
Else
Sheets.Add.Move efter: = Sheets (Sheets.Count)
ActiveSheet.Name = sday
End If
Else
Sheets.Add.Move efter: = Sheets (Sheets.Count)
ActiveSheet.Name = sday
End If
End If
Nästa J

För j = 1 till (Sheets.Count - 1)
För K = J + 1 Till Sheets.Count
If Höger (Sheets (J) .name, 10)> _
Höger (Sheets (K) .name, 10) Då
Lakan (K) .Manövrera Före: = Sheets (J)
End If
Nästa K
Nästa J

Ark (1) .Activate
Application.ScreenUpdating = True
End Sub

Makrot sätter varje flik namnet lika med veckodag följt av det faktiska datumet, som i "onsdag 2012/03/28." Om du vill ändra sättet att flikarna namnges för varje dag, bara ändra hur sday variabeln är konstruerad i makrot.

Det sista steget i makrot är att den placerar kalkylblad i god ordning, baserad på dagarna i månaden. Resultatet är att om du har några andra kalkylblad kvar i arbetsboken (med andra ord, du hade några som inte började med bokstäverna "Sheet", då de kalkylblad hamnar i slutet av arbetsboken, efter arken för varje dag.

ExcelTips är din källa för kostnadseffektiv Microsoft Excel utbildning. Detta tips (11523) gäller Microsoft Excel 2007 och 2010. Du kan hitta en version av detta tips för den äldre menygränssnittet i Excel här: Ark för Days.