Expand Minimize

PivotField.CubeField Property (Excel)

Returns the CubeField object from which the specified PivotTable field is descended. Read-only.

expression .CubeField

expression A variable that represents a PivotField object.

This example creates a list of the cube field names for all the hierarchy fields in the first Online Analytical Processing (OLAP) -based PivotTable report on the first worksheet. This example assumes a PivotTable report exists in the first worksheet.

Sub UseCubeField() 
 
 Dim objNewSheet As Worksheet 
 Set objNewSheet = Worksheets.Add 
 objNewSheet.Activate 
 intRow = 1 
 
 For Each objPF in _ 
 Worksheets(1).PivotTables(1).PivotFields 
 If objPF.CubeField.CubeFieldType = xlHierarchy Then 
 objNewSheet.Cells(intRow, 1).Value = objPF.Name 
 intRow = intRow + 1 
 End If 
 Next objPF 
 
End Sub
Show:
© 2014 Microsoft