VBAを使用したオートクリア機能

Question

Excelの自動削除機能を設定して、日付が経過するとセルが消去されるようにしようとしています。私のワークシートでは、最初の行で作業するコードを取得できますが、B2の後にB列に入力されたすべての日付をカバーするように範囲を拡張するためのアドバイスが必要です。

ワークシートには、日付が経過するとクリアする必要のある8列のデータがあります。

私が現在使用しているコードは、日付が>セルの値であればBは、その後チェックこのLASTROWにB2からループの列の最後に使用されたセルを見つけたところ、これを試してみてください

Private Sub Worksheet_Activate() 

If Date > Range("B2").Value Then 
    Range("B2:H2").ClearContents 
End If 

End Sub 

Answer 1

です。 unionを使用して過去の範囲を収集し、それらを変数clearRangeに格納します。最後に、clearRangeが何もない場合、つまり過去に見つかった日付がある場合は、コンテンツを一度にクリアします。

Private Sub Worksheet_Activate() 

Dim lastRow As Long 

lastRow = ActiveSheet.Cells(ActiveSheet.Rows.Count, "B").End(xlUp).Row 

Dim loopRange As Range 
Dim clearRange As Range 

Set loopRange = ActiveSheet.Range("B2:B" & lastRow) 

Dim currCell As Range 

For Each currCell In loopRange 

    If Date > currCell.Value2 Then 

     If Not clearRange Is Nothing Then 

      Set clearRange = Union(clearRange, currCell.Resize(, 7)) 

     Else 

      Set clearRange = currCell.Resize(, 7) 

     End If 

    End If 

Next currCell 

If Not clearRange Is Nothing Then clearRange.ClearContents 

End Sub