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 
  • Макрос Excel для создания сводной таблицы
  • Почему я получаю ошибку несоответствия типа, пытающуюся создать сводный кеш?
  • Excel VBA удаляет сводную диаграмму с макросом
  • перенос значений из одного столбца в другой в стержне
  • Формула сводной таблицы Excel не работает
  • Изменение таблицы сводной таблицы в другую книгу (на основе значения ячейки)
  • Сводная таблица не может найти разницу между январем текущего года и декабрем прошлого года. Excel 2010
  • Справочник по исходным данным Excel VBA для создания сводной таблицы
  • Добавление отсутствующих дат в сводной таблице
  • Ошибка GETPIVOTDATA #REF
  • Выбор недели недели Excel VBA Pivot
  • Давайте будем гением компьютера.