複数シート日付自動入力

エクセルで日報を作っております、１日から３１日までの３１枚のシートがひとつのブックの中にあり１日のシートのＡ１のセルに”１月１日”と入力すれば後の３０枚のシートに自動で入力できる関数もしくはマクロがありませんでしょうか、曜日も表示したいです。

No.3 ベストアンサー 回答者： ham_kamo 回答日時： 2007/01/16 16:14

マクロでやるとこんな感じですかね。

１日のシートのタブを右クリックして「コードの表示」を選択すると、VBAの画面が起動するので、右の画面に以下をコピーして貼り付け。
１日のシートのA1に「１月１日」と入力すれば全シートに日付が入ります。ただし、３１日に満たない月は、最後の方は次の月の日付になってしまいますが。

Private Sub Worksheet_Change(ByVal Target As Range)
　　Dim i As Integer
　　If Target.Address <> "$A$1" Then Exit Sub
　　For i = 2 To Worksheets.Count
　　　　Worksheets(i).Range("A1").Value = ActiveSheet.Range("A1").Value + i - 1
　　Next
End Sub

各シートのA1の書式は、シートの複数選択などを使って「１月１日」形式にしておいてください。

この回答への補足

教えていただいた通りにやってみましたが、 1/1 enterとすると
10月10日と表示されます。
シート２には10月14日と表示されそれ以降は15,16,17と繋がっています
マクロ、ＶＢＡを使うといろんなことが便利で簡単に出来そうなので、自分で勉強してみようと思います
ありがとうございました。

補足日時：2007/01/16 17:19

No.2 回答者： mshr1962 回答日時： 2007/01/16 13:53

Sheet1!A1=1月1日

Sheet2!A1=Sheet1!A1+1
Sheet3!A1=Sheet2!A1+1
のように前のシートの日付に1を足せばいいのでは？

No.1 回答者： CaveatEmptor 回答日時： 2007/01/16 13:52

シフトを押しながら入力したいシートのタブをマウスで選べば、反転して選ばれたシートすべてに入力されますよ。

わかりにくければ、再度質問してください。

この回答への補足

選択したシートに同じ値を入力するのではなく
シート１のＡ１に１月１日（月）と入力するだけで
シート２　　　１月２日（火）
シート３　　　１月３日（水）
、
、
、
シート３１　　１月３１日（水）
と残り３０枚のシートに自動入力する方法を探しています。
分かり難い質問の仕方だったでしょうか、よろしくお願いします。

補足日時：2007/01/16 14:11