Propriedade PivotCell.CustomSubtotalFunction (Excel)

Retorna uma configuração de campo de função de subtotal personalizado de um objeto PivotCell. XlConsolidationFunction somente leitura.

Sintaxe

expressão. CustomSubtotalFunction

Expressão Uma variável que representa um objeto PivotCell .

Comentários

A propriedade CustomSubtotalFunction retornará um erro se o tipo de objeto PivotCell não for um subtotal personalizado. Essa propriedade se aplica somente a uma fonte de dados não-OLAP.

Exemplo

Este exemplo determina se a célula C20 contém uma função subtotal personalizada que usa uma função de consolidação de contagem e, em seguida, notifica o usuário. O exemplo supõe que exista uma tabela dinâmica na planilha ativa.

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

Suporte e comentários

Tem dúvidas ou quer enviar comentários sobre o VBA para Office ou sobre esta documentação? Confira Suporte e comentários sobre o VBA para Office a fim de obter orientação sobre as maneiras pelas quais você pode receber suporte e fornecer comentários.