问新字段的Excel数据透视表默认选项-如何从计数更改为求和

EN

Public Sub AddPivotDataToSumFields()
    ' Cycles through all pivot data fields and sets to sum
    ' Created by David Sellnow
    ' Version 1.0 November 11 2016

    Dim pf As PivotField
    Dim FieldName As Variant
    Dim TableName As String
    Dim Table As Object
    With Selection.PivotTable
        TableName = .Name
        .ManualUpdate = True
        For Each pf In .DataFields
            With pf
                FieldName = Mid(.Caption, 8)
                ActiveSheet.PivotTables(TableName).AddDataField ActiveSheet.PivotTables( _
                TableName).PivotFields(FieldName), "Max Of " & FieldName, xlMax

                ActiveSheet.PivotTables(TableName).AddDataField ActiveSheet.PivotTables( _
                TableName).PivotFields(FieldName), "Min Of " & FieldName, xlMin

                ActiveSheet.PivotTables(TableName).AddDataField ActiveSheet.PivotTables( _
                TableName).PivotFields(FieldName), "StdDev Of " & FieldName, xlStDev

                ActiveSheet.PivotTables(TableName).AddDataField ActiveSheet.PivotTables( _
                TableName).PivotFields(FieldName), "Var Of " & FieldName, xlVar
            End With
        Next pf
        .ManualUpdate = False
    End With
End Sub