如何让EXCEL透视表和透视图随着源文件数据的更新而自动更新

发布网友发布时间：2022-04-26 21:52

共3个回答

热心网友时间：2023-11-07 11:38

EXCEL标准功能中提供了数据刷新功能，也就是数据源数据更新后，手动刷新一下。具体做法就不累述了。

您这个要求已经超出了EXCEL标准功能的范围，只能用万能的VBA来做了。
这个大致做法就是：1、利用宏记录功能，将您手动刷新的动作由系统自动生成代码，适当修改后即使您需要的程序了。
2、利用事件触发事件，设置宏。并启动您刚完成的代码。这个时间触发就是您的数据区域发生改变时自动运行。
由于不知道您的具体要求，准确的事件代码给不出来，下面是我自己用的一个例子的代码，供你参考。
Private Sub worksheet_change(ByVal target As Range)
If target.Row = 2 And target.Column < 4 Then

test
End If
End Sub
说明：1、改程序要存放在您数据源所在工作表中。就是您工作表内容变动自动启动。
2、If target.Row = 2 And target.Column < 4 这里捕捉的是第二行第4列发生变动则执行 test 宏。这里你可以放入上面自动刷新的宏。

热心网友时间：2023-11-29 12:36

要用到宏了。

在change事件下写入刷新的代码，比如

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

热心网友时间：2023-11-29 12:36

不用重新弄呀,不是有刷新按钮吗?按一下就行了
视图/工具栏/数据透视表,打开后里面的感叹号样的东西就是刷新按钮哦~~~~

热心网友时间：2023-11-07 11:38

要用到宏了。

在change事件下写入刷新的代码，比如

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

热心网友时间：2023-11-07 11:39

不用重新弄呀,不是有刷新按钮吗?按一下就行了
视图/工具栏/数据透视表,打开后里面的感叹号样的东西就是刷新按钮哦~~~~