Excel VBAを使用して指定期間内の更新セルをフィルタリングする方法

この記事では、Excel VBAを使用して、指定した期間内に更新されたセルをフィルタリングする方法について詳しく解説します。具体的なコード例とその詳細解説、そして応用例も含めてご紹介します。

はじめに

業務でExcelを使用する際、特定の期間内で更新されたセルを一括で見つけたい場合があります。手動で行うには時間がかかり、またミスのリスクも高いです。今回は、この問題をVBAで自動化する方法をご紹介します。

基本コード

以下は、指定した期間内に更新されたセルをフィルタリングする基本のVBAコードです。

Sub FilterUpdatedCells()
    Dim lastRow As Long
    Dim i As Long
    Dim targetDate As Date
    
    '指定日を設定（ここでは2023年9月12日）
    targetDate = DateValue("2023-09-12")
    
    '最後の行を取得
    lastRow = Cells(Rows.Count, 1).End(xlUp).Row
    
    '1行目から最後の行までループ
    For i = 1 To lastRow
        ' セルが指定日に更新された場合
        If Cells(i, 2).Value >= targetDate Then
            Cells(i, 1).Interior.Color = RGB(255, 255, 0)  ' セルの背景色を黄色に
        End If
    Next i
End Sub

コードの解説

– `Dim lastRow As Long`: 最後の行番号を格納する変数です。
– `Dim i As Long`: ループ処理で使用するカウンタ変数です。
– `Dim targetDate As Date`: フィルタリング対象とする日付を格納する変数です。

ループによるセルのチェック

`For i = 1 To lastRow`により、1行目から最後の行までのセルを一つずつチェックしています。指定した日付以降に更新されたセルがあれば、そのセルの背景色を黄色に変更しています。

応用例

応用例1: 複数の列を対象にする

指定した期間内に更新されたセルを、複数の列に対してフィルタリングする方法です。

' 複数の列（1列目と2列目）を対象にするコード
For i = 1 To lastRow
    If Cells(i, 1).Value >= targetDate Or Cells(i, 2).Value >= targetDate Then
        Cells(i, 1).Interior.Color = RGB(255, 0, 0)
        Cells(i, 2).Interior.Color = RGB(0, 255, 0)
    End If
Next i

応用例2: 条件に応じたフィルタリング

例えば、特定のキーワードが含まれているセルもフィルタリングする場合。

' "重要"というキーワードが含まれるセルを赤くする
For i = 1 To lastRow
    If InStr(Cells(i, 1).Value, "重要") > 0 Then
        Cells(i, 1).Interior.Color = RGB(255, 0, 0)
    End If
Next i

応用例3: 結果を新しいシートに出力する

' 結果を新しいシートに出力する
Worksheets.Add(After:=Worksheets(Worksheets.Count)).Name = "FilteredData"
Dim newWs As Worksheet
Set newWs = Worksheets("FilteredData")
For i = 1 To lastRow
    If Cells(i, 1).Value >= targetDate Then
        newWs.Cells(i, 1).Value = Cells(i, 1).Value
    End If
Next i

まとめ

Excel VBAを使うことで、指定した期間内に更新されたセルを効率よくフィルタリングすることが可能です。基本的なコードから、さまざまな応用例までを網羅しましたので、ぜひ業務に活かしてください。