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

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

Sub DoMonths()

Dim J As Integer     Dim K As Integer

For J = 1 To 12         If J <= Sheets.Count Then             If Left(Sheets(J).Name, 5) = "Sheet" Then                 Sheets(J).Name = MonthName(J)

Else                 Sheets.Add.Move after:=Sheets(Sheets.Count)

ActiveSheet.Name = MonthName(J)

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

ActiveSheet.Name = MonthName(J)

End If     Next J

For J = 1 To 12         If Sheets(J).Name <> MonthName(J) Then             For K = J + 1 To Sheets.Count                 If Sheets(K).Name = MonthName(J) Then                     Sheets(K).Move Before:=Sheets(J)

End If             Next K         End If     Next J

Sheets(1).Activate End Sub

매크로의 마지막 단계는 1 개월부터 12 개월까지 워크 시트를 올바른 순서로 배치하는 것입니다. 결과적으로 워크 북에 다른 워크 시트가 남아있는 경우 (즉, 시작하지 않은 워크 시트가있는 경우) “Sheet”문자를 입력하면 해당 워크 시트는 12 개월 후 통합 문서의 끝 부분이됩니다.

매크로는 VBA에 내장 된 MonthName 함수를 사용합니다. 숫자 (1에서 12까지)로 참조되는 월의 전체 이름이 전달되었습니다. (해당 범위를 벗어난 숫자와 함께 사용하려고하면 오류가 반환됩니다.)

_ 참고 : _

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

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

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

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

link : / excel-Sheets_for_Months [월별 시트].