エクセルのシート毎に日付

質問

業務日報を作成しています。
1シート1日なので、1ヶ月30シート～31シートあります。
1ヶ月1ファイルです。
この全シートのA1に日付を入れたいのですが、毎日入力するとも
限らないので、最初から　2008年8月1日（金）のような日付を
入力したいのです。
その場合、1日分を入力したら2日以降31日まで入力になるような
方法はないでしょうか？

回答No.6

fujillin

式をコピーしたり31シートを作成したりするのも面倒なので、1シートだけ作成すればコピーまで行うマクロにしてしまいました。
（できあがるシート名を1～31としています。）

準備：下のマクロをマクロのモジュールにコピペ
　　　　（投稿の都合上でインデントを全角ブランクにしています）
1）シートのフォーマットの雛型となるものを作成し、シート名は1（英数字の1）として、他にシートが無い状態にしておく。
2）この状態のものを雛型のブックとして保存

[ ある1ヶ月分を作成するとき ]
1）雛型のブック（上のブック）のコピーを作成
2）シート1のA1に日付を入力する（日にち形式のものならOK　例：08/8/1）
3）セットしておいた、マクロを実行。

注）マクロは原型のみなので、入力された値（日にち）のチェックや、シート名が正しいかなどのチェックは一切行っていません。
　　（実際に使用するには、この辺のチェックを入れておかないと、誤操作の時にエラーが出ます）

------------------------------------------
Option Explicit
Dim s1 As Worksheet, s2 As Worksheet
Dim d_date As Date
Dim m_str As String, d_str As String, w As String
Dim d As Integer
Const L_week = "日月火水木金土"

Sub BookSet()
Set s1 = Sheets("1")
d_date = s1.Cells(1, 1).Value
m_str = Str(Format(d_date, "yyyy")) & "年" & Str(Format(d_date, "m")) & "月"
d = 1
d_str = m_str & Str(d) & "日"

While IsDate(d_str)
　　If (d = 1) Then
　　　　Set s2 = s1
　　Else
　　　　s1.Copy after:=Worksheets(Worksheets.Count)
　　　　Set s2 = ActiveSheet
　　　　s2.Name = Str(d)
　　End If

　　With s2.Cells(1, 1)
　　　　.NumberFormatLocal = "@"
　　　　.HorizontalAlignment = xlLeft
　　　　.Value = d_str & "(" & Mid(L_week, Weekday(d_str), 1) & ")"
　　End With
　　d = d + 1
　　d_str = m_str & Str(d) & "日"
Wend
s1.Activate
End Sub

お礼

ありがとうございます！
私はマクロがわからないので・・・勉強してみます！