VBAでクイックフィルタ機能を実装の方法

1年 ago
結衣, 春花
1 minute

VBAでは、AutoFilterメソッドを使用して、高速フィルタリング機能を実現できます。AutoFilterメソッドでは、指定した条件に基づいてデータテーブル内のデータをフィルタリングし、条件を満たす行のみを表示できます。

VBA によるオートフィルター機能の使用方法を示すサンプル コードを以下に示します。

Sub FilterData()
    Dim ws As Worksheet
    Set ws = ThisWorkbook.Sheets("Sheet1") ' 替换为你要操作的工作表名称
    
    ' 确保筛选之前取消之前的筛选设置
    If ws.AutoFilterMode Then
        ws.AutoFilterMode = False
    End If
    
    ' 开启筛选
    ws.Range("A1").AutoFilter
    
    ' 设置筛选条件
    ws.Range("A1").AutoFilter Field:=1, Criteria1:="条件1", Operator:=xlAnd ' 替换为你的筛选条件和字段
    
    ' 或者使用以下方法设置多个筛选条件
    'ws.Range("A1").AutoFilter Field:=1, Criteria1:="条件1", Operator:=xlAnd
    'ws.Range("B1").AutoFilter Field:=2, Criteria1:="条件2", Operator:=xlAnd
    
    ' 或者使用以下方法设置动态的筛选条件
    'Dim criteria As Variant
    'criteria = Array("条件1", "条件2", "条件3")
    'ws.Range("A1").AutoFilter Field:=1, Criteria1:=criteria, Operator:=xlFilterValues
    
End Sub

AutoFilter機能が有効な場合は無効にしてから、AutoFilter機能を有効にして条件を指定する。その後、AutoFilter機能を無効にする。

ニーズに応じて上記のコード内のワークシート名、フィルター条件、列を編集してください。

bannerAds