Excel vba убрать автофильтр

{quote}{login=Электророзетка}{date=28.11.2008 04:50}{thema=}{post}Ребята, а зачем макрос для «Отобразить все»? Мы не ищем легких путей? :)) Не проще кнопку вынести на панель инструментов? Вот тут даже написано как это сделать:

http://www.planetaexcel.ru/tip.php?aid=45

(даже слишком подробно).    
А если нужно не отобразить все, а вообще удалить автофильтр, то у меня кнопке назначен вот такой микромакрос:    

  Sub Remove_Autofilter()  

     Selection.AutoFilter  
End Sub{/post}{/quote}  

  макрос — он для использования в других макросах..   это ВАм сразу ясно есть автофильтр на листе или нет, а макросы   — они глупые..  

    хотя и к макросу можно кнопку прикрутить — в общем оно универсальнее..

This thread is ancient, but I wasn’t happy with any of the given answers, and ended up writing my own. I’m sharing it now:

We start with:

  Sub ResetWSFilters(ws as worksheet)
             If ws.FilterMode Then   
     ws.ShowAllData   
     Else   
     End If  
    'This gets rid of "normal" filters - but tables will remain filtered
    For Each listObj In ws.ListObjects 
               If listObj.ShowHeaders Then   
                    listObj.AutoFilter.ShowAllData
                    listObj.Sort.SortFields.Clear    
               End If     
       Next listObj
        'And this gets rid of table filters
        End Sub

We can feed a specific worksheet to this macro which will unfilter just that one worksheet. Useful if you need to make sure just one worksheet is clear. However, I usually want to do the entire workbook

Sub ResetAllWBFilters(wb as workbook)
  Dim ws As Worksheet  
  Dim wb As Workbook  
  Dim listObj As ListObject    

       For Each ws In wb.Worksheets  
          If ws.FilterMode Then 
          ws.ShowAllData  
          Else   
          End If   
 'This removes "normal" filters in the workbook - however, it doesn't remove table filters           
   For Each listObj In ws.ListObjects 
        If listObj.ShowHeaders Then   
             listObj.AutoFilter.ShowAllData 
             listObj.Sort.SortFields.Clear    
        End If     
   Next listObj

        Next   
'And this removes table filters. You need both aspects to make it work.  
    End Sub

You can use this, by, for example, opening a workbook you need to deal with and resetting their filters before doing anything with it:

Sub ExampleOpen()
Set TestingWorkBook = Workbooks.Open("C:Intel......") 'The .open is assuming you need to open the workbook in question - different procedure if it's already open
Call ResetAllWBFilters(TestingWorkBook)
End Sub

The one I use the most: Resetting all filters in the workbook that the module is stored in:

Sub ResetFilters()
      Dim ws As Worksheet  
      Dim wb As Workbook  
      Dim listObj As ListObject  
       Set wb = ThisWorkbook  
       'Set wb = ActiveWorkbook
       'This is if you place the macro in your personal wb to be able to reset the filters on any wb you're currently working on. Remove the set wb = thisworkbook if that's what you need
           For Each ws In wb.Worksheets  
              If ws.FilterMode Then 
              ws.ShowAllData  
              Else   
              End If   
     'This removes "normal" filters in the workbook - however, it doesn't remove table filters           
       For Each listObj In ws.ListObjects 
            If listObj.ShowHeaders Then   
                 listObj.AutoFilter.ShowAllData 
                 listObj.Sort.SortFields.Clear    
            End If     
       Next listObj

            Next   
'And this removes table filters. You need both aspects to make it work.  
    End Sub

В этом руководстве будет показано, как отключить / очистить автофильтры в VBA.

Автофильтры можно включить или выключить с помощью кода VBA.

В следующем примере кода автофильтр отключается на активном листе, сначала проверяя, что он еще не отключен.

Включите автофильтр на активном листе в VBA

В следующем примере кода включается автофильтр на активном листе, сначала проверяя, что он еще не включен.

Отключите автофильтр на всех листах в VBA.

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

Отключите автофильтр на всех листах в VBA.

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

Очистить все фильтры на активном листе в VBA

В следующем примере кода автофильтр остается включенным на активном листе, но очищаются все фильтры, примененные к данным.

Очистить все фильтры на всех листах в VBA

Точно так же в следующем примере кода выполняется цикл по всей книге и оставляет включенным автофильтр на каждом листе, если он уже включен, но очищает любой фильтр, примененный к данным.

Очистить все фильтры в таблице в VBA

Если наш рабочий лист содержит объект таблицы, мы можем настроить код, чтобы просто очистить любой фильтр, примененный к этому фильтру, оставив автофильтр включенным.

