资源描述：
《VBA实战——创建数据透视表.doc》由会员上传分享，免费在线阅读，更多相关内容在行业资料-天天文库。
1、Sub创建数据透视表()ActiveWorkbook.Names.AddName:="database1",RefersToR1C1:=_"=OFFSET(R4C3,,,COUNTA(C3),COUNTA(R4))"ActiveWorkbook.Names("database1").Comment=""Rows("5:5").SelectSelection.DeleteShift:=xlUpRange("C4").SelectSheets.AddActiveWorkbook.PivotCaches.Crea
2、te(SourceType:=xlDatabase,SourceData:=_"database1",Version:=xlPivotTableVersion14).CreatePivotTable_TableDestination:="Sheet1!R3C1",TableName:="数据透视表1",DefaultVersion:=_xlPivotTableVersion14Sheets("Sheet1").SelectCells(3,1).SelectWithActiveSheet.PivotTable
3、s("数据透视表1").PivotFields("指令单单号").Orientation=xlPageField.Position=1EndWithWithActiveSheet.PivotTables("数据透视表1").PivotFields("名称1").Orientation=xlRowField.Position=1EndWithWithActiveSheet.PivotTables("数据透视表1").PivotFields("作业").Orientation=xlRowField.Positi
4、on=2EndWithWithActiveSheet.PivotTables("数据透视表1").PivotFields("物料").Orientation=xlRowField.Position=3EndWithWithActiveSheet.PivotTables("数据透视表1").PivotFields("物料描述").Orientation=xlRowField.Position=4EndWithWithActiveSheet.PivotTables("数据透视表1").PivotFields("
5、供应商").Orientation=xlRowField.Position=5EndWithActiveSheet.PivotTables("数据透视表1").AddDataFieldActiveSheet.PivotTables("数据透视表1"_).PivotFields("需求量"),"求和项:需求量",xlSumRange("B21").SelectWithActiveSheet.PivotTables("数据透视表1").InGridDropZones=True.RowAxisLayoutxlTa
6、bularRowEndWithRange("D6").SelectActiveSheet.PivotTables("数据透视表1").PivotFields("物料描述").Subtotals=Array(False,_False,False,False,False,False,False,False,False,False,False,False)Range("C6").SelectActiveSheet.PivotTables("数据透视表1").PivotFields("物料").Subtotals=
7、Array(False,_False,False,False,False,False,False,False,False,False,False,False)Range("B6").SelectActiveSheet.PivotTables("数据透视表1").PivotFields("作业").Subtotals=Array(False,_False,False,False,False,False,False,False,False,False,False,False)Range("A7").Select
8、ActiveSheet.PivotTables("数据透视表1").PivotFields("名称1").Subtotals=Array(False,_False,False,False,False,False,False,False,False,False,False,False)ActiveSheet.PivotTables("数据透视表1").PivotSelect"",xlDataAndLabel,Tru
