新しいワークブックを開始するときは、1年の異なる月にちなんで各ワークシートに名前を付けるのが非常に一般的です。これをかなり行うと、各ワークシートの名前を必要な名前に変更するのが面倒になる可能性があることがわかります。

次のマクロは、これらの状況で役立つように開発されました。ワークブック内のワークシートの名前をチェックし、「シート」の文字で始まる場合は月に名前を変更します。ワークブックに十分なシートがない場合は、必要に応じて、その年の各月にシートが追加されます。

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、および2003。Excel（Excel 2007以降）のリボンインターフェイスに関するこのヒントのバージョンは、次の場所にあります。

`link：/ excelribbon-Sheets_ for_Months [月のシート] `。