エクセルVBAの日付について

質問

『B1』のセルに日付が入力されています。
そこで、『B1』の日付を１日毎マクロで更新し、印刷する方法を教えて下さい。

結果として、マクロで印刷させるのは出来るのですが、日付を更新させるのが上手く出来ません。

よろしくお願いします。

回答No.3

imogasi

意図が良く判らないですが・・・
もし当日日付で良ければ
Private Sub Workbook_Open()
Worksheets("sheet1").Range("b1") = Date
End Sub
機械的に前日なら
Private Sub Workbook_Open()
Worksheets("sheet1").Range("b1") = Date-1
End Sub
土日除き
Private Sub Workbook_Open()
y = Weekday(Date)
Select Case y
Case 1
Worksheets("sheet1").Range("B1") = Date - 2
Case 2
Worksheets("sheet1").Range("B1") = Date - 3
Case Else
Worksheets("sheet1").Range("B1") = Date - 1
End Select
End Sub
ブックを開くと、自動でセットする例ですが、日付は
マニュアルでセットするのもメリットがあります。

お礼

回答有り難う御座いました。

回答No.2

aa109

１．はIF文で

If range("b1").value="" then

range("b1").value=range("b1").value+1

else
印刷（どのように印刷指定するか書いてください）
　end if

月が変わったかどうかは
隣のセルに（隠しセルにするなどして）
月データを抜き出し表示させるか
＝で入力させておいて表示形式で
Mを選択しここのvalue値を確認すれば良いかと思います

お礼

有り難う御座いました。

回答No.1

aa109

毎日開くのですか？そのブックは・・
であるならば関数で可能ですが、＝today（）

VBAというならば
Workbook　Openのイベントを利用すれば良いかと

補足

すみません

一部、説明が漏れていましたので、補足します。

毎日毎日、印刷するのではなく、１ヶ月分をまとめて印刷するため、

１．「B1の日付のデータがあるか認識する」
　　　├　ない　→　３へ
　　　└　ある　→　２へ
２．「印刷する」
３．「B1の日付を１日足す」
４．「月が変わったか識別する」
　　　├　変わった　　　　　→　終了
　　　└　変わっていない　→　１へ

上記の「３」と「４」がどうしたら良いのか分からないのです、説明不足のところがあり申し訳ありませんでした。
再度、よろしくお願いします。