EXCEL VBA 每隔5秒更新

Private Sub Worksheet_Activate()




Application.OnTime Now + TimeValue("00:00:05"), "loaddata"



End Sub

Private Sub Worksheet_Change(ByVal Target As Range)

Application.OnTime Now + TimeValue("00:00:05"), "loaddata"

End Sub

另外寫一個副程式

Sub loaddata()



ActiveCell.Offset(1, 0).Select

ActiveCell.Value = "網路資料"

End Sub