返回列表 上一主題 發帖

DDE 擷取分鐘最高最低

vzcen

帖子
9 
主題
1 
精華
0 
積分
10 
點名
0  
作業系統
winndows 
軟體版本
win7 
閱讀權限
10 
註冊時間
2013-6-20 
最後登錄
2013-6-26 
1# 跳轉到 » 倒序看帖
打印
tT
發表於 2013-6-20 16:22 | 顯示全部帖子

DDE 擷取分鐘最高最低

版大您好 想請教您有關DDE取最高以及最低價格的寫法 在EXCEL表格中 B5為DDE的時間輸入 B6為DDE的價格輸入若想讓他每分鐘都能抓出最高與最低價格顯示在D8和E8欄中並依序向下  且B5時間輸入的部分是經由程式計數所顯示出來的不是經由DDE聯結　想請教一下該怎麼寫 麻煩您了 感謝您!!
收藏 分享

vzcen

帖子
9 
主題
1 
精華
0 
積分
10 
點名
0  
作業系統
winndows 
軟體版本
win7 
閱讀權限
10 
註冊時間
2013-6-20 
最後登錄
2013-6-26 
2#
發表於 2013-6-21 21:24 | 顯示全部帖子
非常感謝強者版大們的指導 昨晚爬文爬到半夜兩點多 還是爬不出一個所以然來 我真的太愚昧了... 這兩天我會測試一下 後續再跟版大們報告狀況與請益 感謝!!!!!!

TOP

vzcen

帖子
9 
主題
1 
精華
0 
積分
10 
點名
0  
作業系統
winndows 
軟體版本
win7 
閱讀權限
10 
註冊時間
2013-6-20 
最後登錄
2013-6-26 
3#
發表於 2013-6-21 22:53 | 顯示全部帖子
GBKEE版大您好 我剛改了一下營業的時間測試了一下現在連結的DDE報價 發現一個問題想請板大解惑 就是由於各家系統的報價時間格式不同 例如:假設現在是10:29:03   但DDE 連結到B5的內容會顯示成102903......結果測試後 只要DDE一跳動 就會在CDE欄一直往下紀錄..不是每分鐘紀錄一次最大最小值...所以想請教版大 在B5的時間顯示 該怎麼讓它透過程式顯示時間 統一用的是電腦的系統時間.... 謝謝您了 ~

TOP

vzcen

帖子
9 
主題
1 
精華
0 
積分
10 
點名
0  
作業系統
winndows 
軟體版本
win7 
閱讀權限
10 
註冊時間
2013-6-20 
最後登錄
2013-6-26 
4#
發表於 2013-6-22 00:12 | 顯示全部帖子
還有一個小問題 不好意思 要再麻煩您一下 就是說 當下一分鐘若沒有出現大於或小於上一分鐘的最大值最小值 那麼好像就不會繼續往下跳動 舉例來說 C8儲存格10:01.. D8儲存格最大值100... E8儲純格最小值50 ... 若B6儲存格的價格沒有跳超過100以上,50以下   那麼好像就只會停留在D8 E8 之中 直到B6大於100或小於50  才會更新數據....懇請大大解惑 如何能每一分鐘由D欄及E欄依序的往下顯示取得每分鐘的最大值跟最小值...謝謝您了~~

TOP

vzcen

帖子
9 
主題
1 
精華
0 
積分
10 
點名
0  
作業系統
winndows 
軟體版本
win7 
閱讀權限
10 
註冊時間
2013-6-20 
最後登錄
2013-6-26 
5#
發表於 2013-6-22 19:34 | 顯示全部帖子
版大您好 謝謝您的回覆 我會先試著改看看 不過有個小問題想請教版大 由於程式裡面有限定"非營業日" 那現在是周六日的情況 若我要拿掉"非營業日"的程式碼 是不是只要將05行的 If Weekday(Date, vbMonday) > 5 Or Time < #9:00:00 AM# Or Time > #1:30:00 PM# Then Exit Sub  '非營業日 或 非營業時間>>>>>改成  If  Time < #9:00:00 AM# Or Time > #1:30:00 PM# Then Exit Sub  '非營業日 或 非營業時間       改完後我是不是就可以在週六日的時間 用手動的方式 輸入 DDE聯結的儲存格B5跟B6......讓程式跑跑看進行測試    .....懇請大大解惑 麻煩您了 謝謝您~

