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