用VBA使用消息輸出功能失敗。 [金字塔]
- 咨詢內容:
Sub time()
Call Application.SetTimer(0,2*1000) '設置一個0號計時器,間隔2秒執行一次
Call Application.Settimer(9,5*1000) '設置一個9號計時器,間隔5秒執行一次
End Sub
'下面的過程是計時器循環體,我讓計時器顯示每次觸發的時間,你看看是不是間隔設定的秒數就觸發。
Sub Application_Timer(ID)
If ID=0 then
Application.msgout ",0號計時器觸發了"
end if
If ID=9 then
Application.msgout ",9號計時器觸發了"
end if
End Sub按說應該輸出消息,但實際消息框無反應。我嘗試著用論壇里所說的刪除注冊表中的weistock,也沒有效果。
- 金字塔客服:
你先確定time()這個過程函數有沒有被調用鍋
- 用戶回復:
time()這個子過程沒有執行過,所以沒有設置計時器
可以吧time加到vbastart事件中去。
如:
Sub Application_VbaStart() TimeEnd Sub [此貼子已經被作者于2013/12/26 11:59:28編輯過]
有思路,想編寫各種指標公式,程序化交易模型,選股公式,預警公式的朋友
可聯系技術人員 QQ: 511411198 進行 有償 編寫!(不貴!點擊查看價格!)
相關文章
-
沒有相關內容