Excel VBA编程 字段对象

PivotField集合包含数据透视表中的所有字段，同时也包括数据透视表中的隐藏字段。用户可以使用PivotField方法为数据透视表建立字段排序规则，以及删除数据透视表的元素。另外，还可以使用PivotField属性来设置对象的字段属性。 1．PivotField方法

PivotField方法共包含11种，下面介绍几种常用的PivotField方法的功能，具体内容如下表17-7所示。

表17-7 PivotField方法功能

方法 AddPageItem AutoShow AutoSort ClearAllFilters ClearLabelFilters Delete 功能 向具有多个项的页面字段添加其他项。 显示指定数据透视表中行字段、页字段或列字段顶部或底部数据项的个数。 为数据透视表建立自动字段排序规则。 调用此方法将删除当前应用于透视字段的所有筛选。 删除透视字段的PivotFilters集合中的所有标签筛选或所有日期筛选。 删除对象。 例如，打开一个包含数据透视表的工作表，使其返回数据透视表中的日期，并且这些返回值将显示在一个新建的工作表中，其代码如下： Sub C()

Set nwSheet = Worksheets.Add nwSheet.Activate

Set pvtTable = Worksheets(\"Sheet4\").Range(\"A3\").PivotTable rw = 0

For Each pvtitem In pvtTable.PivotFields(\"日期\").PivotItems rw = rw + 1

nwSheet.Cells(rw, 1).Value = pvtitem.Name Next End Sub

2．PivotField属性

PivotField属性共有70多种，下面介绍几中常用的属性方法，其功能如表17-8所示。

表17-8 PivotField属性功能

属性 AutoShowCount 功能 返回指定数据透视表字段中自动显示的首项号或末项号。 返回用于对指定数据透视表字段进行自动排序的自定义分类汇总的名AutoSortCustomSubtotal 称。 AutoSortField 返回用于对指定数据透视表字段进行自动排序的数据字段的名称。 AutoSortOrder 返回用于对指定数据透视表字段进行自动排序的次序。 BaseField 返回或设置自定义计算的基准字段。本属性仅对数据字段有效。 BaseItem 返回或设置自定义计算基准字段的数据项，仅对数据字段有效。 Caption 返回一个String值，它代表数据透视字段的标签文本。 DatabaseSort 如果为True，则允许手动更改数据透视表字段中项目的位置。 返回一个XlPivotFieldDataType值，它代表数据透视表字段中的数据类DataType 型。 DisplayAsCaption 此属性用于将透视字段的成员属性显示为标题。 用于指定对于页面区域中的字段是否在筛选器下拉列表中显示复选EnableMultiplePageItems 框。 Name 返回或设置一个String值，它代表对象的名称。 NumberFormat 返回或设置一个String值，它代表对象的格式代码。 Subtotals 返回或设置与指定字段同时显示的分类汇总。 Value 返回或设置一个String值，它代表数据透视表中指定的字段的名称。 例如，将包含活动单元格的字段设置为显示分类汇总求和，其代码如下： Sub D()

Worksheets(\"Sheet4\").Activate

ActiveCell.PivotField.Subtotals(2) = True End Sub