Excel vba股价数据怎么vba 自动更新数据

来源：蜘蛛抓取(WebSpider) 时间：2017-05-02 18:32 标签： vba代码自动更新
查看: 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
我试了下，字典问题也没有！还有你别把数据源给删除了，这样肯定报错
登录百度帐号推荐应用

我要回帖

更多关于 vba代码自动更新 的文章

 

随机推荐