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

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

Sub DoMonths()

Dim J As Integer     Dim K As Integer     Dim sMo(12) As String

sMo(1) = "January"

sMo(2) = "February"

sMo(3) = "March"

sMo(4) = "April"

sMo(5) = "May"

sMo(6) = "June"

sMo(7) = "July"

sMo(8) = "August"

sMo(9) = "September"

sMo(10) = "October"

sMo(11) = "November"

sMo(12) = "December"



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

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

ActiveSheet.Name = sMo(J)

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

ActiveSheet.Name = sMo(J)

End If     Next J

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

End If             Next K         End If     Next J

Sheets(1).Activate End Sub

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

_Note : _

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

link : / excelribbon-ExcelTipsMacros [여기를 클릭하여 해당 특별 페이지를 엽니 다. 새 브라우저 탭에서].

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

이 팁 (2017)은 Microsoft Excel 97, 2000, 2002에 적용됩니다. Excel (Excel 2007 이상)의 리본 인터페이스에 대한이 팁의 버전은 여기에서 찾을 수 있습니다.

link : / excelribbon-Sheets_ for_Months [월별 시트].