Classe PivotCell (Excel VBA)

A classe PivotCell representa uma célula em um relatório de tabela dinâmica.

Set

Para usar uma variável de classe PivotCell, ela primeiro precisa ser instanciada por exemplo

Dim pvtlcel as PivotCell
Set pvtlcel = ActiveCell.PivotCell

Os procedimentos a seguir podem ser usados ​​para definir variáveis ​​do tipo PivotCell: PivotLineCells.Item, PivotValueCell.PivotCell, Range.PivotCell, ValueChange.PivotCell, PivotLine.PivotLineCells e PivotLine.PivotLineCellsFull

For Each

Aqui está um exemplo de processamento dos itens PivotCell em uma coleção.

Dim pvtlcelPivotLineCell As PivotCell
For Each pvtlcelPivotLineCell In Application.PivotLineCells
	
Next pvtlcelPivotLineCell

Temas

Alguns procedimentos nesta classe foram agrupados em temas e são descritos em páginas de tema separadas

Cell with its procedures CellChanged e PivotCellType
Column with its procedures ColumnItems e PivotColumnLine
Row with its procedures PivotRowLine e RowItems

Métodos

Estes são os principais métodos da classe

AllocateChange - Executa uma operação de write-back na célula especificada em um relatório de Tabela Dinâmica com base em uma fonte de dados OLAP.

DiscardChange - Descarta as alterações feitas na célula especificada de um relatório de Tabela Dinâmica.

Propriedades

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

Dim xcfCustomSubtotalFunction As XlConsolidationFunction
xcfCustomSubtotalFunction = ActiveCell.PivotCell.CustomSubtotalFunction

DataField Retorna um objeto PivotField que corresponde ao campo de dados selecionado.

Dim pvtfDataField As PivotField
Set pvtfDataField = ActiveCell.PivotCell.DataField

DataSourceValue Retorna o valor recuperado pela última vez a partir da fonte de dados para células editadas em um relatório de tabela dinâmica. Somente leitura.

Dim strDataSourceValue As String
strDataSourceValue = ActiveCell.PivotCell.DataSourceValue

MDX Retorna uma tupla que fornece as coordenadas MDX completas da célula de valor especificada em uma tabela dinâmica com uma fonte de dados OLAP. Somente leitura.

Dim strMDX As String
strMDX = ActiveCell.PivotCell.MDX

Parent Retorna o objeto pai do objeto especificado. Somente leitura.

Dim objParent As Object
Set objParent = ActiveCell.PivotCell.Parent

PivotField Retorna um objeto PivotField que representa o campo de tabela dinâmica que contém o canto superior esquerdo do intervalo especificado.

Dim pvtfPivotField As PivotField
Set pvtfPivotField = ActiveCell.PivotCell.PivotField

PivotItem Retorna um objeto PivotItem que representa o item de tabela dinâmica que contém o canto superior esquerdo do intervalo especificado.

Dim pvtiPivotItem As PivotItem
Set pvtiPivotItem = ActiveCell.PivotCell.PivotItem

PivotTable Retorna um objeto PivotTable que representa o relatório de tabela dinâmica associado ao PivotCell.

Dim pvtPivotTable As PivotTable
Set pvtPivotTable = ActiveCell.PivotCell.PivotTable

Range Retorna um objeto Range que representa o intervalo ao qual o PivotCell especificado se aplica.

Dim rngRange As Range
Set rngRange = ActiveCell.PivotCell.Range

ServerActions Representa uma coleção de ações que consistem em ações definidas por OLAP que podem ser executadas. As ações são específicas para tabelas dinâmicas existentes em um nível de planilha. Somente leitura.

Dim actsServerActions As Actions
Set actsServerActions = ActiveCell.PivotCell.ServerActions

PivotLineCells.Count Retorna o número de itens na coleção PivotLineCells . Somente leitura.

Dim lngCount As Long
lngCount = ActiveCell.PivotCell.PivotColumnLine.PivotLineCellsFull.Count

PivotLineCells.Full Quando true, todos os PivotLineCells na linha dinâmica incluindo aqueles ocultos no formato compacto são recuperados. Boolean somente leitura.

Dim booFull As Boolean
booFull = ActiveCell.PivotCell.PivotColumnLine.PivotLineCellsFull.Full

PivotLineCells.Item Retorna um elemento específico do objeto da coleção PivotLineCells pela sua posição na coleção. Somente leitura.

Dim pvtlcelItem As PivotCell
Set pvtlcelItem = ActiveCell.PivotCell.PivotColumnLine.PivotLineCellsFull(Index:=1)

PivotLineCells.Parent Retorna o objeto pai do objeto PivotLineCells especificado. Somente leitura.

Dim objParent As Object
Set objParent = ActiveCell.PivotCell.PivotColumnLine.PivotLineCellsFull.Parent