通过

PivotTable.VisualTotals 属性 (Excel)

  • 项目

如果该属性值为 True（默认值），则在视图中隐藏项目后，联机分析处理（OLAP) 数据透视表将重新汇总。 读/写 Boolean。

语法

表达式。VisualTotals

表达 一个代表 数据透视表 对象的变量。

备注

在非 OLAP 数据透视表中，如果隐藏了项目，则将重新进行汇总以只反映数据透视表中剩余的可见项目。 在 OLAP 数据透视表中，汇总将在服务器上进行，因此无论数据透视表中是否隐藏了项目，都不会影响汇总。 但是，如果 OLAP 数据透视表的 VisualTotals 属性设置为 False ，则 OLAP 数据透视表的结果将与非 OLAP 数据透视表的结果匹配。

对于 OLAP 数据透视表，将 VisualTotals 属性设置为 True（默认值）时，其工作方式与非 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 支持和反馈，获取有关如何接收支持和提供反馈的指南。