Опция сводной таблицы Excel по умолчанию для новых полей - как перейти от количества к сумме

Question

Я использую MS Excel 2016 для построения некоторых сводных таблиц с использованием большого количества полей.

Когда я выбираю новое поле, оно появляется как «количество», а не как «сумма» - поэтому яЯ должен изменить его вручную, и есть много полей.

Мой источник ввода имеет много NULLS / BLANKS - и я считаю, что именно поэтому эти новые поля изначально отображаются как "count".Прямо сейчас я изменяю все входные значения с NULL / BLANK на 0 (ноль), поэтому опция по умолчанию меняется на «sum».

Но мне было интересно, есть ли другой способ?

Answer 1

Вы можете проверить эту ссылку, но вот код (не тестировался)

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

http://excelpivots.com/excel/change-multiple-pivot-table-fields-sum-function/