Excel_VBA编程__数据透视表对象

Excel VBA编程数据透视表对象

创建了缓存对象后,就可以创建数据透视表对象了。本节主要介绍如何使用PivotTable对象来为数据透视表添加字段,以及更改透视字段分类汇总的位置等。另外,还将学习常用的PivotTable属性的设置。

1.PivotTable方法

PivotTable方法共有19个,下表17-5列出了几种常用的PivotTable方法功能,其具体内容如下:

表17-5 PivotTable方法功能

例如,使用PivotFields方法,向新工作表列表添加数据透视表的字段名称,其代码如下:Sub a()

Set nwSheet = Worksheets.Add

nwSheet.Activate

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

rw = 0

For Each pvtField In pvtTable.PivotFields

rw = rw + 1

nwSheet.Cells(rw, 1).Value = https://www.360docs.net/doc/0615079752.html,

Next pvtField

End Sub

2.PivotTable属性

PivotTable属性共有80多种,下面介绍几种常用的PivotTable属性,其功能如下表17-6所示。

表17-6 PivotTable属性功能

例如,打开一个包含数据透视表的工作表(其中,数据透视表位于Sheet4工作表)使用RowRange属性选取数据透视表的行标题,其代码如下:

Sub b()

Worksheets("Sheet4").Activate

Range("A3").Select

ActiveCell.PivotTable.RowRange.Select

End Sub

运行代码之后,即可选择数据透视表中的行标签,效果如图17-16所示。

选择

图17-16 选择行标签

相关主题
相关文档
最新文档