作者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)