查看: 2980|回复: 3
如何改为自动更新，不用经常点击执行宏
Sub 搜索公式()
Dim dc As Object
Dim i, ir, arr
Set dc = CreateObject(&Scripting.Dictionary&) '
Application.ScreenUpdating = False
Sheet9.Select
ir = Range(&a10000&).End(xlUp).Row
arr = Range(&A2:C& & ir)
For i = 1 To ir - 1
dc(arr(i, 1)) = Array(arr(i, 2), arr(i, 3))
Sheet7.Select
ir = Range(&d10000&).End(xlUp).Row
For i = 2 To ir
Cells(i, 5) = dc(Cells(i, 4).Value)(0)
Cells(i, 6) = dc(Cells(i, 4).Value)(1)
Application.ScreenUpdating = True
Set dc = Nothing
自动更新是什么时候需要更新呢,如果想自动,就在工作表或工作簿事件程序中调用这个程序即可
支持下& && && && && && && &
看不懂，我也想知道如何可以让表格自动更新呀
Powered by【VBA疑难求助】多个数据透视表随数据源变动自动更新数据【excel吧】_百度贴吧
&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&签到排名：今日本吧第个签到，本吧因你更精彩，明天继续来努力！
本吧签到人数：0成为超级会员，使用一键签到本月漏签0次！成为超级会员，赠送8张补签卡连续签到：天&&累计签到：天超级会员单次开通12个月以上，赠送连续签到卡3张
关注：148,481贴子：
【VBA疑难求助】多个数据透视表随数据源变动自动更新数据收藏
以下是sheet1至8里写的代码：Private Sub Worksheet_Activate()ActiveSheet.PivotTables(&数据透视表1&).PivotCache.RefreshActiveSheet.PivotTables(&数据透视表2&).PivotCache.RefreshActiveSheet.PivotTables(&数据透视表3&).PivotCache.RefreshEnd Sub虽然能用，但我觉得每个sheet都写一次上面的代码太麻烦了，应该有更简便的方法和更加单的代码，只写一段，全部控制之前发过贴，吧友给出的答案根本没有用，下面附上吧友的答案：【放在thisworkbook里Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As RangeThisWorkbook.RefreshAllEnd Sub】谢谢各位的热心帮助和浏览，求各位吧友出手帮忙
数据源工作表中添加如下代码：Private Sub Worksheet_Change(ByVal Target As Range)
Dim WS As Worksheet, PT As PivotTable
For Each WS In ThisWorkbook.Worksheets
For Each PT In WS.PivotTables
PT.RefreshTable
Next WSEnd Sub
我试了下，字典问题也没有！还有你别把数据源给删除了，这样肯定报错
登录百度帐号推荐应用}