VBAの検索範囲は= TODAY（）+ 30とクリアな内容

Question

Excelで多少経験はありましたが、VBAで新しく役立ちました。私は日付を含む範囲（D：AE）を持っています。各列には可変数の行がありますが、使用されたセルの総数は〜1500以上で10,000以上になることがあります。この範囲内で今日から30日を超える日付を見つけて、その後同じセルの内容をクリアするマクロを作成しようとしています。最終結果は、今後30日以内の日付のみになります。私はいくつかのかなり広範な検索を行ってきましたが、私の経験の限界は私にはあまり残っていませんでした。どんな助けでも大歓迎です！

次ループが

For C = 1 To ActiveSheet.UsedRange.Columns.Count 

巣、この第二のループ内では、のように、最初の

For R = 2 To ActiveSheet.UsedRange.Rows.Count 

内部の別のこのようなループのように、あなたのシートのすべての列を見てのために...

Answer 1

ビルドA各セルはActiveSheet.Cells（R、C）であり、それをテストして操作することができます。同様に、

With ActiveSheet.Cells(R, C) 
    If IsDate(.Value) Then 
     If CDate(.Value) > (Date + 30) Then 
      .Value = "" 
     End If 
    End If 
End With