エクセルで過去の日付けの入ったセルを空白にするにはどうすればいいか。

教えてください、前日から過去としてエクセルで過去の日付けの入ったセルを空白にするにはどうすればいいか。例えば　＝TODAY()が入ったセルがA1にあり、A2からE100まで過去、現在、未来の日付けが入っていた場合、過去のものを自動的に消してゆくにはどうすればいいか。

No.2 ベストアンサー 回答者： tom04 回答日時： 2017/10/01 18:47

こんばんは！

VBAになりますが一例です。

Sub Sample1()
Dim c As Range
For Each c In Range("A2:E100")
If c < Range("A1") Then
c.ClearContents
End If
Next c
End Sub

※　指定範囲内で日付ではなく単に数値でも
A1セルのシリアル値（仮に今日の場合は　43009　になります）
より小さい値の数値も消去されます。m(_ _)m

この回答へのお礼

有難うございました。これいいですね！！　できました。

お礼日時：2017/10/02 05:59

No.3 回答者： ままりーな 回答日時： 2017/10/02 00:15

=IF(A2<TODAY(),"",A2)

これでいかがでしょう？

この回答へのお礼

有難うございます。使わせてもらいます。

お礼日時：2017/10/02 06:02

No.1 回答者： GooUserラック 回答日時： 2017/10/01 18:46

マクロ（ＶＢＡ）は使っても良いのですか？

そのシートを開いたときに処理すれば良いのでしょうか？

この回答へのお礼

終了時処理を望む。ちなみにVBAダイレクト入力のことよくわからないが、どこから入っていけばいいのでしょうか。有難うございます。

お礼日時：2017/10/02 06:01