새 통합 문서를 시작할 때 각 워크 시트의 이름을 매월 다른 날짜로 지정하는 것은 매우 일반적입니다. 이 작업을 상당히 수행하면 각 워크 시트의 이름을 정확히 필요한 이름으로 바꾸는 것이 번거로울 수 있습니다.

이러한 상황에서 도움이되도록 다음 매크로가 개발되었습니다. 통합 문서의 워크 시트 이름을 확인하고 “시트”문자로 시작하는 경우 해당 월의 날짜로 이름을 바꿉니다. 통합 문서에 시트가 충분하지 않으면 필요에 따라 매월 매일 시트를 추가합니다.

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     While (iTarget < 1) Or (iTarget > 12)

iTarget = Val(InputBox("Numeric month?"))

If iTarget = 0 Then Exit Sub     Wend

Application.ScreenUpdating = False     sTemp = Str(iTarget) & "/1/" & Year(Now())

dBasis = CDate(sTemp)

For J = 1 To 31         sDay = Format((dBasis + J - 1), "dddd mm-dd-yyyy")

If Month(dBasis + J - 1) = iTarget Then

If J <= Sheets.Count Then                 If Left(Sheets(J).Name, 5) = "Sheet" Then                     Sheets(J).Name = sDay                 Else                     Sheets.Add.Move after:=Sheets(Sheets.Count)

ActiveSheet.Name = sDay                 End If             Else                 Sheets.Add.Move after:=Sheets(Sheets.Count)

ActiveSheet.Name = sDay             End If         End If     Next J

For J = 1 To (Sheets.Count - 1)

For K = J + 1 To Sheets.Count             If Right(Sheets(J).Name, 10) > _               Right(Sheets(K).Name, 10) Then                 Sheets(K).Move Before:=Sheets(J)

End If         Next K     Next J

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

매크로는 “2012 년 3 월 28 일 수요일”과 같이 요일 뒤에 실제 날짜가 오는 각 탭 이름을 설정합니다. 매일 탭의 이름이 지정되는 방식을 변경하려면 매크로에서 sDay 변수가 생성되는 방식을 변경하면됩니다.

매크로의 마지막 단계는 월의 날짜를 기준으로 워크 시트를 적절한 순서로 배치하는 것입니다. 결과적으로 통합 문서에 다른 워크 시트가 남아있는 경우 (즉, “시트”문자로 시작하지 않는 일부 워크 시트가있는 경우 해당 워크 시트는 각 시트 다음에 통합 문서의 끝에서 끝납니다. 일.

_ 참고 : _

이 페이지 (또는 ExcelTips 사이트의 다른 페이지)에 설명 된 매크로를 사용하는 방법을 알고 싶다면 유용한 정보가 포함 된 특별 페이지를 준비했습니다.

link : / excelribbon-ExcelTipsMacros [새 브라우저 탭에서 해당 특별 페이지를 열려면 여기를 클릭하세요].

_ExcelTips_는 비용 효율적인 Microsoft Excel 교육을위한 소스입니다.

이 팁 (2836)은 Microsoft Excel 97, 2000, 2002 및 2003에 적용됩니다. Excel 리본 인터페이스에 대한이 팁 버전 (Excel 2007 및 나중에) 여기 :

link : / excelribbon-Sheets_for_Days [Sheets for Days].