[分享]新手级的自动数据透视表

在论坛也泡了很久了,总是偷学,现在有点小收获,和大家一起分享.

可能并不算新技巧,但对新手应该很容易懂,我是新手,我不会VB,所以方法有些笨,高手看了不要笑哦!

经常要做数据透视表,样子格式都差不多,总要重复设置,很麻烦,后来想了个办法.

1.选择录制宏

2.在准备放数据透视表的SHEET中选择数据透视表的向导(这点很重要)

3.在选择数据源区域时,按浏览,选择你的数据源

   注意两点:A.数据源尽量单独一个sheet

                   B.数据透视表向导的数据区域中要详细显示(如:明细表!$A$1:$Q$1559)

4.然后就是按你平时方法一样做,就是在数据表显示位置时,要选现有工作表,并选定一个单元格

5.透视表生成后,你一般还喜欢做什么样的格式设置呀等等,全部做完后,就可以停止录制宏了.

6.在任意单元格输入公式1=COUNTA(明细表!A:A)----->取数据源的行数

                               公式2=COUNTA(明细表!1:1)------>取数据源的列数

7.通过VB编辑器,打开刚才录制的宏

在开头加几句代码:

R = ActiveCell.CurrentRegion.Rows.Count     
C = ActiveCell.CurrentRegion.Columns.Count

'R/C是任意的,没啥意思,上面的话好像是说给R赋赋予行数的属性,给C赋予列数的属性,(这是我借鉴来的,自己也不太明白,也等高手指点呢!)

Sheets("数据透视表").Select
Range("E3").Select
R = Range("E3")
C = Range("E4")

'E3 / E4 / 数据透视表等,就是刚才放行数和列数的地方,目的就是让R=行数,C=列数

★☆★☆★☆★☆★☆★☆★☆★☆

对于新手最重要的部分到了,

录制的宏中有这样一句代码:

ActiveWorkbook.PivotCaches.Add(SourceType:=xlDatabase, SourceData:= _
        "明细表!R1C1:R1559C9").CreatePivotTable TableDestination:=Range("C4"), _
        TableName:="数据透视表2"

把红字部分改成:SourceData:=  "明细表!R1C1:R" & R & "C" & C

好了,存盘,一个自动式数据透视表就完成!赶快去试试吧!

评点: 适合数据源项目相同,行数不同的表,如果有新增的项目,不能自动在数据透视表中出现,但已经包含在数据源中了,因此只要重新选择一下就可以了!

呼呼,终于写完了,当个有知识的楼主可真不容易,再次感谢许多无偿丰献的楼主.

  ZQzR53NI.rar (15.94 KB, 下载次数: 664)

附件中,我是做了一个控件,以实现,按下按钮,报表生成的愿望!!

同时还录制了一个删除的宏,将偷懒进行到底!!

有什么更好的改进方法,还希望大家一起讨论!一起进步!将偷懒进行到底!!

 3楼的问题好像我解决不了,因为这是数据透视表本身的原因,正常做数据透视表如果是在选定数据区外添加新增数据,用刷新也是不能更新数据的.但是我试过了,补救的方法有两种:

1.是用插入,如果是用插入更新是有用的;

2.把删除的代码粘贴在生成的代码前,这样就可以只按一次键,就重新生成报表了!

最后,我感觉要是真的只想用更新,估计只能"更新"的原代码,将SourceData:= "明细表!R1C1:R1559C9")的数据范围重新写入才行了,那就只能等真正的高手出现了!!

期待高手出现!!!

谢谢版主鼓励!!

binyang跑来问问题，呵呵

支持楼主的分享精神

不过，你都做了个宏，做了按钮

效率会不会反而变低，可操作性会不会变差呢？

数据透视表的菜单里有刷新键

也可以设置打开刷新，每5秒刷新等

或许是我没有理解到楼主的意思

演示过了,感觉超棒!比我的不知好到那块去了!

可是又有了新的问题(我对代码看得不是太懂,有些问题可能提得不太好,请见谅)

1.我感觉这个是把数据透视表1的设置内容放入变量PT中,那如果是要根据明细表生成好几个数据表,那是不是要高好几个PT呀?

2.有几段代码猜不出来,希望YANJIE能抽空解释一下,呼呼,先谢谢了!

 a   Application.ScreenUpdating = False   这是要把屏幕刷新关闭吗?

 b  .sourceData:=Sheet1.Range("a1").CurrentRegion .Address  这是确认数据表的取值范围吗?

 C  Sheet2.PivotTables("数据透视表1").TableRange2     这是选定数据透视表的生成范围吗?

麻烦看得懂的高手指点指点!

另请问VB中的代码,什么地方有象EXCEL中的函数一样的使用指南呀?就是在FX中的,可以一边查使用说明,一边用,VB中的感觉都是代码,没有小解释,帮助有时也找不到,呼呼!

改进了一下，刷新数据透视表能引入新数据了。

PACcahyh.rar (16.22 KB, 下载次数: 351)

2008-9-10 16:29 上传

点击文件名下载附件
[分享]新手级的自动数据透视表