メッセージを自動表示させたい！！！

質問

お分かりになる方がいらっしゃれば教えて下さい。
Excelで１シート毎に１ヶ月分のデータを保存するとします。保存期間の経過した１年後に、Excelを表示した際に
保存期間が経過しました・・のようなメッセージを自動的に表示させる事は出来ますか？そういった設定をして欲しいとリクエストが出て困っています。お願いします。

回答No.2

imogasi · ベストアンサー

日付がＡ１セルにあるとして
ThisWorkbookのOpenイベントに
Private Sub Workbook_Open()
Worksheets("sheet1").Select
d = Date - Cells(1, "A")
If d > 365 Then
Cells(1, "B") = "１年以上経過"
Cells(1, "B").Interior.ColorIndex = 8
End If
End Sub
をセットすればそれらしくなります。

回答No.3

tinu 2000（@tinu2000）

質問
１ヶ月につき１シートとありますが、
シート毎に表示した時に、保存期間の経過した１年後であったらメッセージを表示するのですか？
つまりそのシートを表示しなければメッセージが表示しない、で良いのですか？
「はい」を想定して。

そのシートの作成年月日が、A１セルに2004/8/9 の形式で入っていて、メッセージをB１に表示するとして、
B１セルに、
=IF(DATEDIF(A1,TODAY(),"m")>=12,"保存期間が経過しました。","")
と入力したらリクエストに答えられると思います。

回答No.1

HARU1981

私の知ってる範囲では、
VBAを利用してマクロを作成すれば可能です。