作者tropical72 (藍影)
看板Visual_Basic
標題Re: [VBA ] 請問如何寫停止指令?
時間Fri Jan 21 01:28:22 2011
※ 引述《TNR (冥河擺渡者)》之銘言：
: sub dde_paste()
: Dim nextrundde As Date
: Application.ScreenUpdating = False
: nextrundde = Now + TimeValue("00:01:00")
: 'If nextrundde >= Date & " 08:45:00" And nextrundde <= Date & " 13:45:00" Then
^^^^ 用 Format 才可以比較
: Application.OnTime nextrundde, "DDE", Schedule:=True
: 'End If
: Application.OnTime nextrundde, "dde_paste", Schedule:=True
^^^ 這不是個好習慣，通常是 OnTime 到之後 呼叫 OnTimeFunc，
再由 OnTimeFunc 去呼叫 DDE 、 dde_paste
: End Sub
參考一下
Public NextTime As Date
Sub UpdateTime()
Dim StartTime, EndTime As Date
StartTime = "01:00:00"
EndTime = "02:00:00"
If (Format(NextTime, "hh:mm:ss") >= StartTime And _
Format(NextTime, "hh:mm:ss") <= EndTime) Then
Func1
Func2
NextRun
End If
End Sub
Sub NextRun()
' NextTime = Now + 1 / 1440 ' 1 min / cycle
NextTime = Now + 1 / 86400 ' 1 sec / cycle
Application.OnTime NextTime, "UpdateTime", Schedule:=True
End Sub
Sub Func1()
ActiveSheet.Range("a1") = Time
End Sub
Sub Func2()
ActiveSheet.Range("a2") = Time
End Sub
--
YouLoveMe() ? LetItBe() : LetMeFree();
--
※ 發信站: 批踢踢實業坊(ptt.cc)
◆ From: 180.177.76.142
※ 編輯: tropical72 來自: 180.177.76.142 (01/21 01:37)