Clase PivotCell (Excel VBA)

La clase PivotCell representa una celda de un informe de tabla dinámica.

Set

Para usar una variable de clase PivotCell, primero debe ser instanciado, por ejemplo

Dim pvtlcel as PivotCell
Set pvtlcel = ActiveCell.PivotCell

Los siguientes procedimientos se pueden usar para establecer variables de clase PivotCell : PivotLineCells.Item, PivotValueCell.PivotCell, Range.PivotCell, ValueChange.PivotCell, PivotLine.PivotLineCells y PivotLine.PivotLineCellsFull

For Each

A continuación, se muestra un ejemplo de cómo procesar los elementos PivotCell en una colección.

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

Temas

Algunos procedimientos de esta clase se han agrupado en temas y se describen en páginas temáticas separadas

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

Métodos

Otros Métodos

AllocateChange - Realiza una operación de escritura diferida en la celda especificada en un informe de tabla dinámica basado en un origen de datos OLAP.

DiscardChange - Descarta los cambios realizados en la celda especificada en un informe de tabla dinámica.

Propiedades

CustomSubtotalFunction Devuelve el valor del campo de función de subtotal personalizado de un objeto PivotCell.

Dim xcfCustomSubtotalFunction As XlConsolidationFunction
xcfCustomSubtotalFunction = ActiveCell.PivotCell.CustomSubtotalFunction

DataField Devuelve un objeto PivotField que corresponde al campo de datos seleccionado.

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

DataSourceValue Devuelve el último valor recuperado del origen de datos para las celdas editadas en un informe de tabla dinámica.

Dim strDataSourceValue As String
strDataSourceValue = ActiveCell.PivotCell.DataSourceValue

MDX Devuelve una tupla que proporciona todas las coordenadas MDX de la celda Value especificada en una tabla dinámica con un origen de datos OLAP.

Dim strMDX As String
strMDX = ActiveCell.PivotCell.MDX

Parent Devuelve el objeto primario del objeto especificado.

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

PivotField Devuelve un objeto PivotField que representa el campo de tabla dinámica que contiene la esquina superior izquierda del rango especificado.

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

PivotItem Devuelve un objeto PivotItem que representa el elemento de tabla dinámica que contiene la esquina superior izquierda del rango especificado.

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

PivotTable Devuelve un objeto PivotTable que representa el informe de tabla dinámica asociado con la celda dinámica.

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

Range Devuelve un objeto Range que representa el rango al que se aplica la celda dinámica especificada.

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

ServerActions Representa una colección de acciones que constan de acciones definidas por OLAP que se pueden ejecutar.

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

PivotLineCells.Count Devuelve el número de elementos de la colección PivotLineCells .

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

PivotLineCells.Full Si es true, se recuperan todos los PivotLineCells de la línea dinámica (incluidos los que están ocultos en el formato compacto).

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

PivotLineCells.Item Devuelve un elemento específico del objeto de colección PivotLineCells por su posición en la colección.

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

PivotLineCells.Parent Devuelve el objeto primario del objeto PivotLineCells especificado.

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