Проблема с фильтрацией Excel VBA

Удивительные пользователи Stackoverflow,

У меня возникают трудности с чем-то, что кажется достаточно простым, чтобы не доставлять столько хлопот. Я пытаюсь отфильтровать данный лист на основе критериев. Вот код:

Sub FilterWorksheet(sCriteria As String)
  'First, clear the filter
  ThisWorkbook.Worksheets("MyAwesomeSheet").AutoFilterMode = False

  'Then apply the filter for the Transfer_From_seg column
  ThisWorkbook.Worksheets("MyAwesomeSheet").AutoFilter Field:=2, Criteria1:=sCriteria
End Sub

По какой-то причине последняя строка, где я фактически применяю фильтр, продолжает выдавать мне следующее сообщение об ошибке:

Runtime Error '448'

Named argument not found

Я делаю что-то действительно глупое с этим?

Спасибо!

Обновлять:

Итак, я нашел решение. Вот как это выглядит:

Sub FilterWorksheet(sCriteria As String)
  'First, clear the filter
  ThisWorkbook.Worksheets("MyAwesomeSheet").AutoFilterMode = False

  'Then apply the filter for the Transfer_From_seg column
  ThisWorkbook.Worksheets("MyAwesomeSheet").Range("A:H").AutoFilter Field:=2, Criteria1:=sCriteria
End Sub

Я не совсем уверен, почему это работает, а предыдущее - нет, поэтому, если кто-то может мне это объяснить, это было бы замечательно. Спасибо еще раз!


excel vba excel-2007 autofilter
person tundal45    schedule 05.01.2011    source источник

Ответы (1)


arrow_upward
1
arrow_downward

Вам нужно указать диапазон, который вы хотите отфильтровать. Например:

ThisWorkbook.Worksheets("MyAwesomeSheet").Range("B3:C11").AutoFilter field:=2, Criteria1:=sCriteria

Метод автофильтрации в справочнике по языку VBA Excel 2003

person marg    schedule 05.01.2011
comment
Спасибо! Я только что нашел решение. - person tundal45; 05.01.2011