Classe PivotItem (Excel VBA)

A classe PivotItem representa um item em um campo de tabela dinâmica.

Os principais procedimentos da classe PivotItem são CalculatedItems.Add, Delete e PivotItems.Add

Set

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

Dim pvti as PivotItem
Set pvti = ActiveCell.PivotItem

Os procedimentos a seguir podem ser usados ​​para definir variáveis ​​do tipo PivotItem: PivotField.CalculatedItems, CalculatedItems.Item, CalculatedItems.Add, PivotCell.PivotItem, PivotField.ChildItems, PivotField.CurrentPage, PivotField.HiddenItems, PivotField.ParentItems, PivotField.VisibleItems, ChildItems, ParentItem, PivotItemList.Item, PivotItems.Item, Range.PivotItem, PivotCell.ColumnItems, PivotCell.RowItems, PivotField.ChildItems, PivotField.HiddenItems, PivotField.ParentItems, PivotField.PivotItems, PivotField.VisibleItems e ChildItems

For Each

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

Dim pvtiCalculatedItem As PivotItem
For Each pvtiCalculatedItem In Application.CalculatedItems()
	
Next pvtiCalculatedItem

Temas

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

Add with its procedures CalculatedItems.Add e PivotItems.Add
Formula with its procedures Formula e StandardFormula
Name with its procedures SourceName e SourceNameStandard

Métodos

Estes são os principais métodos da classe PivotItem

Delete - Exclui o objeto.

ActiveCell.PivotItem.Delete

Estes são os principais métodos da classe

CalculatedItems.Item - Retorna um único objeto de uma coleção.

DrillTo - O método drillto oferece suporte à análise de um PivotField especificado de um PivotItem.

PivotItemList.Item - Retorna um único objeto de uma coleção.

PivotItems.Item - Retorna um único objeto de uma coleção.

Propriedades

CalculatedItems.Count Retorna um valor Long que representa o número de objetos na coleção.

Dim lngCount As Long
lngCount = ActiveCell.PivotField.CalculatedItems.Count

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

Dim objParent As Object
Set objParent = ActiveCell.PivotField.CalculatedItems.Parent

Caption Retorna um valor String que representa o texto do rótulo para o item de tabela dinâmica.

ActiveCell.PivotItem.Caption =

ChildItems Retorna um objeto que representa um único item de tabela dinâmica um objeto PivotItem ou uma coleção de todos os itens (um objeto PivotItems ) que são filhos de grupo no campo especificado ou filhos do item especificado. Somente leitura.

Dim pvtiChildItems As PivotItem
Set pvtiChildItems = ActiveCell.PivotItem.ChildItems

DataRange Retorna um objeto Range conforme mostrado na tabela a seguir. Somente leitura.

Dim rngDataRange As Range
Set rngDataRange = ActiveCell.PivotItem.DataRange

DrilledDown True se o sinalizador para o campo de tabela dinâmica ou item de tabela dinâmica especificado estiver definido como "Drilled" expandido ou visível. Boolean de leitura/gravação.

ActiveCell.PivotItem.DrilledDown = True

IsCalculated True se o item de tabela dinâmica for um item ou campo calculado. Boolean somente leitura.

Dim booIsCalculated As Boolean
booIsCalculated = ActiveCell.PivotItem.IsCalculated

LabelRange Retorna um objeto Range que representa todas as células no relatório de tabela dinâmica que contêm o item. Somente leitura.

Dim rngLabelRange As Range
Set rngLabelRange = ActiveCell.PivotItem.LabelRange

Name Retorna ou define um valor String que representa o nome do objeto.

ActiveCell.PivotItem.Name =

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

Dim pvtfParent As PivotField
Set pvtfParent = ActiveCell.PivotItem.Parent

ParentItem Retorna um objeto PivotItem que representa o item de tabela dinâmica pai no objeto PivotField pai o campo deve ser agrupado para que tenha um pai. Somente leitura.

Dim pvtiParentItem As PivotItem
Set pvtiParentItem = ActiveCell.PivotItem.ParentItem

ParentShowDetail True se o item especificado estiver aparecendo porque um de seus pais está exibindo detalhes. False se o item especificado não está aparecendo porque um de seus pais está ocultando detalhes. Esta propriedade só está disponível quando o item está agrupado. Boolean somente leitura.

Dim booParentShowDetail As Boolean
booParentShowDetail = ActiveCell.PivotItem.ParentShowDetail

Position Retorna ou define um valor Long que representa a posição do item em seu campo, se o item estiver sendo mostrado no momento.

ActiveCell.PivotItem.Position =

RecordCount Retorna o número de registros no cache de tabela dinâmica ou o número de registros no cache que contêm o item especificado. Long somente leitura.

Dim lngRecordCount As Long
lngRecordCount = ActiveCell.PivotItem.RecordCount

ShowDetail True se a estrutura de tópicos for expandida para o intervalo especificado de modo que o detalhe da coluna ou linha esteja visível. O intervalo especificado precisa ser uma única linha ou coluna de resumo na estrutura de tópicos. de leitura/gravação. Para o objeto PivotItem (ou o objeto Range se o intervalo estiver em um relatório de tabela dinâmica), esta propriedade será definida como True se o item estiver exibindo detalhe.

ActiveCell.PivotItem.ShowDetail = True

Value Retorna ou define um valor String que representa o local do item especificado no campo de tabela dinâmica.

ActiveCell.PivotItem.Value =

Visible Retorna ou define um valor Boolean que determina se o objeto será visível. Leitura/gravação.

ActiveCell.PivotItem.Visible = True

PivotItemList.Count Retorna um valor Long que representa o número de objetos na coleção.

Dim lngCount As Long
lngCount = ActiveCell.PivotCell.RowItems.Count

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

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

PivotItems.Count Retorna um valor Long que representa o número de objetos na coleção.

Dim lngCount As Long
lngCount = ActiveCell.PivotField.PivotItems.Count

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

Dim pvtfParent As PivotField
Set pvtfParent = ActiveCell.PivotField.PivotItems.Parent