[[20160427134208]]　『指定したセルに入力した日付のチェック』（みおり）　ページの最後に飛ぶ

『指定したセルに入力した日付のチェック』（みおり）

初めまして。教えていただきたいことがあります。

A1セルに日付を入力してもらうようにしています。

A1セルに入力した日付が6ヶ月以内の日付であった場合、
メッセージボックスで注意をしたいです。

VBAでは、どのようにすればよいでしょうか？

また、6ヶ月以内だけではなく、1年以内にするには
どうすればよいのかも教えていただけると嬉しいです。

よろしくお願いします。

＜使用 Excel：Excel2007、使用 OS：Windows7 ＞

Sub main()
'御参考

    If DateAdd("m", -6, Date) <= ActiveSheet.Range("A1").Value Then MsgBox "6ヶ月以内です"
    If DateAdd("yyyy", -1, Date) <= ActiveSheet.Range("A1").Value Then MsgBox "1年以内です"
End Sub
（mm） 2016/04/27(水) 14:58

コメント返信：

[ 一覧(最新更新順) ]

[[20160427134208]] 『指定したセルに入力した日付のチェック』（みおり） ページの最後に飛ぶ

[[20160427134208]]　『指定したセルに入力した日付のチェック』（みおり）　ページの最後に飛ぶ