Поиск  Пользователи  Правила  Войти
Форумы "Планета Excel" » Вопросы по Microsoft Excel
Страницы: 1
RSS
Макрос для снятия фильтра
 
#1
01.03.2018 06:24:23
Добрый день.
Вопрос копеечный для тех, кто понимает. В архиве даже была такая тема, но там нет ответа на мой вопрос.
Через рекордер макросов записал простейший макрос на снятие фильтров через кнопку Данные-Очистить.
Завел макрос на кнопку. Макрос работает, если включены фильтры. Нет вопросов. А вот если нажать кнопку, когда фильтров нет - он выдает ошибку вот в этой (и единственной :) ) строке макроса

- ActiveSheet.ShowAllData

Я так понимаю, что нужно добавить что то, чтобы при нажатии на кнопку при отсутствии фильтров, он просто вхолостую щелкал и все. Но я в этом ни бум-бум. Помогите пожалуйста.
 
 
 
#2
01.03.2018 06:36:09
Если требуется "Отобразить все" не зависимо от того, применен автофильтр или нет, то можно так:
Код
On Error Resume Next: ActiveSheet.ShowAllData: On Error GoTo 0
Если же требуется вообще удалить автофильтр с листа, то так:
Код
ActiveSheet.AutoFilterMode = False
Чем шире угол зрения, тем он тупее.
 
 
 
#3
01.03.2018 07:43:52
"Если требуется "Отобразить все" не зависимо от того, применен автофильтр или нет, то можно так:"

Да, Вы меня правильно поняли. Вставил в макрос - не работает :(. Выдает ту же ошибку в той же строке
 
 
 
#4
01.03.2018 07:45:35
Прошу прощения - это я балбес. Нужно было разнести по разным строкам :)
Спасибо, заработало!
 
 
 
#5
01.03.2018 07:45:56
Код
ActiveSheet.AutoFilterMode = False

Этот код должен работать, сам проверял в работе, а выложите пример файла.  
 
 
 
#6
01.03.2018 07:53:18
Цитата
SAS888 написал: On Error Resume Next: ActiveSheet.ShowAllData: On Error GoTo 0
Или так: If ActiveSheet.FilterMode Then ActiveSheet.ShowAllData
Но если строки скрыты вручную или фильтром т.н. "умной" таблицы, то нужно уже так: Cells.Rows.Hidden = False
 
 
 
#7
01.03.2018 11:26:33
Цитата
DopplerEffect написал:
Этот код должен работать, сам проверял в работе, а выложите пример файла.  
Все работает, я просто невнимательно сделал первый раз.
 
 
 
#8
04.11.2019 09:51:03
Всем привет!
Столкнулся почти с аналогичной задачей, так, что не стал создавать отдельную тему, суть следующая есть несколько умных таблиц размещённых на одном листе, нужно снять все фильтры со всех разом, данный код работает:
Код
Cells.Rows.Hidden = False
, но после снятия всех фильтров в заголовках остаются кнопки, вроде как фильтр не снят, но на само деле снят, как можно исправить
 
 
 
#9
04.11.2019 10:07:26
Код
Sub Button1_Click()
     With ActiveSheet
        For Each lo In .ListObjects
            lo.AutoFilter.ShowAllData
        Next
     End With
End Sub
Мой канал
 
 
 
#10
04.11.2019 10:29:01
skais675, спасибо, я нашёл вот такой код, http://qaru.site/questions/228230/removing-filters-for-each-table-in-a-workbook-vba/1202718#1202718:
Код
Sub ResetFilters()
    Dim ws                    As Worksheet
    Dim wb                    As Workbook
    Dim listObj               As ListObject

    For Each ws In ActiveWorkbook.Worksheets
        For Each listObj In ws.ListObjects
            If listObj.ShowHeaders Then
                listObj.AutoFilter.ShowAllData
                listObj.Sort.SortFields.Clear
            End If
        Next listObj
    Next ws
End Sub
Ваш код, то же работает, но в чём разница?
 
 
 
#11
04.11.2019 10:43:16
Хорошая справка по работе с фильтрами
Цитата
adamm: несколько умных таблиц размещённых на одном листе
очень плохая идея
Во всех делах очень полезно периодически ставить знак вопроса к тому, что вы с давних пор считали не требующим доказательств (Бертран Рассел) ►Благодарности сюда◄
 
 
 
#12
04.11.2019 10:55:17
В дополнении темы - полное удаление фильтров
Код
Sub RemoveFilters()
    For Each lo In ActiveSheet.ListObjects
        If lo.ShowAutoFilter Then lo.ShowAutoFilter = False
    Next lo
End Sub
Мой канал
 
 
 
#13
04.11.2019 11:03:05
Цитата
Jack Famous написал:
очень плохая идея
Ситуация так требует, данные таблицы являются промежуточным звеном, выгружаются они из PQ, а к ним привязаны формулы
Хотя вопрос не в этом, решение есть спасибо skais675,
 
 
 
#14
04.11.2019 13:24:26
Вам нужно удалить фильтры, или сбросить?
Если сбросить, то
Код
Sub RemoveFilters()
    For Each lo In ActiveSheet.ListObjects
        lo.ShowAutoFilter = False
        lo.ShowAutoFilter = True
    Next lo
End Sub
 
 
 
#15
04.11.2019 23:54:20
я пользуюсь таким кодом, если нужно сбросить фильтры на одном листе или несколько (нужно добавить кнопку)


Private Sub CommandButton1_Click()

  Dim ws As Worksheet
   
   For Each ws In ThisWorkbook.Worksheets
   On Error Resume Next
   If ws.AutoFilterMode Then
       ws.AutoFilterMode = False
   End If
   Next ws
   
End Sub
 
 
 
#16
05.11.2019 00:03:51
geniux, Вы видели, как код выглядит у других?
 
 
 
Страницы: 1
Наверх