Objeto PivotCell (Excel)
Representa uma célula em um relatório de tabela dinâmica.
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.
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
- Application
- CellChanged
- ColumnItems
- Creator
- CustomSubtotalFunction
- DataField
- DataSourceValue
- MDX
- Parent
- PivotCellType
- Propriedade PivotColumnLine
- PivotField
- PivotItem
- PivotRowLine
- PivotTable
- Range
- RowItems
- ServerActions
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.