Compartilhar via

Objeto PivotCell (Excel)

  • Artigo

Representa uma célula em um relatório de tabela dinâmica.

Comentários

Use a propriedade PivotCell da coleção Range para retornar um objeto PivotCell .

Depois que um objeto PivotCell for retornado, você poderá usar a propriedade ColumnItems ou RowItems para determinar a coleção PivotItems que corresponde aos itens no eixo coluna ou linha que representa o número selecionado.

Exemplo

Depois que um objeto PivotCell for retornado, você poderá usar a propriedade PivotCellType para determinar qual tipo de célula é um intervalo específico.

O exemplo a seguir determina se a célula A5 na tabela dinâmica é um item de dados e notifica o usuário. Este exemplo pressupõe que existe uma Tabela Dinâmica na planilha ativa e que a célula A5 está contida na Tabela Dinâmica. Se a célula A5 não estiver na tabela dinâmica, o exemplo tratará o erro em tempo de execução.

Sub CheckPivotCellType() 
 
 On Error GoTo Not_In_PivotTable 
 
 ' Determine if cell A5 is a data item in the PivotTable. 
 If Application.Range("A5").PivotCell.PivotCellType = xlPivotCellValue Then 
 MsgBox "The PivotCell at A5 is a data item." 
 Else 
 MsgBox "The PivotCell at A5 is not a data item." 
 End If 
 Exit Sub 
 
Not_In_PivotTable: 
 MsgBox "The chosen cell is not in a PivotTable." 
 
End Sub

Este exemplo determina o campo de coluna onde está o item de dados da célula B5. Em seguida, determina se o título do campo de coluna coincide com "Inventory" e notifica o usuário. O exemplo pressupõe que existe uma Tabela Dinâmica na planilha ativa e que a coluna B da planilha contém um campo de coluna da Tabela Dinâmica.

Sub CheckColumnItems() 
 
 ' Determine if there is a match between the item and column field. 
 If Application.Range("B5").PivotCell.ColumnItems.Item(1) = "Inventory" Then 
 MsgBox "Item in B5 is a member of the 'Inventory' column field." 
 Else 
 MsgBox "Item in B5 is not a member of the 'Inventory' column field." 
 End If 
 
End Sub

Métodos

Propriedades

Confira também

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.