エクセルで各シートに1～12月を入力する方法

質問

エクセルで１２枚のシートがあります。
各シートの同位置セルに「平成○年　◎月売上げ」と入力したいのですが、◎部分に４月～１２月、１月、２月、３月、
　　○部分に４月～１２月シートには平成１９年　
　　　１月～３月シートには平成２０年と、
各シート１枚ずつに入力するしかないのでしょうか？
初心者でよくわかりません。教えて下さい。よろしくお願いします。

回答No.4

papayuka

セルの書式設定で表示形式をユーザー定義にして　ggge"年 "m"月売上"　のようにして、 2007/4/1 と入力すると 平成19年 4月売上 と表示されます。
これを各シートに設定しておけば、日付入力で出来るので幾らか手間が省けます。
さらに、Sheet2 以降は =DATE(YEAR(Sheet1!A1),MONTH(Sheet1!A1)+1,1) のようにして行けば、Sheet1 だけ開始の日付を入力すれば良い状態になります。
でもこれでは各シートに全て入力するのと大差ありません。
楽にするならやはりマクロです。

1）新規ブックを開きシートを12枚用意します。
2）Excel画面のメニューでツール－マクロ－VisualBasicEditor（以下VBE）を押下し、VBE画面を開きます。
3）VBE画面のメニューで挿入－標準モジュールを押下して、下記のマクロをコピーして貼り付けます。
4）VBE画面を閉じます。
5）Excel画面のメニューでツール－マクロ－マクロで「Test」を実行します。
6）指定した日付以降が、各シートの A1 に記入されます。

なお、マクロの実行が出来ない場合は、ツール－マクロ－セキュリティでセキュリティレベルが「中」になっている事を確認し、なっていない場合は「中」にしてからExcelを起動し直す必要があります。

Sub Test()
Dim myDate, ws As Worksheet
　myDate = Application.InputBox("開始日を入力(例 2007/4/1)", "開始日", Type:=2)
　If Not IsDate(myDate) Then Exit Sub
　For Each ws In ActiveWorkbook.Worksheets
　　　ws.Range("A1").Value = Format(myDate, "ggge年 m月売上")
　　　myDate = DateSerial(Year(myDate), Month(myDate) + 1, Day(myDate))
　Next ws
End Sub

お礼

分かりやすい回答ありがとうございます。
お礼が遅くなりました。