複数シート日付自動入力

質問

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

回答No.3

ham_kamo · ベストアンサー

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

１日のシートのタブを右クリックして「コードの表示」を選択すると、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と繋がっています
マクロ、ＶＢＡを使うといろんなことが便利で簡単に出来そうなので、自分で勉強してみようと思います
ありがとうございました。

回答No.2

mshr1962

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

回答No.1

CaveatEmptor

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

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

補足

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