Excel VBA教程:VisualTotals属性

如果为 True (默认),则在视图中隐藏了项目后,联机分析处理 (OLAP) 数据透视表将重新汇总。Boolean 类型,可读写。

expression.VisualTotals

expression   必需。该表达式返回一个PivotTable对象。

说明

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

对于 OLAP 数据透视表,当VisualTotals属性为 True (默认)时,其工作方式与非 OLAP 数据透视表中描述的一样。

所有新的数据透视表的 VisualTotals属性返回 True。但是,如果在 Microsoft Excel 的当前版本中打开工作簿,并且已在 Excel 的上一个版本中创建了数据透视表,那么 VisualTotals属性将返回 False。

注意   默认情况下,所有以前创建的数据透视表的 VisualTotals属性将设置为 False,除非用户更改它,但是对于新创建的数据透视表,其 VisualTotals属性设置为 True。

Excel VBA教程:VisualTotals属性·示例

本示例确定在隐藏了视图中的项目后,数据透视表是否能重新进行汇总,并通知用户。本示例假定数据透视表位于活动工作表上。


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

上页:Excel VBA教程:VisibleRange属性 下页:Excel VBA教程:VPageBreaks属性

Excel VBA教程:VisualTotals属性

Excel VBA教程:VPageBreaks属性 Excel VBA教程:Walls属性
Excel VBA教程:WallsAndGridlines2D属性 Excel VBA教程:Watches属性
Excel VBA教程:WebConsecutiveDelimitersAsOne属性 Excel VBA教程:WebDisableDateRecognition属性
Excel VBA教程:WebDisableRedirections属性 Excel VBA教程:WebFormatting属性
Excel VBA教程:WebOptions属性 Excel VBA教程:WebPreFormattedTextToColumns属性
Excel VBA教程:WebSelectionType属性 Excel VBA教程:WebSingleBlockTextImport属性
Excel VBA教程:WebTables属性 Excel VBA教程:Weight属性
Excel VBA教程:获取有关 Macintosh 关键字的“帮助” Excel VBA教程:Width属性
Excel VBA教程:WindowNumber属性 Excel VBA教程:Windows属性
Excel VBA教程:WindowsForPens属性 Excel VBA教程:WindowState属性
版权所有 © 中山市飞娥软件工作室 证书:粤ICP备09170368号