Board logo

標題: 請問Application.OnTime Now + TimeValue("00:00:01"),的問題 [打印本頁]
作者: laieven    時間: 2015-6-24 12:36     標題: 請問Application.OnTime Now + TimeValue("00:00:01"),的問題

請問各位

我寫了一個從紀錄DDE資料的VBA~~一開始寫在Module中

程式碼如下

Sub 委買委賣1分鐘()
If Second(Time) = 0 And Minute(Time) Mod 1 = 0 Then
    Range("A1045786").End(xlUp).Offset(1, 0).Value = Range("A2")
    Range("B1045786").End(xlUp).Offset(1, 0).Value = Range("B2")
    Range("C1045786").End(xlUp).Offset(1, 0).Value = Range("C2")
    Range("E1045786").End(xlUp).Offset(1, 0).Value = Range("E2")

Application.OnTime Now + TimeValue("00:00:01"), "委買委賣1分鐘"


我想請問∼若我想把我的這段程式碼~~寫到thisworkbook~~那我該怎麼改呢?
再請問~~若我想把這段程式碼改到工作表1(委買委賣)~~又該怎麼改呢

個人覺得問題應該出在Application.OnTime Now + TimeValue("00:00:01"), "委買委賣1分鐘"這一行
因為我直接把程式碼複製到相關的位置~~每秒遞迴的動作是無法執行的!!估計問題應該就是出現在上述那一行的路徑有問題
我嘗試了幾次~~~無奈底子尚淺~~一直無法達成!!
還請各位先進不吝協助指教
感謝了
作者: GBKEE    時間: 2015-6-24 14:55

回復 1# laieven
"程序所在的模組.程序名稱"
Application.OnTime Now + TimeValue("00:00:01"), "thisworkbook.委買委賣1分鐘"
Application.OnTime Now + TimeValue("00:00:01"), "工作表1.委買委賣1分鐘"
作者: laieven    時間: 2015-6-24 19:24

回復 2# GBKEE


    了解ㄌ ~~感謝!!
那再請問~~寫在工作表1~~可寫成

Application.OnTime Now + TimeValue("00:00:01"), "sheet1.委買委賣1分鐘"


這樣嗎?
作者: GBKEE    時間: 2015-6-25 14:27

回復 3# laieven


[attach]21254[/attach]
  1. Option Explicit
  2. Sub Ex()
  3.     Dim E As Worksheet
  4.     For Each E In Sheets
  5.         MsgBox "工作表(""" & E.Name & """) 的模組名稱 [" & E.CodeName & "]"
  6.     Next
  7. End Sub
複製代碼
作者: laieven    時間: 2015-6-26 12:17

回復 4# GBKEE


    順利調整好~~感謝版主熱心協助!



歡迎光臨 麻辣家族討論版版 (http://forum.twbts.com/)