[求助]求助后台制作数据透视表的方法（有附件）

w20331928 · 发表于 2008-5-22 18:54

5KAGhLxr.rar (10.89 KB, 下载次数: 19)

各位大侠：

小弟求助VBA后台制作数据透视表的方法，有附件，主要是想知道制作方法和思路。我曾经自己录制过，不过效果十分不理想，希望数据高手能给点拨点拨，不胜感激。

KCFONG · 发表于 2008-5-22 20:41

endrow = ActiveSheet.[a65536].End(xlUp).Row
Columns("f:g").Delete
    ActiveWorkbook.PivotCaches.Add(SourceType:=xlDatabase, SourceData:= _
        "Sheet1!R2C1:R" & endrow & "C4").CreatePivotTable TableDestination:=Cells(1, 6), TableName:= _
        "数据透视表1", DefaultVersion:=xlPivotTableVersion10
    ActiveSheet.PivotTables("数据透视表1").AddFields RowFields:="任务编号"
    ActiveSheet.PivotTables("数据透视表1").PivotFields("数值").Orientation = xlDataField
    ActiveWorkbook.ShowPivotTableFieldList = True
    ActiveWorkbook.ShowPivotTableFieldList = False
    Application.CommandBars("PivotTable").Visible = False

w20331928 · 发表于 2008-5-23 08:16

如何激活这个代码

w20331928 · 发表于 2008-5-23 08:31

我忘记SUB声明了，是我白了。。大侠能帮忙注解下这个代码么？我好仔细学习学习，参悟参悟

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