Class PivotValueCell (Excel VBA)

Provides a way to expose values of cells in the case that actual cells (Range objects) are not available.


Returns an object that represents the parent object of the specified PivotValueCell object. Read-only.


Returns the PivotCell object that specifies the location of the PivotValueCell.

Sub GetMDX()
   'Get the MDX query for a particular PivotCell in a workbook level PivotTable
   MsgBox "The MDX for the PivotCell 1, 1: " & _
   ThisWorkbook.PivotTables(1).PivotValueCell(1, 1).PivotCell.MDX
End Sub


Returns a collection of OLAP Action name objects that represent OLAP-defined actions that can be executed.

A server action is an optional feature that an OLAP cube administrator can define on a server that uses a cube member or measure as a parameter into a query to obtain details in the cube, or to start another application.


Puts the individual rows of an OLAP data source that contribute to an aggregate onto their own Excel worksheet.


Returns the value at the location. The value is the value after ShowAs and other calculations have been applied. Variant can be Empty, Number, Date, String, or Error value.

This property works independently of whether the PivotTable is on a worksheet or not.

Sub TestEquality()
Dim X As Double
Dim Y As Double

'This code assumes that you have a Standalone PivotChart on one of the worksheets
X = ThisWorkbook.PivotTables(1).PivotValueCell(1, 1).Value
Y = ThisWorkbook.PivotTables(1).PivotValueCell(1, 2).Value

If X > Y Then
MsgBox "X is greater than Y"
MsgBox "Y is greater than X"
End If
End Sub