Отмена выбора одного элемента автофильтра с использованием VBA фактически отменяет выбор ВСЕХ элементов - PullRequest
Новая
       12

Отмена выбора одного элемента автофильтра с использованием VBA фактически отменяет выбор ВСЕХ элементов

1 голос
/ 01 июня 2019

Довольно хорошо с VBA, но этот код не работает.Попытка отменить выбор одного элемента в поле автофильтра.Вместо этого он отменяет выбор всех элементов в этом поле.Может кто-нибудь сказать, пожалуйста, что я делаю не так?В приведенном ниже фрагменте я хочу следующее:

  • Показать все значения # N / A в поле 24
  • Показать все значения поля в поле 22, КРОМЕ «Доход»
  • Показать все значения полей в поле 8, ИСКЛЮЧИТЬ пробелы

Но вместо этого поля 24 и 8 отменяют выбор всех значений и не фильтруют.Я пытался добавить принудительное вычисление, но это тоже ничего не делает.Любой совет? 

Sub Macro1()

    With Sheets("Expense Data")
        .Activate
        On Error Resume Next
        .ShowAllData
        Range("A1").AutoFilter Field:=24, Criteria1:="#N/A"
        Range("A1").AutoFilter Field:=22, Criteria1:="<>Revenue"
        Range("A1").AutoFilter Field:=8, Criteria1:="<>(blanks)"
        .Calculate
    End With

End Sub

1 Ответ

0 голосов
/ 01 июня 2019

Неважно, я понял ...

Он рассматривается как текстовый фильтр - поэтому "<> (пустые места)" должно быть просто "<>".

Все исправлено.

...