Excel отсоединяется от клиентов на Автофильтра

Question

В моей таблице Excel У меня есть таблица данных, созданных

У меня также есть две кнопки

Один фильтрует четвертый столбец ничего выше 0

With ActiveSheet 
     .Range("A138:H246").Select 
     Selection.AutoFilter Field:=4, Criteria1:=">0", Operator:=xlAnd 
End With 

Другой (должен) удалить фильтр

With ActiveSheet 
    .Range("A138:H246").Select 
    Selection.AutoFilter Field:=4 
End With 

Однако, кнопка для удаления фильтр не работает, я постоянно получаю следующее сообщение

«Вызванный объект был отключен от клиентов Автофильтра»

Я попытался записью макросов, а затем с помощью этого кода, но даже это не помогает, если я бегу код на кнопке

Любые идеи?

Answer 1

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

Надеюсь, это поможет?

Activesheet.AutoFilterMode = false 

Как вы говорите, что это может дать ошибки, если автофильтрации уже ложно, когда вы пытаетесь сделать его ложным, однако, если вы поместите эту строку в код в нужном месте фильтр всегда будет верно, если вы хотите установите для него значение false. как показано ниже

ActiveSheet.Range("someRange").AutoFilter Field:=27, Criteria1:="test" 
' do something with filtered data 
ActiveSheet.AutoFilterMode = False 

Это выполняется без ошибок для меня ...

Answer 2

Mine говорит, что это должно быть так же просто, как это:

ActiveSheet.ShowAllData 

Она просто очистить все фильтры, но это Безразлично» t деактивировать режим AutoFilter, достаточно ли этого?

Вот код для сканирования всех использованных столбцов и сохранения скрытого состояния перед отображением всех из них, чтобы использовать фильтры ShowAllData и удалить ранее скрытые столбцы.

Dim TH() 
ReDim TH(ActiveSheet.Cells(1, Columns.Count).End(xlToLeft).Column) 

For j = LBound(TH) + 1 To UBound(TH) 
    TH(j) = ActiveSheet.Columns(j).EntireColumn.Hidden 
    ActiveSheet.Columns(j).EntireColumn.Hidden = False 
Next j 

ActiveSheet.ShowAllData 

For j = LBound(TH) + 1 To UBound(TH) 
    ActiveSheet.Columns(j).EntireColumn.Hidden = TH(j) 
Next j 

Если вам необходимо изменить режим Автофильтра:

Activesheet.AutoFilterMode = False 
Activesheet.AutoFilterMode = True 

Но это легко может генерировать ошибки относительно текущего состояния этого режима в листе. (если он уже находится в состоянии, которое вы пытаетесь установить, excel не нравится ...)