Реверсивный выбор в Excel\Access filter

Question

Просматривая список вариантов фильтрации в Excel или Access, я могу выбрать или отменить выбор любой конкретной категории, а также выбрать или отменить выбор всех категорий.

Огромная экономия времени во многих ситуациях - это возможность ОТМЕНИТЬ все выборы: все выбранные категории отменены, все невыбранные категории выбраны.

Я не вижу такой опции в меню фильтров - возможно, существует какая-либо комбинация клавиш? или есть другой способ получить тот же результат?

Answer 1

Кажется, что вы можете сделать это с VBa (я не проверял это). Код также написан и протестирован в Excel 2003, но я думаю, что он будет работать для вас.

Sub InvertFilters() 
Dim rng_cell As Range 
    For Each rng_cell In Range("myActualFilter") 
        rng_cell.Value = Not rng_cell.Value 
    Next rng_cell 
    Range("myCheckBoxAll").Value = _ 
             Application.WorksheetFunction.And(Range("myActualFilter").Value) 
End Sub

http://www.clearlyandsimply.com/clearly_and_simply/2011/03/excel-multiple-value-filters-with-invert-selection.html

DigDB, кажется, предлагает это http://www.digdb.com/excel_add_ins/filter_invert/