Как проверить наличие фильтра в определенном столбце, а затем отфильтровать / отфильтровать его? - PullRequest
Новая
       21

Как проверить наличие фильтра в определенном столбце, а затем отфильтровать / отфильтровать его?

0 голосов
/ 14 сентября 2018

У меня есть два фильтра в электронной таблице, и я пытаюсь проверить, активен ли один из них (столбец H).Если он отфильтрован, я хочу только отфильтровать этот столбец, если нет, я хочу применить фильтр.

Вот мой текущий код: 

Sub UnFilter()
Dim ws As Excel.Worksheet

  Set ws = Worksheets("Ranked Results")
  With ws
    If Not Intersect(.AutoFilter.Range, .Range("H1")) Is Nothing Then
      .Range("$A$2:$K$22003").AutoFilter Field:=8
    Else
      Dim Company As String
      Company = .Range("L2")
     .Range("$A$2:$K$22003").AutoFilter Field:=8, Criteria1:=">" & Company, _
     Operator:=xlAnd
    End If
  End With
End Sub
...