エクセル：シートを増やす際の日付更新について

質問

エクセルのテクニックはほぼ素人の者ですが、
上司より日報や顧客管理シートを作るよう指示されたため、マクロを少しずつ利用し始めました。
本題の質問なのですが、日報管理に関しては「原本」シートを作成し、「シート追加」のボタンを日々押して新たなシートを作成して蓄積する方法が良いと考え、なんとかそこまでは初心者ながら作成出来ました。
が、日付に関して困っています。
原本には「TODAY関数」を入れており、追加されたシートで関数の入ったセルをコピー　→　値として保存の操作で希望の形に出来るのですが、シート名も日付に合わせた形→ActiveSheet.Name = Range("A3")　のように設定しても、そもそも（/）が残っているので上手くいきません。
ただの文字列にしようとしてもシリアル値に変わってしまうため、これまた上手くいきません。
追加したシートのシート名を手打ちで打ち直す方法をとればいいだけの話ですが、方法があればご教授頂きたく存じます。
よろしくお願いいたします。

回答No.1

keithin · ベストアンサー

マクロに「今日の日付」を生データとして記入させます。

sub macro1()
’シートを複写し、日付を記入する
　worksheets("原本").copy after:=worksheets(worksheets.count)
　range("A3") = date

’以下は原本シートに最初から指定しておけば不要
　range("A3").numberformatlocal = "yyyy/mm/dd"

’シート名を変更する
　on error goto errhandle
　activesheet.name = format(date, "yyyymmdd")
　exit sub

errhandle:
’例えば「今日のシート」を２回作成しようとした
　msgbox "ERROR"
end sub

お礼

ご丁寧にありがとうございました。
もの凄く分かり易かったです♪
おかげさまで全て上手くゆきました(^_^)v

回答No.3

hallo-2007

＞原本には「TODAY関数」を入れており
ですので、最初からA3セルに　=TEXT(TODAY(),"yyyy年mm月dd日")
と入れておいて文字列にしておく。

話が変わりますが、毎日（あるいは毎月）シートが増えていくことになっているのでしょうが、
これは、お勧めできないシート構成です。
シート数にも限界がありますし、仮に、過去の何年何月の日報を印刷してと頼まれた場合
シート数が多いと、探すだけでも一苦労になります。
初心者が、最初に失敗して、後から苦労するパターンの一つです。

シートの構成は、以下の２枚で考えてみてください。

１　データのシート
　A　　　B
日付　　内容・・・

といったように日付とデータをひたすら縦方向に入力していきます。

２　原本のシート

を一枚だけ準備して、日付を入れると必要な内容が表示される仕組みを
作ります。

お礼

回答ありがとうございます！
関数で解決、非常に分かり易く初心者には有難い限りでしたm(__)m
シートのアドバイスですが、２の原本のシートの日付入力欄に日付を入力するとデータのシートの内容を引っ張ってくるという認識でよいでしょうか？
頭の中のイメージではデータシートのB列以降の入力は行数が複数になり、
一日分が複数行に渡るイメージです。
その場合もＡ列の日付入力セルから次の日の入力欄までの空白の部分を認識してその日だけのデータを引っ張ってくることも可能でしょうか？
超初心者の質問ですみません。
またお時間のある時にお返事頂ければ幸いです。
どうぞよろしくお願いいたします。

回答No.2

f272

こういうこと？
ActiveSheet.Name = Format(Range("A3"), "yyyymmdd")

お礼

ありがとうございました。