マクロで未来？の日付を算出する

質問

未熟なマクロ使いです。
エクセル関数では無く、マクロで周期設定された未来の日付を算出したいのですが。
自分でも意味不明な質問かなと思っちゃいますが、下記を見れば何となく分かるような気もします。

・B2セルは『年』の周期を入力する箇所
・B3セルは『月』の周期を入力する箇所
・B4セルは『日』の周期を入力する箇所
・B5セルは『周期到達予定日』が算出される ← 未来の日付算出箇所
・B6セルに最終履歴の日が表示されている
・周期到達予定日が、今日の日付を超えていた時にセルが赤色に塗りつぶされる

あと、これをC列、D列・・・・と繰り返し入力したいなと思っていますが、
少し前に質問で聞いたので、自分で頑張って、できなければ質問する事にします。

御指導お願いいたします。

回答No.2

WindFaller · ベストアンサー

こんにちは。

『周期到達予定日』というと、こちらも、あるイメージはあるけれども、ふつうは、ある程度の機械的な増減を繰り返して振動するものに対して、過去のピークと底を取って、次のピークを割り出すものに使われます。例えば、株価などが、それに当たります。

より具体的に、数式で表せられるようなものなら解決は早いのですが。

ただ、全体・詳細で、ある程度の俯瞰（ふかん）が利けば、より解決に近くなるのですが、今のままですと、イメージもなしで、言葉だけでは無理だと思います。こちらの勝手な想像ですが、おそらくお仕事のもので、その内容を流出させてはならないにしても、真夜中にアップして出しているとなると、ただならぬことだと思います。

質問方法としてお勧めするわけではないのですが、ここの掲示板では、ご自分の臨時のプライベートサイトを設けて、そこにアップさせ、掲示板でリンクをさせておいて、回答者に理解され解決したら、そのリンク先の内容を消してしまうという方もいるようです。本来、画像のイメードだけでもよいと思います。後で消せますから。

>マクロで日付を分解(年/月/日)する方法が分かりません。

Sub Test1()
Dim a As Variant
a = Range("A1").Value
　If IsDate(a) Then
　　　 MsgBox Year(a) & "年" & vbCrLf & _
　　　 Month(a) & "月" & vbCrLf & _
　　　 Day(a) & "日"
　End If
End Sub

お礼

言葉足らずで申し訳ありません。
仕事で使いたいなと思っている程度です。別の質問を立てたのでそちらの方で回答して頂けたら嬉しいのですが・・・。もしかしたら、そちらの方もあまり分かりにくいかも？ですが。お返事ありがとうございました。

回答No.1

keithin

こんばんは。

マクロに「やらせたい」作業を、自分がマクロになったつもりで手作業で実施してみます。

すると例えば
１）そもそも起算日のデータが無い
２）どこまで周期をアップしていけば「到達日」になるのか、周期の加算を終了する判断のネタが無い
３）例えば月を１周期動かした日付は、そもそも日の周期から外れている
４）「最終履歴の日」ってまるでイミフメイ

といった具合の、意味不明なんじゃなくて単純に説明が全然足りてない事が判りますよ。

もう一回、何をどうしたいのかご自分の手を動かして数字を作ってみてから、改めて今度はキチンと「こういう具合に自分で手を動かしたら出来た内容を、マクロで書いてしたいけどどうしたらいいのか」とご相談を書きなおしてみてください。

お礼

すみません。
マクロで日付を分解(年/月/日)する方法が分かりません。
どうしたら出来るんですか？