(简单求助)VBA实现数据透视表的制作(请下载附件)

numen · 发表于 2007-6-20 21:33

yLC8rOto.rar (9.9 KB, 下载次数: 16)

在线等待!

附件中代码做出来的不符我的需求.具体查看附件,谢谢!

[此贴子已经被作者于2007-6-20 21:34:13编辑过]

TGB · 发表于 2007-6-20 21:47

录一个宏

numen · 发表于 2007-6-20 22:11

这个就是我录的.但执行宏代码的结果是不一样的.

numen · 发表于 2007-6-21 02:11

顶上去,.....请下载附件,对比两个数据透视表,录的宏执行的数据透视表与我最终的结果是不一样.

numen · 发表于 2007-6-21 21:34

怎么没有人来解决一下这个简单问题.

TGB · 发表于 2007-6-21 22:08

我录的宏,好像可以的

Sub Macro1()

    Columns("E:H").Clear 'Contents

    ActiveWorkbook.PivotCaches.Add(SourceType:=xlDatabase, SourceData:= _
        "Sheet1!R1C2:R39C3").CreatePivotTable TableDestination:= _
        "[help.xls]Sheet1!R5C5", TableName:="数据透视表2", DefaultVersion:= _
        xlPivotTableVersion10
    ActiveSheet.PivotTables("数据透视表2").AddFields RowFields:="cn", ColumnFields:= _
        "type"
    ActiveSheet.PivotTables("数据透视表2").PivotFields("type").Orientation = xlDataField
    ActiveSheet.PivotTables("数据透视表2").PivotFields("求和项:type").Function = xlCount
    ActiveWorkbook.ShowPivotTableFieldList = False
End Sub

numen · 发表于 2007-6-21 23:14

谢谢!你录的这个有用,但我录得怎么就没用啊?看我录的代码(没改过的),有很大区别

Sub Macro3()
'
' Macro3 Macro
' wwyp 记录的宏 2007-6-21
'
    Columns("B:C").Select
    ActiveWorkbook.PivotCaches.Add(SourceType:=xlDatabase, SourceData:= _
        "Sheet1!C2:C3").CreatePivotTable TableDestination:="[help.xls]Sheet1!R4C6", _
        TableName:="数据透视表3", DefaultVersion:=xlPivotTableVersion10
    ActiveWorkbook.ShowPivotTableFieldList = True
    With ActiveSheet.PivotTables("数据透视表3").PivotFields("cn")
        .Orientation = xlRowField
        .Position = 1
    End With
    With ActiveSheet.PivotTables("数据透视表3").PivotFields("type")
        .Orientation = xlColumnField
        .Position = 1
    End With
    ActiveSheet.PivotTables("数据透视表3").AddDataField ActiveSheet.PivotTables("数据透视表3" _
        ).PivotFields("type"), "计数项:type", xlCount
End Sub

		自动登录	找回密码
密码			免费注册