帖子: 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

小學生 Rank: 1

帖子: 9
主題: 1
精華: 0
積分: 10
點名: 0
作業系統: winndows
軟體版本: win7
閱讀權限: 10
註冊時間: 2013-6-20
最後登錄: 2013-6-26

2^#

發表於 2013-6-21 21:24 | 顯示全部帖子

非常感謝強者版大們的指導昨晚爬文爬到半夜兩點多還是爬不出一個所以然來我真的太愚昧了... 這兩天我會測試一下後續再跟版大們報告狀況與請益感謝!!!!!!

TOP

vzcen

小學生 Rank: 1

帖子: 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

小學生 Rank: 1

帖子: 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

小學生 Rank: 1

帖子: 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

小學生 Rank: 1

帖子: 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

小學生 Rank: 1

帖子: 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

小學生 Rank: 1

帖子: 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

小學生 Rank: 1

帖子: 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

DDE 擷取分鐘最高最低

DDE 擷取分鐘最高最低

[收藏此主題] [關注此主題的新回復]

[通過 QQ、MSN 分享給朋友]