数据透视表刷新数据时如何随原表自动调整?

yjwly · 发表于 2007-11-6 11:29

5rFOma0o.rar (5.86 KB, 下载次数: 59)
麻烦各位老师指教了

adams2000 · 发表于 2007-11-6 11:46

将源数据定义名称，可以是动态的范围，增加行后直接刷新就可以了。

H54Hl2MZ.rar (4.84 KB, 下载次数: 92)

yjwly · 发表于 2007-11-6 12:47

最主要的是列和计算字段,楼上你都回避了,但也谢了.

麻烦高手指教!

yjwly · 发表于 2007-11-6 19:52

坛里找了半天,发现可以用这个:定义区域来部分实现,

=OFFSET(明细表!$A$1,0,,COUNTA(明细表!$A:$A),COUNTA(明细表!$1:$1))

但是:新增的列字段还需手工拖依下；计算字段"最近实数"更麻烦,还要修改。

麻烦高手看看了

BIN_YANG168 · 发表于 2007-11-6 22:54

QUOTE:

以下是引用yjwly在2007-11-6 19:52:15的发言：

坛里找了半天,发现可以用这个:定义区域来部分实现,

=OFFSET(明细表!$A$1,0,,COUNTA(明细表!$A:$A),COUNTA(明细表!$1:$1))

但是:新增的列字段还需手工拖依下；计算字段"最近实数"更麻烦,还要修改。

麻烦高手看看了

1iPWTmlX.rar (4.81 KB, 下载次数: 41)
新增的列字段,刷新后在数据透视表字段列表中，需要手工拖到数据透视表中。

yjwly · 发表于 2007-11-7 20:46

非常感谢斑竹,但这个手工拖,还又更好的解决方法吗?还清高手出招,谢谢!

yanjie · 发表于 2007-11-11 23:11

用VBA做的,不知道是否正确,请验证!

Y0pv71fJ.rar (13.57 KB, 下载次数: 37)

yjwly · 发表于 2007-11-12 19:59

QUOTE:

以下是引用yanjie在2007-11-11 23:11:50的发言：

用VBA做的,不知道是否正确,请验证!

太厉害!太谢谢了!
但我看不懂[em04]
Private Sub Worksheet_Activate()
Dim pv As PivotTable, rng As Range
Set pv = Sheet1.[b3].PivotTable
pv.RefreshTable
pv.ManualUpdate = False
On Error Resume Next
pv.DataPivotField.Orientation = xlHidden
For Each rng In Worksheets("明细表").Range("c1", Sheets("明细表").[iv1].End(xlToLeft))
pv.AddDataField pv.PivotFields(rng.Value), " " & rng.Value, xlSum
Next rng
pv.ManualUpdate = True
End Sub

Sub Macro1()
'
' Macro1 Macro
' Macro recorded 2007-11-11 by Lenovo User
'

'
    Range("F9").Select
    Selection.ShowDetail = True
    Sheets("汇总结果").Select
    ActiveSheet.PivotTables("数据透视表1").AddDataField ActiveSheet.PivotTables("数据透视表1" _
        ).PivotFields("07年3季"), "Sum of 07年3季", xlSum
    Range("H8").Select
    ActiveWindow.SmallScroll Down:=-15
End Sub
Sub Macro2()
'
' Macro2 Macro
' Macro recorded 2007-11-11 by Lenovo User
'

'
    Range("H4").Select
    ActiveSheet.PivotTables("数据透视表1").PivotFields(" 07年2季").Orientation = xlHidden
    Range("F8").Select
End Sub
Sub Macro3()
'
' Macro3 Macro
' Macro recorded 2007-11-11 by Lenovo User
'

'
Range("C3").Select
ActiveSheet.PivotTables("数据透视表1").DataPivotField.Orientation = xlHidden
End Sub

yanjie · 发表于 2007-11-12 20:31

哦哪些宏都没有什么用处!我有些单词记不住,所以录制宏好看看,你不要管这些宏,没有什么用处,我已经删掉了!

真正起作用的是:

Private Sub Worksheet_Activate()
Dim pv As PivotTable, rng As Range
Set pv = Sheet1.[b3].PivotTable
pv.RefreshTable
pv.ManualUpdate = True
On Error Resume Next
pv.DataPivotField.Orientation = xlHidden
For Each rng In Worksheets("明细表").Range("c1", Sheets("明细表").[iv1].End(xlToLeft))
pv.AddDataField pv.PivotFields(rng.Value), " " & rng.Value, xlSum
Next rng
pv.ManualUpdate = False

pv.ManualUpdate =True
End Sub

jqIGcNCv.rar (12.23 KB, 下载次数: 58)

[此贴子已经被作者于2007-11-12 20:38:17编辑过]

文翰 · 发表于 2008-3-9 19:18

我也没看懂，能否更加详细的解释一下？如果能每句都加上注释再好不过了。

谢谢

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