作者TNR (冥河摆渡者)
看板Visual_Basic
标题[VBA ] 请问如何写停止指令?
时间Thu Jan 13 14:00:10 2011
小弟才疏学浅
写个自动贴上的程式码
但程式自动时间开启点与结束点无法顺利执行
以下为程式码
内容是於8:45开始每隔一分钟就自动贴上值
ㄧ直贴到13:45停止..
有请高手帮帮小弟看是那里写错了@@
感恩!!
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
Application.OnTime nextrundde, "DDE", Schedule:=True
'End If
Application.OnTime nextrundde, "dde_paste", Schedule:=True
End Sub
--
※ 发信站: 批踢踢实业坊(ptt.cc)
◆ From: 59.124.70.85
1F：推 JingTeng:是我看错了嘛？你的回圈在哪里？ 01/14 20:40
2F：→ JingTeng:ㄜ，我看错了，别理我 01/14 20:42
3F：→ MOONRAKER:他应该是利用那个app.ontime吧 不过这我不熟 01/16 23:37
4F：→ necsa:我也不熟,试了一下想看一下说明,结果电脑没说明可看,安装程 01/17 01:49
5F：→ necsa:式不在身边:( 01/17 01:49