Аддитивный автофильтр - Временное решение

Я пытаюсь отфильтровать столбец в файле Excel с помощью кода VBA, но проблема в том, что я не могу сохранить первый фильтр и добавить еще один (другие условия IF). Как я могу сохранить первый фильтр и добавить второй в тот же столбец?

Большое спасибо!

Private Sub Search_Click()

    If InStr(TextBox1.Text, "TEST_1") Then
        With ActiveSheet.Range("A$1")
        .AutoFilter Field:=1, Criteria1:="A"
        .AutoFilter Field:=2, Criteria1:=Array("B", "C", _
                                    "D", "E"), _
                    Operator:=xlFilterValues
        End With

        If InStr(TextBox1.Text, "TEST_2") Then
            ActiveSheet.Range("A$1").AutoFilter Field:=2, Criteria1:="F"
        End If

    End If

End Sub

Всего 1 ответ


Проверка сначала всех условий позволит вам создать массив, который вам нужен, а затем использовать его в качестве фильтра.


Есть идеи?

10000