关于数据透视表的数据源选取

sunsoncheng · 发表于 2005-12-16 10:53

本人用做了个东西里面有许多张表是用数据透视表来统计分类的，——主要是对分类统计技术没掌握！但这个数据源范围是可变的，而本人没找到相关的语句，只好用曾经出现过的最大值，这样会对运算时间，资源及最后的文件大小都有很大的关系，能有高手在这方面作指导吗？

goots · 发表于 2005-12-16 12:54

录制一个修改透视表数据源的宏，再修改相应代码，如： ActiveSheet.PivotTables("数据透视表1").SourceData = "Sheet1!R1C1:R" & n & "C3"

[此贴子已经被作者于2005-12-16 12:56:02编辑过]

sunsoncheng · 发表于 2005-12-17 20:21

谢高手的指点,但我还是不知如何

[em06]

我的程式如下,

ActiveWorkbook.PivotCaches.Add(SourceType:=xlDatabase, SourceData:= _
"客户原数!R3C2:R500C27").CreatePivotTable TableDestination:=Range("A3"), TableName:="对数表"

可变的是从R3C2到27列,最大约在500行内(一般在150行以内),你所示例的语句我试了许多次都未是调用出错的提示

能再指教吗?

[em06]

sunsoncheng · 发表于 2005-12-17 20:23

或者能解释一下相关的用法?&n&是代表什么?

还有一个不明白的,不是说用""表示绝对的引用吗?

oobird · 发表于 2005-12-19 09:09

可以呀，在工作表定义动态名称。

ActiveSheet.PivotTableWizard SourceType:=xlDatabase, SourceData:="x", _…

FENGJUN · 发表于 2005-12-19 09:13

N是本工作表最大行号

N= ActiveSheet.Cells.Find(What:="*", _
SearchDirection:=xlPrevious, _
SearchOrder:=xlByRows).Row

sunsoncheng · 发表于 2005-12-19 10:04

非常感谢各位的帮忙，问题已经解决最后用了最大有行数如下：

Dim kkk As Integer, kk As Integer

Sheets("客户原数").Activate

kk = Range("d65535").End(xlUp).Row

ActiveWorkbook.PivotCaches.Add(SourceType:=xlDatabase, SourceData:= _
"客户原数!R3C2:R" & kk & "C27").CreatePivotTable TableDestination:=Range("A3"), _
TableName:="对数表"
又学到了一个动态数组的方式还有动态数组的选定！

特向各位汇报

非常感谢

[em02][em02][em02][em02]

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