VBAの動的フィルタリングコードの書き方

2年 ago
優斗, 朝陽
1 minute

VBAの動的なフィルター処理コードの例を次に示します。

Sub DynamicFilter()
    Dim ws As Worksheet
    Dim rng As Range
    Dim criteriaRange As Range
    Dim filterRange As Range
    Dim filteredRange As Range

    ' 设置工作表和筛选范围
    Set ws = ThisWorkbook.Worksheets("Sheet1")
    Set rng = ws.Range("A1:E10")

    ' 设置筛选条件范围并输入筛选条件
    Set criteriaRange = ws.Range("G1:G2")
    criteriaRange.Cells(1).Value = "Apple"
    criteriaRange.Cells(2).Value = "Orange"

    ' 设置要筛选的范围
    Set filterRange = rng

    ' 清除之前的筛选结果
    filterRange.AutoFilter

    ' 应用筛选条件并获取筛选结果
    filterRange.AutoFilter Field:=1, Criteria1:=criteriaRange.Cells(1).Value, Operator:=xlOr, Criteria2:=criteriaRange.Cells(2).Value
    Set filteredRange = filterRange.SpecialCells(xlCellTypeVisible)

    ' 在筛选结果中进行其他操作，例如复制到其他位置
    filteredRange.Copy ws.Range("H1")

    ' 清除筛选
    filterRange.AutoFilter
End Sub

シート1のA1:E10の範囲でG1、G2（”Apple”,”Orange”）の値で動的フィルタを行い、H1に結果をコピーします。

bannerAds