Есть макрос VBA, который строит сводную таблицу (код ниже)
Проблема:
Я со сводными в Excel не работал :(
По одним исходным данным сводная строит суммируемые колонки (формула = Сумма), по другим исходным данным сводная строит колонку с формулой количество. Найти отличие в исходных данных не удалось.
Как найти отличие в исходных данных или как поправить макрос чтоба формула была сумма
ActiveWorkbook.PivotCaches.Add(SourceType:=xlDatabase, SourceData:= _
ActiveSheet.Name + "!R1C1:R" + Trim(Str(kolVsego - 1)) + "C5").CreatePivotTable TableDestination:="", _
TableName:="СводнаяТаблица1", DefaultVersion:=xlPivotTableVersion10
ActiveSheet.PivotTableWizard TableDestination:=ActiveSheet.Cells(3, 1)
ActiveSheet.Cells(3, 1).Select
With ActiveSheet.PivotTables("СводнаяТаблица1")
.ColumnGrand = False
.HasAutoFormat = False
.RowGrand = False
End With
ActiveSheet.PivotTables("СводнаяТаблица1").PivotFields(" По покупателям"). _
Subtotals = Array(False, False, False, False, False, False, False, False, False, False, _
False, False)
MsgBox ("Ждем1.5")
ActiveSheet.PivotTables("СводнаяТаблица1").AddFields RowFields:=Array( _
" По покупателям", "Ответственный менеджер (от продаж):"), ColumnFields:= _
"По месяцам ", PageFields:=" По сегментам "
ActiveSheet.PivotTables("СводнаяТаблица1").PivotFields("Вес, кг").Orientation = xlDataField
'ActiveSheet.PivotTables("СводнаяТаблица1").PivotFields.Item(ActiveSheet.PivotTables("СводнаяТаблица1").PivotFields.Count).Function = xlSum
'ActiveSheet.PivotTables("СводнаяТаблица1").PivotFields("Вес, кг").Function = xlSum
'ActiveSheet.PivotTables("СводнаяТаблица1").PivotFields.Item(ActiveSheet.PivotTables("СводнаяТаблица1").PivotFields.Count).Function = xlSum
---
Запись макроса подсказала решение
'ActiveSheet.PivotTables("СводнаяТаблица1").PivotFields("Вес, кг").Function = xlSum
---
но выдает ошибку "Невозможно установить свойство Function класса PivotField"
--
Отладчик показывает:
Watch : : ActiveSheet.PivotTables("СводнаяТаблица1").PivotFields("Вес, кг").Function : <Невозможно получить свойство Function класса PivotField> : Variant/Integer : Module3.MakrosFullEk
: Function : <Невозможно получить свойство Function класса PivotField> : XlConsolidationFunction : Module3.MakrosFullEk
RPI.su - самая большая русскоязычная база вопросов и ответов. Наш проект был реализован как продолжение популярного сервиса otvety.google.ru, который был закрыт и удален 30 апреля 2015 года. Мы решили воскресить полезный сервис Ответы Гугл, чтобы любой человек смог публично узнать ответ на свой вопрос у интернет сообщества.
Все вопросы, добавленные на сайт ответов Google, мы скопировали и сохранили здесь. Имена старых пользователей также отображены в том виде, в котором они существовали ранее. Только нужно заново пройти регистрацию, чтобы иметь возможность задавать вопросы, или отвечать другим.
Чтобы связаться с нами по любому вопросу О САЙТЕ (реклама, сотрудничество, отзыв о сервисе), пишите на почту [email protected]. Только все общие вопросы размещайте на сайте, на них ответ по почте не предоставляется.