マクロ 未来の日付を算出する その２

質問

まだまだ未熟な者です。
年と月と日の加算を同時に成立させて、未来の日付を表示させようかなと思っています。加算を同時成立させる方法が分からなくて、以下の方法を取りましたが、マクロがまともに動きません。以下の記述方法の場合、どの点が間違っているのでしょうか？御指導お願いします。

Sub 周期到達日を算出する(2)()
Sheets("日付").Range("C6").Value = DateAdd("yyyy", Range("C3"), "1900/1/0")
Sheets("日付").Range("C7").Value = DateAdd("m", Range("C4"), "1900/1/0")
Sheets("日付").Range("C8").Value = DateAdd("d", Range("C5"), "1900/1/0")
Sheets("日付").Range("C10").Value = Range("C3") + Range("C4") + Range("C5") + Range("C9")
End Sub

回答No.1

keithin · ベストアンサー

こんにちは。

＞まちがい
DateAdd関数の中で「"1900/1/0"」みたいに文字列を記入しても、計算できません。
それからマクロ名の中に(2)なんて使ったら、そもそもダメです。

周期を加算するスタートになる起算日が無いよと指摘しておきましたが、Ｃ９の日付を起算日にしたいと言いたかったのですか。

sub macro1()
　worksheets("日付").select
　range("C10") = dateadd("yyyy", range("C3"), range("C9"))
　range("C10") = dateadd("m", range("C4"), range("C10"))
　range("C10") = dateadd("d", range("C5"), range("C10"))
end sub

お礼

回答ありがとうございました。
最初だけ前のデータを使用し、次回から最初のデータを引用すればよかったんですね。応用力が全くないので、変に考えちゃいました。
あと、マクロ名に（２）が入っていましたね。こちらのマクロ記述では(2)だったんですけど・・・。文字化けしちゃったのかなぁ？