Извлечь значение месяцев из опции среза времени в Excel 2017

Question

У меня есть лист Excel, для которого я вставил таймер для данных.Работает просто отлично.Однако мое требование заключается в том, чтобы при выборе любого значения в слайсере (например, «Месяцы», «Год», «Кварталы» и т. Д.) Мне требовалось ввести эквивалентное значение в месяцах в текстовом поле для моих целей расчета.Не уверен, что есть прямой путь для этого.Любая помощь приветствуется.

Пример. Предположим, если я выберу две четверти в слайсере, как на экране 1, я должен увидеть Месяцы = 6 в ячейке как экран 2.

Экран # 1

Экран № 2

Answer 1

Для этого ответа:

1. Я использую слайсер с именем Quarter - Refer Name = "Slicer_Quarter"
2. Ответ импортируется в Sheet1.Range ("A1").Значение

Попробуйте:

Sub Loop_SlicerItems()

    Dim sItem As SlicerItem
    Dim Months As Long

    Months = 0

    For Each sItem In ActiveWorkbook.SlicerCaches("Slicer_Quarter").SlicerItems

        If sItem.Selected = True Then
            Months = Months + 3
        End If

        Sheet1.Range("A1").Value = Months

    Next

End Sub