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

xuanhou · 发表于 2008-7-7 22:49

数据透视表版本人气不足,只好来这里求助了,烦请各位帮我看看,谢谢Q!

http://club.excelhome.net/viewthread.php?tid=335948&px=0

LangQueS · 发表于 2008-7-7 23:04

请参考：

[原创]★将数据透视表的数据引用改为动态引用★

xuanhou · 发表于 2008-7-7 23:17

版主,我很急,您能不能帮我看一下,如何修一下VBA代码呀?你的贴子都不用VBA的,而我要的是VBA.谢谢!

LangQueS · 发表于 2008-7-7 23:29

gGlB8Fdt.rar (10.21 KB, 下载次数: 23)

xuanhou · 发表于 2008-7-7 23:46

谢谢版主!!!

请问版主,要是不用名称,以下代码如何改才会通过?

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

LangQueS · 发表于 2008-7-8 00:14

QUOTE:

以下是引用xuanhou在2008-7-7 23:46:48的发言：

谢谢版主!!!

请问版主,要是不用名称,以下代码如何改才会通过?

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

在这里应该使用名称，否则每次（即使用代码）还要重新定义数据区域，速度太慢了，也影响以后可能对透视表的修改。

yanjie · 发表于 2008-10-4 22:27

QUOTE:

你试试看：

pCH2144x.rar (10.36 KB, 下载次数: 30)

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