text ForEachPT_ChangeFieldSummaryFunctions.bas

Posted 2021-05-03

tags:

篇首语：本文由小常识网(cha138.com)小编为大家整理，主要介绍了text ForEachPT_ChangeFieldSummaryFunctions.bas相关的知识，希望对你有一定的参考价值。

Sub ChangeSummaryFunctions()

Dim Wks As Worksheet
Dim PT As PivotTable
Dim PF As PivotField
'~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
'written by Angelina Teneva, September 2016
'~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~

For Each Wks In ActiveWorkbook.Worksheets
    For Each PT In Wks.PivotTables
        For Each PF In PT.DataFields
        
            'comment as needed
            PF.Function = xlSum
            PF.Function = xlCount
            PF.Function = xlCountNums
            PF.Function = xlAverage
            PF.Function = xlProduct
            PF.Function = xlMax
            PF.Function = xlMin
                
        Next PF
    Next PT
        
Next Wks
End Sub

以上是关于text ForEachPT_ChangeFieldSummaryFunctions.bas的主要内容，如果未能解决你的问题，请参考以下文章