自動でシートを作成するには？

質問

ブックを開くと自動でシートを作成したいのですが、日付が２１日になったら新しくシートを作成するようにするにはどうしたらよいでしょうか？
使用しているのはエクセル２００３です。
VBAを使用し、月が替わるたびにシートを作成するようには出来たのですが、２１日になるたびに作成する方法がわかりません。
VBA初心者です。
よろしくお願いいたします。

回答No.3

fujillin · ベストアンサー

どのようなタイミングでブックが開かれるのかわかりませんが（毎日？一日何回も？時々？祝祭日は？）、いずれにしろ作成するシート名は月に関連して自動生成されると想像します。

もしそうであれば…
ブックオープン時にマクロを走らせて、
『その日の日付をチェックし、対応するシート名（21日で繰り上がる？）のシートがあればそのまま、無いときは作成する』
ということでよいのでは？

現在の方法が不明ですが、もしBVAで行っているなら、同じ日に複数回ブックを開いてもシートを自動作成しないように、シートの存在をチェックしていると思いますので、ほぼ同じままでいけるのでは？

21日を過ぎたら翌月のシートを作成するというのであれば、No.2様のようにDayが21日より大きければ、参照するシートの月を一月繰り上げてあげればよろしいかと。

お礼

回答ありがとうございます。
解りやすい説明で助かりました。

回答No.2

hige_082

If 21 = Day(Date) Then
sheet作成
End If

これかな

お礼

回答ありがとうございます。
早速やってみます。

回答No.1

n-jun

その日の日付が”２１”であるかどうか取得し、２１であって新しくシートを
作成していなければ作成するとか。

２１日にブックを開かない（休み？）の時はどうするかはわかりませんけど。

お礼

回答ありがとうございます。
２１日が休日だったら・・・
考えてませんでした。