Слайсеры для поворотных столов. Могу ли я убедиться, что один конкретный элемент всегда выбран?

Question

Я использую Excel 2013.

Как и в заголовке, у меня есть слайсер (подключенный к сводной таблице и сводной диаграмме), и я хотел бы убедиться, что один конкретный элемент в моем слайсере всегда выбран, при этом по желанию можно выбрать (и отменить выбор) несколько других элементов.

Гипотетически, скажем, элементы в моем слайсере являются "соответствующими", "поцарапанными", "вмятинами", "сломанными", "порванными" (и т.д. И т.д., И многое другое).

Мой слайсер подключен к сводной диаграмме, и моя диаграмма имеет смысл только в том случае, если всегда выбран элемент, называемый "соответствующий", вместе с одним (или несколькими) дефектами.

Есть ли способ заставить слайсер всегда выбирать "соответствующий", в то же время позволяя пользователю выбрать дополнительный элемент (или больше)?

Заранее спасибо!

Answer 1

Вы можете достичь этого с помощью макроса.

Поместите ниже макрос на листе, который содержит сводную таблицу и обновите имя слайсера и имя элемента фильтра :)

(вам нужно обратиться к имени форумного слайсера, которое можно увидеть в настройках слайсера)

Private Sub Worksheet_PivotTableUpdate(ByVal Target As PivotTable)

    On Error GoTo err_handler 'filter value might not contain any data and this will throuh an error

    Application.EnableEvents = False
    Application.ScreenUpdating = False

    ActiveWorkbook.SlicerCaches("Slicer_Name").SlicerItems("FilterItemName").Selected = True

err_handler:
    Application.EnableEvents = True
    Application.ScreenUpdating = True
    If Err.Number > 0 Then MsgBox "There are no data for the mandatory filter"

End Sub