Если объект таблицы будет связан со сводной таблицей, то сводная таблица обновится соответствующим образом.

Вы поможете развитию сайта, поделившись страницей с друзьями

Has your data import procedure ever failed due to users applying filters on the data? This happens quite often, especially when you distribute multiple files, which you then stack. Copying filtered data copies only the filtered rows. You end up loosing the hidden rows if users filtered data before saving the workbook. Let us take a look at how to remove filters in an Excel sheet using VBA.

Before we dive into how to remove filters, let us briefly take a look at the types of filtering capability Excel offers. Filtering in Excel comes in two flavours:

• Auto Filter
• Advanced Filter

Auto filter adds dropdown buttons to the columns, which offer you a variety of filtering and sorting options through an intuitive graphical interface. Advanced Filter on the other hand, lets you specify your filtering criteria in a range of cells.

Auto Filter is easy to spot visually; the dropdowns are hard to miss. However, Advanced Filter is a harder to spot. In both cases, if some of the Row Numbers to the left of a sheet appear blue instead of the regular black colour, filters have been applied on that sheet.

Mastering both these skills are essential for anybody who uses Excel at their workplace. There are a multitude of resources on the internet on these topics. I recommend you familiarise yourself with filtering data in Excel.

The ShowAllData method of the Worksheet object lets you remove any filters that were applied on the data. However, it throws a runtime error when filters have not been applied. One could simply supress the error and call it a day, but I’d loose sleep over resorting to such cowardice. Let us try to figure out a legitimate way of finding whether or not filters have been applied on a sheet.

The FilterMode property of the Worksheet object gets set to TRUE, when filters are applied either as Auto Filters or Advanced Filters. This is a Read-Only property. It can be used to check whether any filters are applied, before using the ShowAllData method. This will help us ensure a runtime error is not triggered when calling the ShowAllData method.

If you are interested in removing the Auto Filter Dropdown buttons as well, which is how I prefer it, you can use the AutoFilterMode property to turn it off. This property is not a Read-Only property, which means you can set it to TRUE to activate AutoFilters and vice versa.

Wrapping this all up, here is a Sub that I use very frequently, which you can use in your projects:

Sub RemoveFilters(ByRef WhichSheet As Worksheet)
'If data is filtered either using AutoFilters or Advanced Filters
'Show all the data
If WhichSheet.FilterMode Then WhichSheet.ShowAllData
'Hide the AutoFilter DropDown Buttons
If WhichSheet.AutoFilterMode Then WhichSheet.AutoFilterMode = False
End Sub

Just pass a Worksheet to the above sub to remove filters without encountering a runtime error.

Note that having Excel Tables, also known List Objects in VBA, in the worksheet could throw these properties off, especially when the active cell is in a Table. If you are using Excel Tables, and I highly recommend that you do, you can deal with filters applied to a table specifically. We will reserve that discussion for another day.

Downloads

Click the link below to download a workbook with the above code. It also has a cover macro on removing filters in the active sheet.

Further Reading

• Advanced filters come in handy when you have to apply a rather complex filter criteria repeatedly. It is also easy to filter data using VBA if you create an appropriate criteria range. Coding the application of AutoFilters is rather cumbersome. Here is an introduction to using AutoFilters in Excel:
  • Excel Advanced Filter Introduction – Debra Dalgleish

AutoFilters are a great feature in Excel.  Often they are a quicker way of sorting and filtering data than looping through each cell in a range.

This post provides the main lines of code to apply and control the AutoFilter settings with VBA.

Adapting the code to your needs

Every code snippet below is applied to the ActiveSheet (i.e., whichever sheet which is currently in use at the time the macro runs).  It is easy to apply the code to other sheets by changing the section of code which refers to the ActiveSheet.

'Apply to a specific sheet by name
Sheets("SheetName").AutoFilter...

'Apply to a specific sheet by it's position to the left most tab.  1 being the first tab.
Sheets(1).AutoFilter...

'Apply to a specific sheet by it's VBA Code Name
'VBA Code Name is the "(Name)" property of the worksheet
Sheet1.Autofilter...

'Apply to a specific sheet in a different workbook.
Workbooks("AnotherWorkbook.xlsx").Sheets("Sheet1").AutoFilter...

AutoFilter Icons

When using AutoFilters, the icons at the top of the columns indicate whether any settings have been applied.

Check Auto Filter existence

Each worksheet can only contain one AutoFilter.  The following code checks for the existence of an AutoFilter by checking the AutoFilterMode property of the sheet.

