Excel VBAで特定の条件下でフィルタを適用し業務効率を向上させる方法

Excel VBA（Visual Basic for Applications）は、日常的な業務処理を効率化する強力なツールです。今回の記事では、特定の条件下でのみフィルタを適用するVBAのスクリプトについて詳しく説明します。

なぜ条件付きでフィルタをかけるのか

日常業務でExcelを使用する際、全てのデータを一括でフィルタするのではなく、特定の条件を満たす場合だけフィルタをかけたいケースがあります。例えば、月末の業績報告で前月と比較して売上が上がった商品だけを抽出したいといった場合です。

条件付きフィルタの一般的な利点

– データの可視性が高まる
– 不要な情報を排除できる
– データ分析の精度が上がる

基本的なコードの構造

以下に、特定の条件（この例では「売上が100以上」）でフィルタをかける基本的なVBAコードを示します。

Sub FilterData()
    Dim ws As Worksheet
    Set ws = Worksheets("Sheet1")
    
    'フィルタをすべて解除
    ws.Rows(1).AutoFilter
    
    '売上が100以上のデータのみフィルタ
    ws.Rows(1).AutoFilter Field:=2, Criteria1:=">=100"
    
End Sub

コードの解説

1. `Dim ws As Worksheet`：Worksheetオブジェクトを宣言します。
2. `Set ws = Worksheets(“Sheet1”)`：作業するシート（この例では”Sheet1″）を指定します。
3. `ws.Rows(1).AutoFilter`：フィルタを解除します。これはオプションですが、フィルタが前もってかかっている可能性があるため推奨されます。
4. `ws.Rows(1).AutoFilter Field:=2, Criteria1:=”>=100″`：2列目（売上）で、売上が100以上のものだけをフィルタします。

応用例

1. 複数の条件でフィルタ

売上が100以上、かつ、評価が「良い」場合のみフィルタする例です。

Sub FilterMultipleConditions()
    Dim ws As Worksheet
    Set ws = Worksheets("Sheet1")
    
    'フィルタをすべて解除
    ws.Rows(1).AutoFilter
    
    '売上が100以上で、評価が「良い」場合のみフィルタ
    ws.Rows(1).AutoFilter Field:=2, Criteria1:=">=100"
    ws.Rows(1).AutoFilter Field:=3, Criteria1:="良い"
    
End Sub

2. 期間指定でフィルタ

特定の期間内のデータのみをフィルタする例です。

Sub FilterByDateRange()
    Dim ws As Worksheet
    Set ws = Worksheets("Sheet1")
    
    'フィルタをすべて解除
    ws.Rows(1).AutoFilter
    
    '2023年1月1日から2023年6月30日までのデータをフィルタ
    ws.Rows(1).AutoFilter Field:=4, Criteria1:=">=2023/01/01", Operator:=xlAnd, Criteria2:="<=2023/06/30"
    
End Sub

3. 特定の文字列を含むデータをフィルタ

商品名に特定の文字列（この例では"Apple"）を含むデータのみをフィルタする例です。

Sub FilterByString()
    Dim ws As Worksheet
    Set ws = Worksheets("Sheet1")
    
    'フィルタをすべて解除
    ws.Rows(1).AutoFilter
    
    '商品名に"Apple"を含むデータをフィルタ
    ws.Rows(1).AutoFilter Field:=5, Criteria1:="=*Apple*"
    
End Sub

まとめ

Excel VBAを使って特定の条件下でのみフィルタを適用する方法について説明しました。これを利用することで、日常業務がさらに効率化されるでしょう。是非、参考にしてみてください。