74回シート全部の日付を和暦に変換Excelのブックですべてのシートにマクロを実行する方法を日付を和暦に変更する例で紹介します。マクロ74回サンプルデータ)西暦を和暦に変換する次のような売上表が記載された複数シートがあります。ActiveSheetの日付が入力されている範囲に対して西暦を和暦に変更することを考えましょう。「ThisWorkbook」を指定して、マクロが記載されている自ブックをアクティブにすると良いです。Sub上記マクロを実行すると、下図のように、日付が和暦に変わりました。今度はすべてのシートにマクロを実行する方法を考えましょう。すべてのシートに同じマクロを実行するということは、アクティブシートに対して処理を連続させるということになります。Each~Nextステートメントを使います。Each~Nextステートメントは以下の用に使います。変数は、Worksheet(シート)で、操作対象はWorksheets(シート全体)になります。実行したい処理は、シートをSelectし、マクロを実行することです。マクロは、Callステートメントで呼び出し実行することができます。Subマクロを実行すると、下図のようにSheet1,Sheet2の日付が和暦に変更されます。このマクロコードは、Callステートメントで呼び出すマクロ名を変更することで、汎用的な使い方ができます。日付を西暦に変更するマクロを作成し、マクロ「すべてのシートでマクロ実行」のCallステートメントで呼び出してやれば、和暦の日付を西暦に戻すのも簡単です。Sub列全体を対象にする日付の表示を変更する対象のセル範囲を限定できない場合には、列番号を指定します。Subあるいはセル「A3」の列ならば、Range("A3")EntireColumnでも列Aを選択して処理を実行できます。Sub今回は、すべてのシートに同じマクロを実行するマクロを紹介しました。Each~Nextステートメントを使いました。