Compartir vía

Objeto PivotCell (Excel)

  • Artículo

Representa una celda de un informe de tabla dinámica.

Comentarios

Utilice la propiedad PivotCell de la colección Range para devolver un objeto PivotCell .

Una vez devuelto un objeto PivotCell , puede usar la propiedad ColumnItems o RowItems para determinar la colección PivotItems que corresponde a los elementos del eje de columna o fila que representa el número seleccionado.

Ejemplo:

Una vez devuelto un objeto PivotCell , puede usar la propiedad PivotCellType para determinar qué tipo de celda es un intervalo determinado.

El siguiente ejemplo determina si la celda A5 de la tabla dinámica es un elemento de datos, y se lo comunica al usuario. En este ejemplo se supone que existe una tabla dinámica en la hoja de cálculo activa y que la celda A5 está contenida en la tabla dinámica. Si la celda A5 no se encuentra en la tabla dinámica el ejemplo controlará el error en tiempo de ejecución.

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 ejemplo determina el campo de columna en que se encuentra el elemento de datos de la celda B5. A continuación, determina si el título del campo de columna es "Inventory" y se lo comunica al usuario. En el ejemplo se supone que existe una tabla dinámica en la hoja de cálculo activa y que la columna B de la hoja de cálculo contiene un campo de columna de la tabla 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

Propiedades

Vea también

Soporte técnico y comentarios

¿Tiene preguntas o comentarios sobre VBA para Office o esta documentación? Vea Soporte técnico y comentarios sobre VBA para Office para obtener ayuda sobre las formas en las que puede recibir soporte técnico y enviar comentarios.