返回列表 上一主題 發帖

[發問] 發問 : 如何設定能在規定的時間紀錄資料

stillfish00

帖子
1018 
主題
15 
精華
0 
積分
1058 
點名
0  
作業系統
win7 32bit 
軟體版本
Office 2016 64-bit 
閱讀權限
50 
性別
男 
來自
桃園 
註冊時間
2012-5-9 
最後登錄
2022-9-28 
1# 跳轉到 »
發表於 2014-5-27 17:01 | 顯示全部帖子
回復 3# owen06
Application.OnTime t2, "AutoCopy",,false   這個語法一直不知道該怎麼應用。

可用全域變數紀錄時間，以取消該時間的排程
  1. Private tNext As Date

  3. Sub StartButton()
  4.   On Error Resume Next
  5.   StopButton
  6.   On Error GoTo 0

  8.   MyLoop TimeValue("18:00:00")
  9. End Sub

  11. Public Sub StopButton()
  12.   Application.OnTime tNext, "MyLoop", , False
  13. End Sub

  15. Sub MyLoop(Optional tStart)
  16.   Const MIN_INTERVAL = 1 '間隔時間
  17.   
  18.   If Not IsMissing(tStart) Then
  19.     tNext = tStart
  20.     Application.OnTime tNext, "MyLoop"
  21.   Else
  22.     tNext = tNext + TimeSerial(0, MIN_INTERVAL, 0)
  23.     Application.OnTime tNext, "MyLoop"
  24.     MyCopyFunc 'call your copy function
  25.   End If
  26. End Sub

  28. Sub MyCopyFunc()
  29.   'The timing cost of MyCopyFunc should less than the time of INTERVAL
  30.   'Copy here
  31. End Sub
複製代碼

TOP

        靜思自在 : 心中常存善解、包容、感思、知足、惜福。
返回列表 上一主題