Excel VBA教程:AddMemberPropertyField方法

将成员属性字段添加到多维数据集字段的显示区域。

expression.AddMemberPropertyField(Property, PropertyOrder)

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

Property   String 类型,必需。成员属性的唯一名称。对于平衡分层结构,唯一名称可通过以下方式创建:将“quoted”成员属性名附加到与成员属性相关联的级别的唯一名称上。对于非平衡分层结构,唯一名称可通过以下方式创建:将“quoted”成员属性名附加到分层结构的唯一名称上。

PropertyOrder   Variant 类型,可选。为 CubeField对象设置 PropertyOrder属性值。集合中的实际位置将位于数据透视表字段的前一位,该字段当前具有由参数指定的相同的 PropertyOrder 值。如果没有一个字段具有给定的属性顺序值,则可接受的取值范围为 1 到已为分层结构显示的成员属性的个数加 1 之间。该参数从 1 开始。如果省略,则属性为列表中的最后一个。

说明

如果数据透视表视图上没有字段,则指定的属性字段将不可见。

若要删除成员属性,则使用 Delete方法可从 PivotFields集合中删除 PivotField对象。

Excel VBA教程:AddMemberPropertyField方法·示例

在本示例中,Microsoft Excel 将标题为“Description”的成员属性字段添加到数据透视表的视图中。本示例假定数据透视表位于活动工作表上,并且包括“Country”、“Area”、“Description”项。


Sub UseAddMemberPropertyField()
    Dim pvtTable As PivotTable
    Set pvtTable = ActiveSheet.PivotTables(1)
    With pvtTable
        .ManualUpdate = True
        .CubeFields("[Country]").LayoutForm = xlOutline
        .CubeFields("[Country]").AddMemberPropertyField _
            Property:="[Country].[Area].[Description]"
        .ManualUpdate = False
    End With
End Sub

上页:Excel VBA教程:AddLine方法 下页:Excel VBA教程:AddNode方法

Excel VBA教程:AddMemberPropertyField方法

Excel VBA教程:AddNode方法 Excel VBA教程:AddNodes方法
Excel VBA教程:AddOLEObject方法 Excel VBA教程:AddPageItem方法
Excel VBA教程:AddPicture方法 Excel VBA教程:AddPolyline方法
Excel VBA教程:AddReplacement方法 Excel VBA教程:AddSet方法
Excel VBA教程:AddShape方法 Excel VBA教程:AddTextbox方法
Excel VBA教程:AddTextEffect方法 Excel VBA教程:AddToFavorites方法
Excel VBA教程:AdvancedFilter方法 Excel VBA教程:Align方法
Excel VBA教程:Apply方法 Excel VBA教程:ApplyCustomType方法
Excel VBA教程:ApplyDataLabels方法 Excel VBA教程:ApplyNames方法
Excel VBA教程:ApplyOutlineStyles方法 Excel VBA教程:AreaGroups方法
版权所有 © 中山市飞娥软件工作室 证书:粤ICP备09170368号