TOP

vzcen

帖子
9 
主題
1 
精華
0 
積分
10 
點名
0  
作業系統
winndows 
軟體版本
win7 
閱讀權限
10 
註冊時間
2013-6-20 
最後登錄
2013-6-26 
6#
發表於 2013-6-24 10:39 | 顯示全部帖子
版大您好 跟您報告一下 我已將程式上傳依照版大您的指導改了儲存格的時間隔式  測式的結果為時間隔式的部分皆顯示成0:00:00  只要價格跳動 CDE欄就會一直持續往下紀錄  檔案附上的內容裡 都是同一分鐘所顯示出來的   想請教版大這個部分該怎麼辦...麻煩您了~~

test1.rar (8.32 KB)

TOP

vzcen

帖子
9 
主題
1 
精華
0 
積分
10 
點名
0  
作業系統
winndows 
軟體版本
win7 
閱讀權限
10 
註冊時間
2013-6-20 
最後登錄
2013-6-26 
7#
發表於 2013-6-24 16:31 | 顯示全部帖子
感謝C_C_lai版大的回覆 經過測試後時間可以正常的往下累積每分鐘的最大值最小值 真是太感激您了 ...但有個問題還想請教一下版大們 ...由於每家的系統報價格式不同 有的甚至沒有提供時間的DDE連結....所以我想請問有辦法做的到利用程式去跑出時間嗎??  因為若遇到沒有提供時間DDE的連結的系統那麼程式就不能順利執行了  懇請板大們幫忙解答 感謝您們了..........
另外....我知道我這樣問好像很蠢  但..我想....學習了解程式的過程中 我也該學著有關禮貌的回覆方式 因為我常看到板大們的回覆有 11# 6# 針對該文所提出的內容做回覆...所以想問問版大們 我若要回覆時 要按哪一個鈕才是針對該文的回答.....我想這樣回覆好像會更有禮貌  同時也是對辛苦版大們所做的回答內容更尊重......呵呵

TOP

vzcen

帖子
9 
主題
1 
精華
0 
積分
10 
點名
0  
作業系統
winndows 
軟體版本
win7 
閱讀權限
10 
註冊時間
2013-6-20 
最後登錄
2013-6-26 
8#
發表於 2013-6-24 20:43 | 顯示全部帖子
各位版大們好 我下午時開著電腦讓它跑了一下....發現一個奇怪的問題.....就是報價軟體的時間與價格是有跳動的    但是DDE的時間好像有時會停住...測試結果 我附上檔案  檔案裡 時間無法連續的顯示每一分鐘....好比17:44 接下來就掉到17:46   又或者是18:14 接著跳到18:17 ......請問強者版大們這個情況是哪邊出現問題嗎??

Book1.rar (10.06 KB)

TOP

vzcen

帖子
9 
主題
1 
精華
0 
積分
10 
點名
0  
作業系統
winndows 
軟體版本
win7 
閱讀權限
10 
註冊時間
2013-6-20 
最後登錄
2013-6-26 
9#
發表於 2013-6-26 00:34 | 顯示全部帖子
回復 13# GBKEE
回復 16# c_c_lai

感謝強者版大們不吝的指導 原來DDE是這樣時間才無法接續
那想請教版大們 若測識DDE的時間 為周一至周六     9:00PM-隔日的2:00AM
我是不是要將程式05行改成   If Weekday(Date, vbMonday) > 6 Or Time < #9:00:00 PM# Or Time > #2:00:00 AM# Then Exit Sub     '非營業日 或 非營業時間
然後31行的改成 If Weekday(Date, vbMonday) <= 6 Then Range([C8], [E8].End(xlDown)).Clear '營業日
由5改成6是指禮拜一至六的意思嗎?   那時間的部分這樣改是對的嗎?
麻煩各位大大們解惑了  謝謝您們~

TOP

        靜思自在 : 修行要繫緣修心，藉事練心，隨處養心。
返回列表 上一主題