123
返回列表 上一主題 發帖

關於固定時間紀錄的修改

藍天麗池

帖子
365 
主題
40 
精華
0 
積分
406 
點名
0  
作業系統
Win 7 
軟體版本
OFFICE 2003 
閱讀權限
20 
註冊時間
2012-12-11 
最後登錄
2024-8-24 
1# 跳轉到 » 正序看帖
打印
tT
發表於 2016-9-13 17:08 | 只看該作者

關於固定時間紀錄的修改

固定時間.rar (168.33 KB)

請教版上大大，附件是小弟修改的一個VBA，主要功能為記錄價格，裡面可以設定幾點開始和結束，也可設定間隔幾秒紀錄價格，但時間會跑掉

如附件所示，小弟設定9:01分開始，之後每5秒紀錄一次價格，所以在06、11、16、21、26、31、36、41、46、51、56、01...以此類推的時間會記錄價格，但此程式的時間到後面卻會跑掉，於附件A53的地方時間開始跑掉了

請教版上大大要如何將程式修改成固定在06、11、16、21、26、31、36、41、46、51、56、01...以此類推的時間紀錄，而不要跑掉呢??
收藏 分享

hcm19522

帖子
1796 
主題
184 
精華
0 
積分
1985 
點名
0  
作業系統
WIN 
軟體版本
2007 
閱讀權限
100 
性別
男 
註冊時間
2015-9-11 
最後登錄
2026-9-24 

熱烈參與勳章
24#
發表於 2016-9-15 12:43 | 只看該作者
本帖最後由 hcm19522 於 2016-9-15 12:45 編輯

A3=09:00:01
A4=(ROUND(A3*86400,)+5)/86400
下拉      函數參考

TOP

准提部林

帖子
2848 
主題
10 
精華
0 
積分
2903 
點名
0  
作業系統
〔略〕 
軟體版本
〔略〕 
閱讀權限
100 
性別
男 
來自
〔略〕 
註冊時間
2013-5-13 
最後登錄
2026-7-25 
23#
發表於 2016-9-15 12:08 | 只看該作者
不知你是否有看過這個帖子：
http://forum.twbts.com/viewthread.php?tid=15062

若能搞懂範例檔中的程式意義及流程，其它的大概沒什麼問題？
不要覺得程式太難，那只是我初學VBA時，以僅知的語法寫的，差別在用了很多時間去摸擬及測試，
以你目前一知半解情況下，有時是問不出所以然的，畢竟別人給的是方法，最後要自己去套用的！

TOP

藍天麗池

帖子
365 
主題
40 
精華
0 
積分
406 
點名
0  
作業系統
Win 7 
軟體版本
OFFICE 2003 
閱讀權限
20 
註冊時間
2012-12-11 
最後登錄
2024-8-24 
22#
發表於 2016-9-15 11:15 | 只看該作者
回復 20# c_c_lai
C大，我了解了，我在想想看

TOP

c_c_lai

帖子
2035 
主題
24 
精華
0 
積分
2031 
點名
0  
作業系統
Win7 
軟體版本
Office2010 
閱讀權限
100 
性別
男 
註冊時間
2012-3-22 
最後登錄
2024-2-1 
21#
發表於 2016-9-15 08:19 | 只看該作者
回復 19# 藍天麗池

DDE時間比對.rar (39.55 KB)
戲法自個兒去變！

TOP

c_c_lai

帖子
2035 
主題
24 
精華
0 
積分
2031 
點名
0  
作業系統
Win7 
軟體版本
Office2010 
閱讀權限
100 
性別
男 
註冊時間
2012-3-22 
最後登錄
2024-2-1 
20#
發表於 2016-9-14 22:07 | 只看該作者
回復 19# 藍天麗池
戲法人人便！

TOP

藍天麗池

帖子
365 
主題
40 
精華
0 
積分
406 
點名
0  
作業系統
Win 7 
軟體版本
OFFICE 2003 
閱讀權限
20 
註冊時間
2012-12-11 
最後登錄
2024-8-24 
19#
發表於 2016-9-14 21:07 | 只看該作者
回復 18# c_c_lai

C大，你是用比對的方法寫嗎??我隔天都會將資料全部砍掉(A2以下都會刪掉)，讓他寫新的，所以好像無法用比對的方式

TOP

c_c_lai

帖子
2035 
主題
24 
精華
0 
積分
2031 
點名
0  
作業系統
Win7 
軟體版本
Office2010 
閱讀權限
100 
性別
男 
註冊時間
2012-3-22 
最後登錄
2024-2-1 
18#
發表於 2016-9-14 19:12 | 只看該作者
回復 17# 藍天麗池

TOP

藍天麗池

帖子
365 
主題
40 
精華
0 
積分
406 
點名
0  
作業系統
Win 7 
軟體版本
OFFICE 2003 
閱讀權限
20 
註冊時間
2012-12-11 
最後登錄
2024-8-24 
17#
發表於 2016-9-14 18:54 | 只看該作者
回復 16# c_c_lai


    但是C大，我還是不太了解此程式是怎麼將時間設定在固定秒數紀錄的，可以請C大講解一下嗎??

TOP

c_c_lai

帖子
2035 
主題
24 
精華
0 
積分
2031 
點名
0  
作業系統
Win7 
軟體版本
Office2010 
閱讀權限
100 
性別
男 
註冊時間
2012-3-22 
最後登錄
2024-2-1 
16#
發表於 2016-9-14 18:51 | 只看該作者
回復 13# 藍天麗池
請留意 #10 的圖示，左方是執行的對等關係；
又方式執行之程式 (mySchedule())，請留意它的運最時間
If TimeValue(Now) <= TimeValue("08:45:00") Or TimeValue(Now) > TimeValue("16:30:00") Then Exit Sub
j我是故意將終止時段望後延至 "16:30:00"。

TOP

        靜思自在 : 靜坐常恩己過、閒談莫論人非。
123
返回列表 上一主題