Удалить все активные фильтры из листа в excel

Я работаю со столами в excel и хочу удалить весь фильтр, который был установлен в любом из моих 52 столбцов, удалить жирный шрифт, цвета и т. Д. (Вернуться к нормальному форматированию).Удалить все активные фильтры из листа в excel

Как-то мой код этого не делает, любая идея, где проблема может быть?

'Clears filters on the activesheet. Will not clear filters if the sheet is protected. 
On Error Resume Next 
If ActiveWorkbook.ActiveSheet.FilterMode Or ActiveWorkbook.ActiveSheet.AutoFilterMode Then 
    ActiveWorkbook.ActiveSheet.ShowAllData 
End If 

'in case the sheet is protected 
ActiveWorkbook.Sheets("List").Cells.EntireColumn.Hidden = False

источник

2016-04-07 skatun

Вы можете попробовать с этим вместо:

ActiveSheet.AutoFilter.ShowAllData

Он может работать.

источник

2016-04-07 14:58:05 Vityata

То, что у меня есть в моем коде, который по какой-то причине не работает. – skatun

Не совсем. Ваш код немного отличается. – Vityata

это работает, за исключением того, что она не снимая сортировки: ActiveWorkbook.ActiveSheet.AutoFilter.ShowAllData – skatun

If ActiveSheet.AutoFilterMode Then ActiveSheet.Cells.AutoFilter 
If ActiveSheet.AutoFilterMode Then ActiveSheet.ShowAllData

источник

2016-04-07 15:04:51 Will

'Если ActiveWorkbook.ActiveSheet.AutoFilterMode Тогда ActiveWorkbook.ActiveSheet.Cells.AutoFilter End If Если ActiveWorkbook.ActiveSheet.AutoFilterMode Тогда ActiveWorkbook. ActiveSheet.ShowAllData End Если 'Он не вызывает ни одного из них, если предложения. – skatun

Пожалуйста, попробуйте ниже

Cells.AutoFilter

источник

2016-04-07 15:50:27

Это решило его:

ActiveWorkbook.Worksheets("List").ListObjects("FilterParts").Sort.SortFields.Clear 
ActiveSheet.ShowAllData

Однако, как можно отсортировать этот столбец

Range("FilterParts[[#Headers],[POS NUMBER]]").Select

так, что он показывает все, кроме заготовки?

источник

2016-04-08 07:06:47 skatun

Удалить все активные фильтры из листа в excel

ответ

Смежные вопросы