請問Application.OnTime Now + TimeValue("00:00:01"),的問題
- 帖子
- 81
- 主題
- 31
- 精華
- 0
- 積分
- 117
- 點名
- 0
- 作業系統
- windows7
- 軟體版本
- office2010
- 閱讀權限
- 20
- 性別
- 男
- 來自
- 台北
- 註冊時間
- 2013-8-3
- 最後登錄
- 2024-4-30
|
請問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分鐘"這一行
因為我直接把程式碼複製到相關的位置~~每秒遞迴的動作是無法執行的!!估計問題應該就是出現在上述那一行的路徑有問題
我嘗試了幾次~~~無奈底子尚淺~~一直無法達成!!
還請各位先進不吝協助指教
感謝了 |
|
|
|
|
|
|
|
- 帖子
- 5923
- 主題
- 13
- 精華
- 1
- 積分
- 5986
- 點名
- 0
- 作業系統
- win10
- 軟體版本
- Office 2010
- 閱讀權限
- 150
- 性別
- 男
- 來自
- 台灣基隆
- 註冊時間
- 2010-5-1
- 最後登錄
- 2022-1-23
        
|
2#
發表於 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分鐘" |
|
|
|
|
|
|
|
- 帖子
- 81
- 主題
- 31
- 精華
- 0
- 積分
- 117
- 點名
- 0
- 作業系統
- windows7
- 軟體版本
- office2010
- 閱讀權限
- 20
- 性別
- 男
- 來自
- 台北
- 註冊時間
- 2013-8-3
- 最後登錄
- 2024-4-30
|
3#
發表於 2015-6-24 19:24
| 只看該作者
回復 2# GBKEE
了解ㄌ ~~感謝!!
那再請問~~寫在工作表1~~可寫成
Application.OnTime Now + TimeValue("00:00:01"), "sheet1.委買委賣1分鐘"
這樣嗎? |
|
|
|
|
|
|
|
- 帖子
- 81
- 主題
- 31
- 精華
- 0
- 積分
- 117
- 點名
- 0
- 作業系統
- windows7
- 軟體版本
- office2010
- 閱讀權限
- 20
- 性別
- 男
- 來自
- 台北
- 註冊時間
- 2013-8-3
- 最後登錄
- 2024-4-30
|
5#
發表於 2015-6-26 12:17
| 只看該作者
回復 4# GBKEE
順利調整好~~感謝版主熱心協助! |
|
|
|
|
|
|
|
