Выбрать обратный фильтр

Question

Criteria1:=Array( _
    "0.4", "0.6", "0.2", "50", "12-06-20", "9", "2", "25", "Chosen", "gm", "GrpQ3", "USD","Not Chosen", "questions skiped', "=") _
    , Operator:=xlFilterValues 

В приведенном выше фильтре мне нужны все остальные значения, кроме «Not Chosen», «questions skiped ',« = », но мой набор значений меняется каждый раз, и в каждом наборе вышеупомянутые атрибуты присутствуют совместно. Итак, каким образом я должен изменить свой код, чтобы выбирать все значения каждый раз, когда я давал новые значения, кроме трех.

Кто-нибудь может мне с этим помочь.

Answer 1

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

Поэтому попробуйте создать массив, который включает все значения в этом диапазоне, кроме того, которое вы хотите пропустить. например:

    Dim myRange As Range
    Dim arrSrc As Variant, arrCrit() As String
    Dim I As Long, V

Set myRange = Range('the column being filtered on')

arrSrc = myRange

I = 0
ReDim arrCrit(1 To UBound(arrSrc))
    For Each V In arrSrc
        Select Case V
            Case "Not Chosen", "=", "questions skiped"
            'do nothing
        Case Else
            I = I + 1
            arrCrit(I) = V
        End Select
    Next V

ReDim Preserve arrCrit(1 To I)

Затем в коде фильтра вы можете:

Criteria1:= arrCrit