Ecel VBA编程 查看数据透视表宏代码.docxVIP

查看代码Excel VBA 编程 查看数据透视表宏代码 查看代码 录制完毕宏之后，在 VBE 窗口中，将自动记录宏的相关代码。用户可以对其进行查看或保存，以便以后可以直接使用该代码来创建数据透视表。 单击【代码】组中的 Visual Basic 按钮，弹出 VBE 窗口。然后，双击【工程管理器】窗口中的【模块 1】选项，在弹出的【代码】编辑窗口中，即可查看数据透视表的宏代码，如图 17-14 所示。 图 17-14 查看宏代码 其中，在弹出的 VBE 窗口中，查看相应的代码： Sub 创建数据透视表() 创建数据透视表 Macro Sheets.Add ActiveWorkbook.PivotCaches.Create(SourceType:=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.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 End Sub 在上面的代码中，主要运用了以下几个数据透视表对象，其功能如下： PivotCaches 代表数据透视表的缓存。 PivotTable 代表工作表上的数据透视表。 PivotFields 指定的数据透视表中所有 PivotField（代表数据透视表中的一个字段）对象的集合。