全部显示

AddDataField 方法

       

将数据字段添加到数据透视表中。返回一个 PivotField 对象,该对象代表新的数据字段。

expression.AddDataField(Field, Caption, Function)

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

Field   Object 类型,必需。服务器上的唯一字段。如果源数据是联机分析处理 (OLAP),则唯一字段是多维数据集字段。如果源数据不是 OLAP(非 OLAP 源数据),则唯一字段是数据透视表字段。

Caption   Variant 类型,可选。数据透视表中使用的标志,用于识别该数据字段。

Function   Variant 类型,可选。在已添加字段中执行的函数。

示例

本示例将标题为“Total Score”的数据字段添加到名为“PivotTable1”的数据透视表中。

注意:本示例假定数据透视表的列中包含一个标题为“Score”的列。

Sub AddMoreFields()

    With ActiveSheet.PivotTables("PivotTable1")
        .AddDataField ActiveSheet.PivotTables( _
            "PivotTable1").PivotFields("Score"), "Total Score"
    End With

End Sub