12
返回列表 上一主題 發帖

[發問] 用時間控制的程式，時間要跨過隔日的 VBA要如何寫?

准提部林

帖子
2798 
主題
10 
精華
0 
積分
2854 
點名
0  
作業系統
〔略〕 
軟體版本
〔略〕 
閱讀權限
100 
性別
男 
來自
〔略〕 
註冊時間
2013-5-13 
最後登錄
2024-4-28 
8# 跳轉到 »
發表於 2018-4-28 21:02 | 只看該作者
回復 7# ABK

Sub 停止執行()
uMode = 0
Call 共用參照
Sht1.[O8] = "STOP"
On Error Resume Next
Application.OnTime Next_Time, "自動記錄", Schedule:=False
On Error GoTo 0
End Sub

TOP

ABK

帖子
115 
主題
24 
精華
0 
積分
178 
點名
1  
作業系統
WIN10 
軟體版本
Office2016 
閱讀權限
20 
性別
男 
註冊時間
2011-1-12 
最後登錄
2024-4-26 
7#
發表於 2018-4-28 20:34 | 只看該作者
本帖最後由 ABK 於 2018-4-28 20:41 編輯

回復 6# 准提部林


  謝謝准堤大 !       了解了!
有辦法避免 在已經停止紀錄了， 又去按一次"停止鍵"時 不會跑出錯誤訊息嗎?
但是再去按"執行紀錄" 和 "清除紀錄資料"鍵 還是可以繼續正常運作 !

已經停止紀錄後 再按一次停止鍵的錯誤提示.jpg (57.36 KB)

已經停止紀錄後 再按一次停止鍵的錯誤提示.jpg

TOP

准提部林

帖子
2798 
主題
10 
精華
0 
積分
2854 
點名
0  
作業系統
〔略〕 
軟體版本
〔略〕 
閱讀權限
100 
性別
男 
來自
〔略〕 
註冊時間
2013-5-13 
最後登錄
2024-4-28 
6#
發表於 2018-4-27 19:18 | 只看該作者
本帖最後由 准提部林 於 2018-4-27 19:20 編輯

回復 5# ABK


那是用亂數作為測試用, DDE公式得各人需求自行去寫~~~
主要是解決[日盤][夜盤]的問題!

TOP

ABK

帖子
115 
主題
24 
精華
0 
積分
178 
點名
1  
作業系統
WIN10 
軟體版本
Office2016 
閱讀權限
20 
性別
男 
註冊時間
2011-1-12 
最後登錄
2024-4-26 
5#
發表於 2018-4-27 17:58 | 只看該作者
回復 4# 准提部林


謝謝准堤大 !      只能說驚嘆，版面清爽有力，看起來很舒服!   

可否請教准堤大 資料是如何抓取的， 公式和程式裡都沒有看到任何資料源的呼叫，也不需要開卷商的軟體數值就會進來。

又這些數值看起來怪怪的，例如台指 、摩台和加權的值 ， 還是說 A2:Q5那一區是假資料 用來測試紀錄的程式?

2018-04-27_准堤大.jpg (264.99 KB)

2018-04-27_准堤大.jpg

TOP

准提部林

帖子
2798 
主題
10 
精華
0 
積分
2854 
點名
0  
作業系統
〔略〕 
軟體版本
〔略〕 
閱讀權限
100 
性別
男 
來自
〔略〕 
註冊時間
2013-5-13 
最後登錄
2024-4-28 
4#
發表於 2018-4-27 15:22 | 只看該作者
測看看:
20120531a02(DDE每1分記錄)-1.rar (20.31 KB)

TOP

ABK

帖子
115 
主題
24 
精華
0 
積分
178 
點名
1  
作業系統
WIN10 
軟體版本
Office2016 
閱讀權限
20 
性別
男 
註冊時間
2011-1-12 
最後登錄
2024-4-26 
3#
發表於 2018-4-26 23:05 | 只看該作者
本帖最後由 ABK 於 2018-4-26 23:09 編輯

回復 2# jackyq

我仿製了pcboy大 發問的文篇: "DDE每分鐘記錄的資料排序問題"  [ http://forum.twbts.com/thread-20603-1-1.html ] 裡面的程式碼。

將跨隔日的Code 寫入, 想做成可以跑台指"日盤"和"午後盤"每分鐘的紀錄,
停止時間那邊沒寫好， 按鈕啟動"自動記錄"後 , 沒有跑起來 !   一直卡在收盤時間。

-- A1格那邊可以選擇"日盤"或"夜盤" --

1分鐘紀錄- 測試檔-3.rar (80.11 KB)

TOP

jackyq

帖子
319 
主題
6 
精華
0 
積分
309 
點名
0  
作業系統
xp 
軟體版本
2k 
閱讀權限
20 
性別
男 
註冊時間
2015-6-24 
最後登錄
2024-4-27 
2#
發表於 2018-4-26 17:37 | 只看該作者
If Now >= (Date + 0 + TimeValue("15:00:00")) And _
   Now <= (Date + 1 + TimeValue("05:00:00")) Then
   
   ...............
End If

TOP

        靜思自在 : 待人退一步，愛人寬一寸，就會活得很快樂。
12
返回列表 上一主題