Tüm etkin filtreleri excel'deki sayfadan çıkarın

Excel'de tablolarım ile çalışıyorum ve 52 sütunumdan herhangi birinde ayarlanmış tüm filtreleri kaldırmak, kalın, renkleri vb. Kaldırmak (normal biçimlendirmeye geri dönmek).Tüm etkin filtreleri excel'deki sayfadan çıkarın

Bir şekilde kodum bunu yapmıyor, sorunun nerede olabileceği konusunda bir fikir var mı?

'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

kaynak

2016-04-07 skatun

yerine bu bir deneyebilir miyiz:

ActiveSheet.AutoFilter.ShowAllData

O çalışabilir.

kaynak

2016-04-07 14:58:05 Vityata

Kodumda sahip olduğum şey, bir nedenden dolayı çalışmıyor. – skatun

Tam olarak değil. Kodun biraz farklı. – Vityata

buna çıkarmadan sıralama etmemesi dışında, çalışır: ActiveWorkbook.ActiveSheet.AutoFilter.ShowAllData – skatun

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

kaynak

2016-04-07 15:04:51 Will

'Eğer ActiveWorkbook.ActiveSheet.AutoFilterMode Sonra ActiveWorkbook.ActiveSheet.Cells.AutoFilter sonu Eğer ActiveWorkbook.ActiveSheet.AutoFilterMode Sonra ActiveWorkbook edin. ActiveSheet.ShowAllData End If 'cümlelerden herhangi birini tetiklemezse .. – skatun

aşağıda

Cells.AutoFilter

kaynak

2016-04-07 15:50:27

ile deneyin Bu Çözmedim:

Ben hariç her şeyi gösteriyor ki

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

nedenle bu sütunu sıralamak nasıl Ancak

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

boşlukları?

kaynak

2016-04-08 07:06:47 skatun

Tüm etkin filtreleri excel'deki sayfadan çıkarın

cevap

İlgili konular