求助:VBA更新数据透视表的问题

xuanhou · 发表于 2008-7-7 21:18

求助:VBA更新数据透视表的问题

如何实现当数据源表中的数据有增减时,自动更新数据透视表,谢谢!

请看附件.

qDyWORYd.rar (10.26 KB, 下载次数: 24)

hlightaaaa · 发表于 2008-7-7 21:38

Sub Macro3()

Dim sht As Worksheet

Set sht = Sheets("练习")

' ActiveSheet.PivotTableWizard SourceType:=xlDatabase, SourceData:=sht.Range("a1").CurrentRegion.Address '只是更新的话,这句话去掉就可以了.

ActiveSheet.PivotTables("数据透视表1").PivotCache.Refresh

End Sub

m6hKrp8Q.rar (10.05 KB, 下载次数: 44)

xuanhou · 发表于 2008-7-7 21:43

谢谢楼上.

再问:如果创建数据透视表时的数据区域选择的是A1:C20,而不是现在的A:C,那又该怎么办?这就是我的本意.谢谢!

xuanhou · 发表于 2008-7-8 20:22

再问一次.

yuxue · 发表于 2008-9-15 23:06

郁闷呀，为什么我不能下载呢

老夏 · 发表于 2008-9-17 21:01

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