我用excel自带的功能做了一个股票列表,但是我不知道怎么设置自动刷新,要不然每次我还得手动点击。请大神教一下怎么自动刷新?
我测试了下发现是鼠标放上去悬停才能触发刷新数据的动作。。。
sheet1里写:
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
宏2
End Sub
模块1里写:
Sub 宏2()
'
' 宏2 宏
ActiveWorkbook.RefreshAll
If Sheet1.[G1] <> "停止刷新" Then Application.OnTime (Now + TimeSerial(0, 0, 2)), "宏2"
End Sub
亲测OK。
TimeSerial(0, 0, 2) 里面的2就是每2秒刷新一次,可以改成你想要的数值。
这个是我录制宏,再稍微修改下,几分钟完成的。
温馨提示:答案为网友推荐,仅供参考