請問Application.OnTime Now + TimeValue("00:00:01"),的問題

laieven

請問各位

我寫了一個從紀錄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

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

laieven

回復 2# GBKEE


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

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


這樣嗎?

GBKEE

回復 3# laieven

下載 (96.3 KB)

2015-6-25 14:27

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

回復 4# GBKEE


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