Поделиться через

Свойство PivotTable.VisualTotals (Excel)

  • Статья

Значение true (по умолчанию), чтобы включить сводные таблицы OLAP для повторной обработки после того, как элемент был скрыт из представления. Для чтения и записи, Boolean.

Синтаксис

expression. VisualTotals

Выражение Переменная, представляющая объект сводной таблицы .

Замечания

В сводных таблицах, отличных от OLAP, если вы скрываете элемент, сумма будет пересчитываться для отражения только элементов, которые остаются видимыми в сводной таблице. В сводной таблице OLAP итог вычисляется на сервере и, следовательно, не влияет на то, скрыты ли какие-либо элементы в представлении сводной таблицы. Однако если для свойства VisualTotals задано значение False для сводной таблицы OLAP, результаты сводной таблицы OLAP будут совпадать с результатами сводной таблицы, отличной от OLAP.

Для сводных таблиц OLAP параметр свойства VisualTotalstrue (по умолчанию) работает так же, как описано для сводных таблиц, отличных от OLAP.

Свойство VisualTotals возвращает значение True для всех новых сводных таблиц. Однако если открыть книгу в текущей версии Microsoft Excel, а сводная таблица была создана в предыдущей версии Excel, свойство VisualTotals вернет false.

Примечание.

Для всех ранее созданных сводных таблиц свойство VisualTotals имеет значение False по умолчанию, если пользователь не изменит его, но для всех вновь созданных сводных таблиц свойство VisualTotals имеет значение True.

Пример

В этом примере определяется, доступна ли возможность повторной оценки после того, как элемент был скрыт в представлении для сводных таблиц OLAP, и уведомляет пользователя. В примере предполагается, что на активном листе существует сводная таблица.

Sub CheckVisualTotals() 
 
 Dim pvtTable As PivotTable 
 
 Set pvtTable = ActiveSheet.PivotTables(1) 
 
 ' Determine if visual totals is enabled for OLAP PivotTables. 
 If pvtTable.VisualTotals = True Then 
 MsgBox "Ability enabled to re-total after an item " & _ 
 "has been hidden from view." 
 Else 
 MsgBox "Unable to re-total items not hidden from view." 
 End If 
 
End Sub

Поддержка и обратная связь

Есть вопросы или отзывы, касающиеся Office VBA или этой статьи? Руководство по другим способам получения поддержки и отправки отзывов см. в статье Поддержка Office VBA и обратная связь.