'Check if an AutoFilter already exists
If ActiveSheet.AutoFilterMode = True Then

    'Do something

End If

Add / Remove an Auto Filter

'Apply filter to 'Current Region' which contains cell A1.
ActiveSheet.Range("A1").AutoFilter

The AutoFilter will be applied to the “current region” of the cells.  The Current Region represents the cells surrounding the selected cell which are not separated by a blank row or column.

Trying to add an AutoFilter to an empty cell will trigger an error message.

'Remove AutoFilter
ActiveSheet.AutoFilterMode = False

Hide / Display Auto Filter drop-down button

The drop-down buttons can be hidden, giving the appearance that there is no AutoFilter on the worksheet.  This is great if using VBA to control the AutoFilter as part of a process; the user will not be able to apply their own settings.

'Hide the dropdown filter from Cells by field number, or by range
ActiveSheet.Range("A1").AutoFilter Field:=1, Visibledropdown:=False
ActiveSheet.Range("A1").AutoFilter Field:=2, Visibledropdown:=False

'Display the dropdown filter from Cells by field number, or by range
ActiveSheet.Range("A1").AutoFilter Field:=1, Visibledropdown:=True
ActiveSheet.Range("A1").AutoFilter Field:=2, Visibledropdown:=True

Count visible records

After applying a filter, counting the visible cells in the first column will show the number of records meeting the criteria applied.

'Count the number of rows which are visible in the AutoFilter
'including the Header (hence the -1 at the end)
MsgBox ActiveSheet.AutoFilter.Range.Columns(1). _
    SpecialCells(xlCellTypeVisible).Count - 1

Get Auto Filter range

The code below will show you the range of cells which are covered by the AutoFilter.

'Get Range of AutoFilter, including the header row
MsgBox ActiveSheet.AutoFilter.Range.Address

Show everything

Showing everything in the AutoFilter will cause an error if a filter has not been applied.

'First check if a filter has been applied
If ActiveSheet.FilterMode = True Then

    'Show all the data
    ActiveSheet.ShowAllData

End If

Apply text filter to a column

The example below shows how to apply a text filter for any value of “A” or “B”.

'Apply a text filter to a column
ActiveSheet.Range("A1").AutoFilter Field:=1, Criteria1:="=A", _
    Operator:=xlOr, Criteria2:="=B"

Advanced filtering is one of the most useful features of AutoFilter.  The examples show how to apply different criteria by using Wildcards.

Equals: Criteria1:="=Apple"
Does Not Equal: Criteria1:="<>Apple"
Begins with: Criteria1:="=*Apple"
Ends with: Criteria1:="=Apple*"
Contains: Criteria1:="=*Apple*"
Does Not Contain: Criteria1:="<>*Apple*"

Operators allow multiple filters to be applied to a single column.  Filters can be ‘and’ where both criteria are met, or ‘or’ where either criteria is met.

Or: Operator:=xlOr
And: Operator:=xlAnd

Apply color filter to a column

AutoFilters allow cells to be filtered by color.  The RGB color code below can be used to sort by any color.

'Apply color filter using an RGB color
ActiveSheet.Range("$A$1:$A$7").AutoFilter Field:=1, Criteria1:=RGB(255, 255, 0), _
    Operator:=xlFilterCellColor

'Filter on no fill color
ActiveSheet.Range("$A$1:$A$7").AutoFilter Field:=1, Operator:=xlFilterNoFill

Clear an existing sort

'Clear the sorted field
ActiveSheet.AutoFilter.Sort.SortFields.Clear

Apply an alphabetical sort

'Clear the sorted field
ActiveSheet.AutoFilter.Sort.SortFields.Clear

'Setting the sorting options
ActiveSheet.AutoFilter.Sort.SortFields.Add Order:=xlAscending, _
    SortOn:=xlSortOnValues, Key:=Range("A1:A7")
'Applying the sort
ActiveSheet.AutoFilter.Sort.Apply

To apply descending sort, change the Order property to xlDescending:

Order:=xlDescending

Apply a custom sort order

Alphabetical and reverse alphabetical may be the most likely sort order, however any custom sort order can be applied.  The example below will sort in the order of “L”, “J”, “B” then “Q”.

'Clear the sorted field
ActiveSheet.AutoFilter.Sort.SortFields.Clear

'Set the sort to a Custom Order
ActiveSheet.AutoFilter.Sort.SortFields.Add Key:=Range("A2:A7"), _
    SortOn:=xlSortOnValues, Order:=xlAscending, _
    CustomOrder:="L,J,B,Q"

'Applying the sort
ActiveSheet.AutoFilter.Sort.Apply