Страницы: 1
RSS
Очистка фильтров таблиц
 
Доброй ночи, кто еще не спит  :)
Подскажите пожалуйста как на vba очистить все фильтры, если на листе несколько диапазонов, форматированых как таблица.
ShowAllData не канает, ибо он очищает, если курсор на таблице.
Бежать селектом по всех таблицах и ShowAllData?
Или есть какой то нормальный способ?
Спасибо.
 
Доброе утро ;)  страна, однако, большая
Собственно всё тоже самое

Код
Public Sub ShowAllData()
    Dim pLObject As ListObject
    Dim pFilter As Filter
    For Each pLObject In ActiveSheet.ListObjects
        pLObject.AutoFilter.ShowAllData
    Next
End Sub
 
Спасибо)
Что то похожее пробовал, но обращаясь напрямую ListObject("Имя") - не получалось.
Видимо с синтаксисом что то накрутил.

Так работает.
Страницы: 1
Наверх