Выбор основных пунктов последовательно - PullRequest
Новая
       13

Выбор основных пунктов последовательно

0 голосов
/ 20 марта 2020

У меня есть сводная таблица, pivotitem - это «closuremonth» с диапазоном от 1 до 48. Теперь я хочу 1. выбрать pivotitem от 1 до 12 и вывести сумму, затем через 5 минут времени 2. выбрать pivotitem от 2 до 13 и выведите сумму, затем через 5 минут времени 3. выберите опорные точки от 3 до 14 и напечатайте сумму, затем через 5 минут времени ..... так до конца. Pl

введите описание изображения здесь

Я пытаюсь использовать приведенный ниже код, но безуспешно Sub LoopPivotPageFields () Dim pt As PivotTable Dim pf As PivotField Dim pi As PivotItem 

Set pt = IW CR Skyplate Trend.PivotTables("PivotTable1")
Set pf = pt.PivotFields("CLOSUREMONTH")

For Each pi In pf.PivotItems
    'Do something with the pivot item
    Debug.Print "Do something with pivot item " & pi.Name
    ' For example: set page filter
    pf.ClearAllFilters
    pf.CurrentPage = pi.Name
    Debug.Print "Pivot table is filtered to page item: " & pi.Name
Next pi

End Sub

...