새 통합 문서를 시작할 때 한 가지 일반적인 시나리오에서는 1 년 분량의 워크 시트를 연중 매주 하나씩 만들어야합니다. 즉, 특정 연도에 몇 주가 있는지에 따라 통합 문서에 52 개 또는 53 개의 워크 시트가 포함될 수 있습니다.

이러한 통합 문서를 만들어야하는 경우 모든 워크 시트를 개별적으로 만들고 이름을 지정하는 것이 정말 번거로울 수 있습니다. 이것은 매크로가 유용한 곳입니다. 다음 매크로는 적절한 수의 워크 시트를 추가 한 다음 주 번호 (01 ~ 52)에 따라 모든 워크 시트의 이름을 바꿉니다.

Sub YearWorkbook1()

Dim iWeek As Integer     Dim sht As Variant     Application.ScreenUpdating = False     Worksheets.Add After:=Worksheets(Worksheets.Count), _       Count:=(52 - Worksheets.Count)

iWeek = 1     For Each sht In Worksheets         sht.Name = "Week " & Format(iWeek, "00")

iWeek = iWeek + 1     Next sht     Application.ScreenUpdating = True End Sub

대신 1 년 동안 매주 종료 날짜를 표시하는 워크 시트를 만드는 방법이 필요하면 다른 매크로가 필요합니다.

Sub YearWorkbook2()

Dim iWeek As Integer     Dim sht As Variant     Dim sTemp As String     Dim dSDate As Date

sTemp = InputBox("Date for the first worksheet:", "End of Week?")

dSDate = CDate(sTemp)

Application.ScreenUpdating = False     Worksheets.Add After:=Worksheets(Worksheets.Count), _       Count:=(52 - Worksheets.Count)

For Each sht In Worksheets         sht.Name = Format(dSDate, "dd-mmm-yyyy")

dSDate = dSDate + 7     Next sht     Application.ScreenUpdating = True End Sub

이 매크로 버전에서는 시작 날짜를 묻습니다. 그런 다음 해당 날짜를 사용하여 통합 문서의 다른 워크 시트 이름을 지정합니다. 날짜로 변환 할 수없는 값을 입력하면 매크로가 오류를 생성합니다.

_ 참고 : _

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

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

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

이 팁 (12403)은 Microsoft Excel 2007, 2010, 2013 및 2016에 적용됩니다.

Excel의 이전 메뉴 인터페이스에 대한이 팁의 버전은`link : / excel-Naming_Tabs_for_Weeks [Naming Tabs for Weeks]`에서 찾을 수 있습니다.