CalculatedMember Object - Microsoft Office Excel

Remarks

Use the Add method or the Item property of the CalculatedMembers collection to return a CalculatedMember object.

With a CalculatedMember object you can check the validity of a calculated field or item in a PivotTable using the IsValid property.

Note
The IsValid property will return True if the PivotTable is not currently connected to the data source. Use the MakeConnection method before testing the IsValid property.

Example
The following example notifies the user if the calculated member is valid or not. This example assumes a PivotTable exists on the active worksheet that contains either a valid or invalid calculated member.

Visual Basic for Applications

Visual Basic for Applications
Sub CheckValidity() Dim pvtTable As PivotTable Dim pvtCache As PivotCache Set pvtTable = ActiveSheet.PivotTables(1) Set pvtCache = Application.ActiveWorkbook.PivotCaches.Item(1) ' Handle run-time error if external source is not an OLEDB data source. On Error GoTo Not_OLEDB ' Check connection setting and make connection if necessary. If pvtCache.IsConnected = False Then pvtCache.MakeConnection End If ' Check if calculated member is valid. If pvtTable.CalculatedMembers.Item(1).IsValid = True Then MsgBox "The calculated member is valid." Else MsgBox "The calculated member is not valid." End If End Sub

Sub CheckValidity() Dim pvtTable As PivotTable Dim pvtCache As PivotCache Set pvtTable = ActiveSheet.PivotTables(1) Set pvtCache = Application.ActiveWorkbook.PivotCaches.Item(1) ' Handle run-time error if external source is not an OLEDB data source. On Error GoTo Not_OLEDB ' Check connection setting and make connection if necessary. If pvtCache.IsConnected = False Then pvtCache.MakeConnection End If ' Check if calculated member is valid. If pvtTable.CalculatedMembers.Item(1).IsValid = True Then MsgBox "The calculated member is valid." Else MsgBox "The calculated member is not valid." End If End Sub

See also: