У меня есть лист Excel, для которого я вставил срез времени для данных. Работает нормально. Однако мое требование состоит в том, что, когда я выбираю любое значение в срезе (например, Месяцы, Год, Кварталы и т. д.), Мне нужно, чтобы эквивалентное значение месяцев было заполнено в текстовом поле для целей моих расчетов. Не уверен, есть ли для этого прямой путь. Любая помощь приветствуется.
Пример - Предположим, что если я выберу две четверти в срезе, как на экране 1, я должен увидеть Месяцы = 6 в ячейке как на экране 2.
Экран # 1
Экран # 2
На этот ответ:
Пытаться:
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