2

我正在尝试创建一个动态的宏，并通过所有可能的页面过滤器组合运行并生成报告。

现在，我只有两个过滤器：AccountManager 和 CostCenter，下面的宏会遍历 AccountManager 的所有值及其对应的 CostCenter 值并准备报告。

Sub Run_All_Reports()
    Dim PT As PivotTable
    Dim PF As PivotField
    Dim PI As PivotItem, PI2 As PivotItem

    Sheets("Pivot").Activate
    Set PT = ActiveSheet.PivotTables("Budget")

    For Each PI In PT.pageFields(1).PivotItems
        PT.pageFields(1).CurrentPage = PI.Name
        For Each PI2 In PT.pageFields(2).PivotItems
            PT.pageFields(2).CurrentPage = PI2.Name
            Call Run_Report
        Next
    Next
End Sub

我不知道如何将此功能扩展为动态的，即它读取存在多少页面过滤器，然后为每个可能的组合准备报告。

可以说，我介绍了另一个过滤器 - 区域。然后它应该为所有可能的组合生成报告。下面的一个例子：

John, Marketing, London
John, Marketing, NewYork
John, Sales, London
Sam, Sales, London
Sam, Sales, NewYork

不确定我是否足够清楚。我试图四处寻找，但找不到解决方案。我被问到 2 页过滤器的这个问题，我已经实现了上述解决方案，但从昨天开始我就头疼，因为我希望它在我的脑海中是动态的。

4

2 回答 2

0

这对我有用！

这将遍历所有可能的页面字段组合。我确信存在更优化的版本。但我不是计算机背景，这是我感兴趣的一个问题

Sub All_Comb()
    Dim PT As PivotTable
    Dim PI As PivotItem, PI2 As PivotItem
    Dim totPF As Integer, i As Integer
    Dim elemCountArray() As Integer

    Sheets("Pivot").Activate
    Set PT = ActiveSheet.PivotTables("Budget")
    totPF = PT.PageFields.Count

    ReDim elemCountArray(0 To totPF)
    For i = 1 To totPF
        elemCountArray(i) = PT.PageFields(i).PivotItems.Count
    Next i

    For i = 1 To totPF
        For y = 1 To elemCountArray(i)
            PT.PageFields(i).CurrentPage = PT.PageFields(i).PivotItems(y).Name
            If (i < totPF) Then
                Call SetUpFields(PT, i + 1, elemCountArray(i + 1), totPF, elemCountArray())
            End If
        Next y
    Next i
End Sub

Sub SetUpFields(PT As PivotTable, PFid As Integer, elemCount As Integer, totPF As Integer, elemCountArray() As Integer)
    For y = 1 To elemCount
        PT.PageFields(PFid).CurrentPage = PT.PageFields(PFid).PivotItems(y).Name
        If (PFid < totPF) Then
                Call SetUpFields(PT, PFid + 1, elemCountArray(PFid + 1), totPF, elemCountArray())
        End If
    Next y
End Sub
于 2013-05-04T19:18:31.763 回答
0

使用递归过程，如下所示

例如

Sub RunForALlItems(PT as pivotTable, count as integer)
numFields= PT.pageFields.count
for each PI in PT.pageFields(num).PivotItems
   PT.pageFields(num).CurrentPage = PI.Name
   if (num=numFields) then
      call run_Report
   elseif (num<numFields) then
      call RunForAllItems(PT, count+1)
   end if
next
end sub

然后用

RunForAllItems(PT, 1)

我还没有测试过它，但它应该-稍作调整-工作

于 2013-05-04T19:04:48.307 回答