Excel VBA教程:CubeField属性

返回派生出指定数据透视表字段的CubeField对象。只读。

expression.CubeField

expression   必需。该表达式返回“应用于”列表中的对象之一。

Excel VBA教程:CubeField属性·示例

本示例为第一张工作表中第一个基于OLAP 的数据透视表中所有分层字段的多维数据集字段名称创建一个列表。


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

上页:Excel VBA教程:CrossesAt属性 下页:Excel VBA教程:CubeFields属性

Excel VBA教程:CubeField属性

Excel VBA教程:CubeFields属性 Excel VBA教程:CubeFieldType属性
Excel VBA教程:CurrentArray属性 Excel VBA教程:CurrentPage属性
Excel VBA教程:CurrentPageList属性 Excel VBA教程:CurrentPageName属性
Excel VBA教程:CurrentRegion属性 Excel VBA教程:Cursor属性
Excel VBA教程:CursorMovement属性 Excel VBA教程:CustomDocumentProperties属性
Excel VBA教程:CustomListCount属性 Excel VBA教程:CustomProperties属性
Excel VBA教程:CustomSubtotalFunction属性 Excel VBA教程:CustomViews属性
Excel VBA教程:CutCopyMode属性 Excel VBA教程:Cyan属性
Excel VBA教程:DashStyle属性 Excel VBA教程:DatabaseSort属性
Excel VBA教程:DataBodyRange属性 Excel VBA教程:DataEntryMode属性
版权所有 © 中山市飞娥软件工作室 证书:粤ICP备09170368号