2011年6月2日星期四

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

 
妹咕數位學園歡迎網友們來信指教 妹咕信箱