Excel VBA编程  字段对象
PivotField集合包含数据透视表中的所有字段，同时也包括数据透视表中的隐藏字段。用户可以使用PivotField方法为数据透视表建立字段排序规则，以及删除数据透视表的元素。另外，还可以使用PivotField属性来设置对象的字段属性。
1．PivotField方法
PivotField方法共包含11种，下面介绍几种常用的PivotField方法的功能，具体内容如下表17-7所示。
表17-7  PivotField方法功能
方法
功能
AddPageItem
向具有多个项的页面字段添加其他项。
AutoShow
显示指定数据透视表中行字段、页字段或列字段顶部或底部数据项的个数。
AutoSort
为数据透视表建立自动字段排序规则。
ClearAllFilters
调用此方法将删除当前应用于透视字段的所有筛选。
ClearLabelFilters
删除透视字段的PivotFilters集合中的所有标签筛选或所有日期筛选。
Delete
删除对象。
例如，打开一个包含数据透视表的工作表，使其返回数据透视表中的日期，并且这些返回值将显示在一个新建的工作表中，其代码如下：
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，则允许手动更改数据透视表字段中项目的位置。
DataType
返回一个XlPivotFieldDataType值，它代表数据透视表字段中的数据类型。
DisplayAsCaption
此属性用于将透视字段的成员属性显示为标题。
EnableMultiplePageItems
用于指定对于页面区域中的字段是否在筛选器下拉列表中显示复选框。
Name
返回或设置一个String值，它代表对象的名称。
vba编程技巧
NumberFormat
返回或设置一个String值，它代表对象的格式代码。
Subtotals
返回或设置与指定字段同时显示的分类汇总。
Value
返回或设置一个String值，它代表数据透视表中指定的字段的名称。
例如，将包含活动单元格的字段设置为显示分类汇总求和，其代码如下：
Sub D()
Worksheets("Sheet4").Activate
ActiveCell.PivotField.Subtotals(2) = True
End Sub

版权声明：本站内容均来自互联网，仅供演示用，请勿用于商业和其他非法用途。如果侵犯了您的权益请与我们联系QQ:729038198，我们将在24小时内删除。