セル入力した文字でフィルタ・絞り込みをする方法【Excelマクロ/VBA】

当ページのリンクには広告が含まれています。

VBAを使って、

セルに入力した「文字列」「数値」で、シート上の表のフィルタ（絞込み）を行う方法を紹介します。

下の動画を見るとイメージできるかと思います。

クリックしてジャンプ

イメージ動画（音声はありません）

このフィルタ処理を行う際には、２カ所にプログラムを書く必要があります。

動画では「Sheet1」と「Module1」という２カ所に処理（VBAコード）を書いています。

サンプルダウンロード

説明に使用しているエクセルファイルです

vba – 入力してフィルタ.zip

下図のような表示が出た場合は、以下の手順でマクロを有効にできます。

一度、エクセルを閉じる
ダウンロードしたエクセルファイルを「右クリック」
「プロパティ」を選択
「全般」タブのセキュリティの「許可する」に ✓
「適用」ボタンをクリック
「OK」ボタンをクリック

「Sheet1」に記述するコード

Private Sub Worksheet_Change(ByVal Target As Range)
    
    Dim rng As Range
    
    For Each rng In Target
        ' 監視範囲を指定
        If rng.Row = 2 And rng.Column >= 2 And rng.Column <= 7 Then
            Call Filter(rng.Column)
        End If
    Next rng

End Sub

「module1」に記述するコード

Sub Filter(Col As Integer)
    
    'フィルターをかける表の基準を指定（左上端セル）
    With Worksheets("Sheet1").Range("B3")
        
        '日付でフィルタする列
        If Col = 7 Then
            .AutoFilter Field:=Col - 1, Criteria1:=Format(Cells(2, Col), Cells(4, Col).NumberFormat)
        
        '数値でフィルタする列
        ElseIf Col = 2 Or Col = 5 Then
            .AutoFilter Field:=Col - 1, Criteria1:=Format(Cells(2, Col), "0")
            
        '数値でフィルタする列
        ElseIf Col = 6 Then
            .AutoFilter Field:=Col - 1, Criteria1:=Format(Cells(2, Col), "0 cm")

        '文字列でフィルタする列
        Else
            .AutoFilter Field:=Col - 1, Criteria1:="*" & Cells(2, Col) & "*"
        
        End If
    
    End With

    If Cells(2, Col).Value = "" Then
        If ActiveSheet.FilterMode = True Then
            Range("B3").AutoFilter Col - 1
        End If
    End If
    
End Sub