excel股票自動刷新，VBA代碼如何寫啊？

我測試了下發現是鼠標放上去懸停才能觸發刷新數據的動作。。。

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秒刷新壹次，可以改成妳想要的數值。

這個是我錄制宏，再稍微修改下，幾分鐘完成的。