数据透视表求教！希望大师援手

usewhy · 发表于 2002-2-13 14:53

由于工作需要，我想做一透视表，数据源表格式如下：品牌数量单价金额康佳 20 1500 30000 创维 3 1250 3750 康佳 1 2500 2500 创维 1 4000 4000 TCL 7 1200 8400 。。。。。。。。。。。。。。。。。。。。。。。。。由于源表需不断加入数据，请大师们帮我写一个完整程序，能动态刷新，我是个vba新手，实在无能为力，期盼帮忙！非常感谢！

usewhy · 发表于 2002-2-13 16:27

刷新解决，我的苯办法是将范围设得很大。但我发现一个问题，添加记录后，新的透视表数据完全不对！我的“数据项”变得很小了（也不知是哪里的数据），我的代码如下：Dim aaa As PivotTable Worksheets("源数据").Activate Set aaa = ActiveWorkbook.PivotCaches.Add(SourceType:=xlDatabase, SourceData:= _ "源数据!R1C1:R5000C6").CreatePivotTable(TableDestination:="") aaa.RefreshTable ActiveSheet.PivotTableWizard TableDestination:=ActiveSheet.Cells(3, 1) ActiveSheet.Cells(3, 1).Select aaa.SmallGrid = False aaa.AddFields RowFields:="品牌", PageFields:= _ "备注" aaa.PivotFields("金额").Orientation = xlDataField 字段名稍有出入，您能明白的，恳请各位高手指点！如有不清，我把文件email过来，帮我看看好吗？夏老，刚看到您的新解，我把文件发过来。非常感谢！盼复！

usewhy · 发表于 2002-2-13 17:57

哦，原来它是“计数”，而我是要“求和”！请问如何改代码？help

鱼之乐 · 发表于 2002-2-14 22:56

加一句: aaa.PivotFields("金额").Function = xlSum ''即可求和

bluesky · 发表于 2002-2-15 00:02

不用用到 VBA。建立数据透视表时，数据透视表向导第二步选择数据源那里，不要指定单元格，例如 A2：D6，而写成 A：D，这样，再次加入新的数据之后，再更新数据透视表就可以了。

usewhy · 发表于 2002-2-15 09:57

非常感谢二位答复解惑！过年好！

usewhy · 发表于 2002-2-15 10:18

刚才我加了aaa.PivotFields("金额").Function = xlSum ，运行提示“错误1004，不能设置类pivotfields的function属性”，请问这是为何？谢谢！

usewhy · 发表于 2002-2-15 10:24

没想到鱼兄现在也在，道声“辛苦了”，对了，鱼兄，我的复制数据的信收到了吗？麻烦先生帮我做出来，非常感谢您！

usewhy · 发表于 2002-2-15 13:06

透视表搞定！麻烦斑竹关于那个“复制数据”，先行谢过了！

lwcitic · 发表于 2002-2-21 00:18

将透视表数据源区域设为动态区域 =OFFSET(SHEET1!$A$1,,,COUNTA(SHEET1!$A:$A),4) 在VBA只需写一句刷新透视表即可

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