vba xlrunningtotal не работает

Question

Я пытаюсь добавить поданное в качестве промежуточного итога, когда оно добавляется как просто xlsum, оно работает, но не тогда, когда я пытаюсь сделать это xl промежуточным итогом.

    .AddDataField ActiveSheet.PivotTables( _
        sShtname).PivotFields("my_fav_100"), "my_fav_100_2", xlSum
    .PivotFields("my_fav_100_2").Calculation = xlRunningTotal
    With pt.PivotFields("my_fav_100_2")
       .Style = "Comma"
       .NumberFormat = "_(* #,##0_);_(* (#,##0);_(* ""0""??_);_(@_)"

Нет ошибки компиляции, но получает N/A в поле, если я закомментирую, поле ".PivotFields("my_fav_100_2").Calculation = xlRunningTotal" заполняется, но просто сумма, не содержащая общую сумму, также пытается. Calculation = xlRunningTotal и, похоже, не работает

Answer 1

Я не думаю, что вы предоставляете достаточно информации для того, как xlRunningTotal предназначен для работы. Вам необходимо определить свойство BaseField для сопряжения с вашим параметром xlRunningTotal. Когда я выбираю Запуск итогового входа из пользовательского интерфейса, мне нужно выбрать столбец, и когда я макетирую его в коде, я вижу ту же ошибку, которую вы видите, пока я не добавлю строку .BaseField = myColName после .Calculation = xlRunningTotal.