|
[广告] Excel易用宝 - 提升Excel的操作效率 · Excel / WPS表格插件 ★ 免费下载 ★ ★ 使用帮助★
先把07版录制的放上来,执行错误出在标颜色的地方
Sub 透视表测试()
'
' 透视表测试 Macro
'
'
Range("A1").Select
Range(Selection, ActiveCell.SpecialCells(xlLastCell)).Select
Sheets.Add
ActiveWorkbook.PivotCaches.Create(SourceType:=xlDatabase, SourceData:= _
"Sheet1!R1C1:R302C10", Version:=xlPivotTableVersion12).CreatePivotTable _
TableDestination:="Sheet4!R3C1", TableName:="数据透视表1", DefaultVersion:= _
xlPivotTableVersion12
Sheets("Sheet4").Select
Cells(3, 1).Select
With ActiveSheet.PivotTables("数据透视表1").PivotFields("交易日期")
.Orientation = xlRowField
.Position = 1
End With
ActiveSheet.PivotTables("数据透视表1").AddDataField ActiveSheet.PivotTables("数据透视表1" _
).PivotFields("利润"), "求和项:利润", xlSum
With ActiveSheet.PivotTables("数据透视表1").PivotFields("销售城市")
.Orientation = xlColumnField
.Position = 1
End With
Range("A15").Select
End Sub
然后是03版录制的:
Sub 数据透视测试2()
'
' 数据透视测试2 Macro
' 宏由 XZ 录制,时间: 2009-3-1
'
'
Range("A1").Select
Range(Selection, ActiveCell.SpecialCells(xlLastCell)).Select
ActiveWorkbook.PivotCaches.Add(SourceType:=xlDatabase, SourceData:= _
"Sheet1!R1C1:R302C10").CreatePivotTable TableDestination:="", TableName:= _
"数据透视表1", DefaultVersion:=xlPivotTableVersion10
ActiveSheet.PivotTableWizard TableDestination:=ActiveSheet.Cells(3, 1)
ActiveSheet.Cells(3, 1).Select
With ActiveSheet.PivotTables("数据透视表1").PivotFields("交易日期")
.Orientation = xlRowField
.Position = 1
End With
With ActiveSheet.PivotTables("数据透视表1").PivotFields("销售城市")
.Orientation = xlColumnField
.Position = 1
End With
ActiveSheet.PivotTables("数据透视表1").AddDataField ActiveSheet.PivotTables("数据透视表1" _
).PivotFields("利润"), "求和项:利润", xlSum
End Sub
[ 本帖最后由 热带枯叶 于 2009-3-1 22:21 编辑 ] |
|