《Excel VBA编程查看数据透视表宏代码.docx》由会员分享，可在线阅读，更多相关《Excel VBA编程查看数据透视表宏代码.docx（2页珍藏版）》请在三一办公上搜索。
1、Excel VBA编程 查看数据透视表宏代码Excel VBA编程 查看数据透视表宏代码 录制完毕宏之后，在VBE窗口中，将自动记录宏的相关代码。用户可以对其进行查看或保存，以便以后可以直接使用该代码来创建数据透视表。 单击组中的Visual Basic按钮，弹出VBE窗口。然后，双击窗口中的选项，在弹出的编辑窗口中，即可查看数据透视表的宏代码，如图17-14所示。 查看代码 图17-14 查看宏代码 其中，在弹出的VBE窗口中，查看相应的代码： Sub 创建数据透视表 创建数据透视表 Macro Sheets.Add ActiveWorkbook.PivotCaches.Create(Sou
2、rceType:=xlDatabase, SourceData:= _ Sheet1!R2C1:R57C5, Version:=xlPivotTableVersion12).CreatePivotTable _ TableDestination:=Sheet4!R3C1, TableName:=数据透视表1, DefaultVersion:= _ xlPivotTableVersion12 Sheets(Sheet4).Select Cells(3, 1).Select ActiveWorkbook.ShowPivotTableFieldList = True With ActiveSheet
3、.PivotTables(数据透视表1).PivotFields(部门) .Orientation = xlRowField .Position = 1 End With With ActiveSheet.PivotTables(数据透视表1).PivotFields(摘要) .Orientation = xlRowField .Position = 2 End With With ActiveSheet.PivotTables(数据透视表1).PivotFields(日期) .Orientation = xlRowField .Position = 3 End With ActiveSheet.PivotTables(数据透视表1).AddDataField ActiveSheet.PivotTables(数据透视表1 _ ).PivotFields(金额), 求和项:金额, xlSum End Sub 在上面的代码中，主要运用了以下几个数据透视表对象，其功能如下： l l l PivotCaches 代表数据透视表的缓存。 PivotTable 代表工作表上的数据透视表。 PivotFields 指定的数据透视表中所有PivotField对象的集合。
