Excel VBA教程:CustomSubtotalFunction属性

返回 PivotCell对象的自定义分类汇总函数字段的设置。XlConsolidationFunction 类型,只读。

XlConsolidationFunction 可为以下 these XlConsolidationFunction 常量之一。
xlAverage
xlCount
xlCountNums
xlMax
xlMin
xlProduct
xlStDev
xlStDevP
xlSum
xlUnknown
xlVar
xlVarP

expression.CustomSubtotalFunction

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

说明

如果 PivotCell对象类型不是自定义分类汇总,那么 CustomSubtotalFunction属性将返回一个错误。该属性只应用于非 OLAP 源数据。

Excel VBA教程:CustomSubtotalFunction属性·示例

本示例确定单元格 C20 是否包含使用计数合并函数的自定义分类汇总函数,并通知用户。本示例假定数据透视表位于活动的工作表上。


Sub UseCustomSubtotalFunction()
    On Error GoTo Not_A_Function
    ' Determine if custom subtotal function is a count function.
    If Application.Range("C20").PivotCell.CustomSubtotalFunction = xlCount Then
        MsgBox "The custom subtotal function is a Count"
    Else
        MsgBox "The custom subtotal function is not a Count"
    End If
    Exit Sub
Not_A_Function:
    MsgBox "The selected cell is not a custom subtotal function."
End Sub

上页:Excel VBA教程:CustomProperties属性 下页:Excel VBA教程:CustomViews属性

Excel VBA教程:CustomSubtotalFunction属性

Excel VBA教程:CustomViews属性 Excel VBA教程:CutCopyMode属性
Excel VBA教程:Cyan属性 Excel VBA教程:DashStyle属性
Excel VBA教程:DatabaseSort属性 Excel VBA教程:DataBodyRange属性
Excel VBA教程:DataEntryMode属性 Excel VBA教程:DataField属性
Excel VBA教程:DataFields属性 Excel VBA教程:DataLabel属性
Excel VBA教程:DataLabelRange属性 Excel VBA教程:DataPivotField属性
Excel VBA教程:DataRange属性 Excel VBA教程:DataTable属性
Excel VBA教程:DataType属性 Excel VBA教程:Date1904属性
Excel VBA教程:DDEAppReturnCode属性 Excel VBA教程:DecimalSeparator属性
Excel VBA教程:DefaultFilePath属性 Excel VBA教程:DefaultSaveFormat属性
版权所有 © 中山市飞娥软件工作室 证书:粤ICP备09170368号