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

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

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

매크로는 워크 시트를 원하는 월이 현재 연도에 있다고 가정합니다. 그렇지 않은 경우 약간의 변경이 필요합니다. 매크로 시작 부분 근처에있는 다음 줄에 유의하십시오.

sTemp = Str(iTarget) & "/1/" & Year(Now())

어떤 이유로 든 실제로 2015 년이되기를 원한다고 가정 해 보겠습니다. 줄을 다음과 같이 변경하십시오.

sTemp = Str(iTarget) & "/1/2015"

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

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

_ 참고 : _

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

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

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

이 팁 (11523)은 Office 365의 Microsoft Excel 2007, 2010, 2013, 2016, 2019 및 Excel에 적용됩니다. 이전 버전에 대한이 팁의 버전을 찾을 수 있습니다. Excel의 메뉴 인터페이스 :

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