如何更新汇总的透视表产生的明细表

九碧水一蓝天九

刚刚在当当网邮购了一本《数据透视表应用大全》，看了觉得很好。
自己做了一个数据透视表，汇总后的透视表自动刷新与自动排序的问题解决了，但有一个问题一直困扰着我。
那就是基于汇总透视表产生的明细表不能够随着汇总透视表的刷新而自动更新。

请高手有空帮助看看怎么处理？谢谢！！！

新纪元

请说明你的最终目的是什么？要求什么样的表格？

yanjie

明细表不能随透视表更新！
可以用VBA代码实现你的要求：删除“工作明细表”工作表，然后用代码双击合计数，产生一个新的工作表，重新命名为“工作明细表”。
能把你的《数据透视表应用大全》光盘文件发送到我的邮箱里吗，我也想看看：
yanjieeee@sina.com

[ 本帖最后由 yanjie 于 2010-3-21 16:05 编辑 ]

lrd3639

原帖由 九碧水一蓝天九 于 2010-3-21 15:20 发表
刚刚在当当网邮购了一本《数据透视表应用大全》，看了觉得很好。
自己做了一个数据透视表，汇总后的透视表自动刷新与自动排序的问题解决了，但有一个问题一直困扰着我。
那就是基于汇总透视表产生的明细表不能够随 ...

产生的明细表应该是不会更新的，你用三表合一，把农、工、林放在页字段查询也是一样的。
如何更新汇总透视表产生的明细表.rar (6.69 KB, 下载次数: 27)

2010-3-21 16:07 上传

点击文件名下载附件

lrd3639

我也想看看你的《数据透视表应用大全》，就多发几份吧，
我的邮箱：lrd3639@sina.com

yanjie

在透视表更新事件中加入以下代码：
Option Explicit

Private Sub Worksheet_PivotTableUpdate(ByVal Target As PivotTable)
Dim pt As PivotTable
Dim ws As Worksheet
Dim rg As Range

Set ws = ActiveSheet
Set rg = Selection
Application.DisplayAlerts = False
On Error Resume Next
Worksheets("工业明细表").Delete
On Error GoTo 0

Set pt = ActiveSheet.PivotTables(1)
With pt.TableRange1
    .Cells(.Cells.Count).ShowDetail = True
End With
ActiveSheet.Name = "工业明细表"
ActiveSheet.UsedRange.Columns.AutoFit
ws.Activate
rg.Select
Application.DisplayAlerts = True

End Sub
如何更新汇总透视表产生的明细表_基础VBA.rar (10.6 KB, 下载次数: 34)

2010-3-21 17:05 上传

点击文件名下载附件

透视表功能强大，我能用一个数据透视表搞定仓库材料收发结存核算，用数据透视表作考勤表等等！