Excel VBA Pivot Table Wizard, задание таблицы назначения и удаление итоговых итогов

"PIVOT" работает хорошо, однако я хочу, чтобы лист назначения был конкретным существующим листом под названием "PIVOT" . Также я хотел бы удалить великие итоги для обеих rows и columns . Есть идеи?

 Sub CreatePivot() ' Creates a PivotTable report from the table on Sheet1 ' by using the PivotTableWizard method with the PivotFields ' method to specify the fields in the PivotTable. Dim objTable As PivotTable, objField As PivotField ' Select the sheet and first cell of the table that contains the data. ActiveWorkbook.Sheets("DATA").Select Range("A1").Select ' Create the PivotTable object based on the Employee data on Sheet1. Set objTable = ActiveWorkbook.Sheets("DATA").PivotTableWizard ' Specify row and column fields. Set objField = objTable.PivotFields("CCY") objField.Orientation = xlRowField Set objField = objTable.PivotFields("ACC") objField.Orientation = xlRowField Set objField = objTable.PivotFields("VD") objField.Orientation = xlColumnField ' Specify a data field with its summary ' function and format. Set objField = objTable.PivotFields("AMOUNT") objField.Orientation = xlDataField objField.Function = xlSum objField.NumberFormat = "#,##0" End Sub 

Лист адресата может быть определен параметром TableDestination в PivotTableWizard , тогда вы можете удалить итоговые суммы с помощью: ColumnGrand и RowGrand . Вот измененный код:

 Sub CreatePivot() ' Creates a PivotTable report from the table on Sheet1 ' by using the PivotTableWizard method with the PivotFields ' method to specify the fields in the PivotTable. Dim objTable As PivotTable, objField As PivotField ' Select the sheet and first cell of the table that contains the data. ActiveWorkbook.Sheets("DATA").Select Range("A1").Select ' Create the PivotTable object based on the Employee data on PIVOT with the name 'PivotTableName'. Set objTable = ActiveWorkbook.Sheets("DATA").PivotTableWizard(TableDestination:="PIVOT!R1C1", TableName:="PivotTableName") 'Remove grand totals With Sheets("PIVOT").PivotTables("PivotTableName") .ColumnGrand = False .RowGrand = False End With ' Specify row and column fields. Set objField = objTable.PivotFields("CCY") objField.Orientation = xlRowField Set objField = objTable.PivotFields("ACC") objField.Orientation = xlRowField Set objField = objTable.PivotFields("VD") objField.Orientation = xlColumnField ' Specify a data field with its summary ' function and format. Set objField = objTable.PivotFields("AMOUNT") objField.Orientation = xlDataField objField.Function = xlSum objField.NumberFormat = "#,##0" End Sub 
  • DrillDown to Array
  • Добавление отсутствующих дат в сводной таблице
  • Excel: как анализировать ячейки с несколькими значениями?
  • Таблицы сводных таблиц Excel с именами динамических полей
  • Один PivotChart, две оси, две таблицы
  • Почему я получаю повторяющиеся строки в сводной таблице Excel 2010?
  • Как отключить удаление отдельного счета под промежуточным итогом в сводной таблице Excel?
  • Вычисляемое поле на сводной таблице
  • Показать значение в% от общего количества итоговых итогов
  • Фильтрация сводной таблицы по большому размеру
  • Поворотные поля сворачиваются по умолчанию
  • Давайте будем гением компьютера.