完了と表示されたら日付をその都度変えたい

質問

C列に完了と表示されたらA列の表示を変えたい

B列の　毎日は　＋１日後
B列の　毎週は　＋７日後

つまり

＜質問１＞
C2が完了と表示されたら　５／７が表示できるようにしたい(＋１日後)
C4が完了と表示されたら　５／1が表示できるようにしたい(＋７日後)

そのためには、A1にはどんな数式が必要ですか？

A9=TODAY()　です

＜条件＞
さらに、一回きりではなくて、完了→未完成を繰り返すと、何度もA列が　＋７日後や＋１日後を表示したいのですが、それらも可能でしょうか？

完了が、未完成に戻ったら　A列の日付が戻ってしまっては意味がありません

毎日であれば　４／３０－５／１－５／２と　毎日＋１日後ずつ増える必要があります。未完了になると
５／２が　５／１にならないような式を作りたいです

回答No.1

keithin · ベストアンサー

ご相談でやりたいようなことは、関数では全くできません。
（ちなみにＡ８？Ａ９？は何も使っていませんが、説明もされてないのでスルーします）

で。
とりあえず次の通りに作成すると、ヤリタかったその通りのことが出来ます。

手順：
シート名タブを右クリックしてコードの表示を選ぶ
現れたシートに下記をコピー貼り付ける

private sub Worksheet_Change(byval Target as excel.range)
　dim h as range
　on error resume next
　for each h in application.intersect(target, range("C:C"))
　　if h = "完了" then
　　if h.offset(0, -1) = "毎日" then
　　　h.offset(0, -2) = h.offset(0, -2) + 1
　　elseif h.offset(0, -1) = "毎週" then
　　　h.offset(0, -2) = h.offset(0, -2) + 7
　　end if
　　end if
　next
end sub

ファイルメニューから終了してエクセルに戻る
Ａ列に今時点での日付を記入する
Ｂ列に毎日や毎週を記入する
Ｃ列に状況に応じて状況を記入していく。

お礼

ありがとうございます。動作確認とれました。とても参考になりました