帖子: 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聯結　想請教一下該怎麼寫麻煩您了感謝您!!

GBKEE

超級版主 Rank: 8 Rank: 8

帖子: 5923
主題: 13
精華: 1
積分: 5986
點名: 0
作業系統: win10
軟體版本: Office 2010
閱讀權限: 150
性別: 男
來自: 台灣基隆
註冊時間: 2010-5-1
最後登錄: 2022-1-23

2017 雞年全勤獎章 2016猴年全勤獎章 2015羊年全勤獎章 2014馬年全勤獎章 2013蛇年全勤獎章 2012龍年全勤獎章論壇貢獻勳章熱烈參與勳章 2011兔年全勤獎章

25^#

發表於 2013-7-14 07:42 | 只看該作者

回復 24# hhh111

參考這裡

感恩的心......(在麻辣家族討論區.用心學習會有進步的)
但資源無限,後援有限, 一天1元的贊助,人人有能力.

TOP

hhh111

小學生 Rank: 1

帖子: 6
主題: 1
精華: 0
積分: 11
點名: 0
作業系統: XP
軟體版本: office 2003
閱讀權限: 10
註冊時間: 2013-7-1
最後登錄: 2017-5-18

24^#

發表於 2013-7-14 04:33 | 只看該作者

回復 3# GBKEE

請問GB大，如果我要的是每兩分鐘或是五分鐘的話又該如何修改呀
能否告知一下，謝謝

TOP

hhh111

小學生 Rank: 1

帖子: 6
主題: 1
精華: 0
積分: 11
點名: 0
作業系統: XP
軟體版本: office 2003
閱讀權限: 10
註冊時間: 2013-7-1
最後登錄: 2017-5-18

23^#

發表於 2013-7-13 14:33 | 只看該作者

多謝GBKEE的說明，其實後來將GB大分享的貼入VB中，並且設定好B5&6欄位就可以用了
是小弟功力不足還請見諒

TOP

GBKEE

超級版主 Rank: 8 Rank: 8

帖子: 5923
主題: 13
精華: 1
積分: 5986
點名: 0
作業系統: win10
軟體版本: Office 2010
閱讀權限: 150
性別: 男
來自: 台灣基隆
註冊時間: 2010-5-1
最後登錄: 2022-1-23

2017 雞年全勤獎章 2016猴年全勤獎章 2015羊年全勤獎章 2014馬年全勤獎章 2013蛇年全勤獎章 2012龍年全勤獎章論壇貢獻勳章熱烈參與勳章 2011兔年全勤獎章

22^#

發表於 2013-7-2 17:44 | 只看該作者

回復 21# hhh111

感恩的心......(在麻辣家族討論區.用心學習會有進步的)
但資源無限,後援有限, 一天1元的贊助,人人有能力.

TOP

hhh111

小學生 Rank: 1

帖子: 6
主題: 1
精華: 0
積分: 11
點名: 0
作業系統: XP
軟體版本: office 2003
閱讀權限: 10
註冊時間: 2013-7-1
最後登錄: 2017-5-18

21^#

發表於 2013-7-2 17:03 | 只看該作者

回復 3# GBKEE

抱歉，想要請教一個很白痴的問題，因為最近正在研究要如何讓EXCEL固定抓取DDE的資料
但是偏偏對VBA不熟,有試的將各位的內容貼入VB編輯器中執行，可是都無法啟動
可否稍微詳細點告知該如何測試

TOP

c_c_lai

博士班 Rank: 6 Rank: 6

帖子: 2035
主題: 24
精華: 0
積分: 2031
點名: 0
作業系統: Win7
軟體版本: Office2010
閱讀權限: 100
性別: 男
註冊時間: 2012-3-22
最後登錄: 2024-2-1

20^#

發表於 2013-6-27 06:54 | 只看該作者

本帖最後由 c_c_lai 於 2013-6-27 06:55 編輯

回復 GBKEE
回復 c_c_lai

感謝強者版大們不吝的指導原來DDE是這樣時間才無法接續
那想請教版大們 ...
vzcen 發表於 2013-6-26 00:34

1. 試試看便知曉！ (因你是跨日的，所以條件須為 (條件1 And 條件2))

Sub Test()
If Weekday(Date, vbMonday) > 6 Or (#9:00:00 PM# < #9:00:00 PM# And #9:00:00 PM# > #2:00:00 AM#) Then Exit Sub
' If Weekday(Date, vbMonday) > 6 Or (#8:00:00 PM# < #9:00:00 PM# And #8:00:00 PM# > #2:00:00 AM#) Then Exit Sub
' If Weekday(Date, vbMonday) > 6 Or (#12:00:00 AM# < #9:00:00 PM# And #12:00:00 AM# > #2:00:00 AM#) Then Exit Sub
' If Weekday(Date, vbMonday) > 6 Or (#12:10:00 AM# < #9:00:00 PM# And #12:10:00 AM# > #2:00:00 AM#) Then Exit Sub
MsgBox "It's OK!"
End Sub

複製代碼

2. 31行的修改是 OK 可行的!

TOP

vzcen

小學生 Rank: 1

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

19^#

發表於 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

GBKEE

超級版主 Rank: 8 Rank: 8

帖子: 5923
主題: 13
精華: 1
積分: 5986
點名: 0
作業系統: win10
軟體版本: Office 2010
閱讀權限: 150
性別: 男
來自: 台灣基隆
註冊時間: 2010-5-1
最後登錄: 2022-1-23

2017 雞年全勤獎章 2016猴年全勤獎章 2015羊年全勤獎章 2014馬年全勤獎章 2013蛇年全勤獎章 2012龍年全勤獎章論壇貢獻勳章熱烈參與勳章 2011兔年全勤獎章

18^#

發表於 2013-6-25 15:34 | 只看該作者

回復 17# handsometrowa
沒錯

感恩的心......(在麻辣家族討論區.用心學習會有進步的)
但資源無限,後援有限, 一天1元的贊助,人人有能力.

TOP

handsometrowa

中學生 Rank: 2

帖子: 82
主題: 7
精華: 0
積分: 112
點名: 0
作業系統: WIN7
軟體版本: WIN7
閱讀權限: 20
性別: 男
註冊時間: 2013-1-3
最後登錄: 2020-9-21

17^#

發表於 2013-6-25 09:33 | 只看該作者

回復 13# GBKEE

請問版主
With Cells(Rows.Count, "C").End(xlUp)
      If .Row = 7 Then
         Set Rng = .Offset(1)  請問這裡的用法還原:  Cells(Rows.Count, "C").End(xlUp).Offset(1) 這個意思嗎??
      Else
         Set Rng = .Cells    請問這裡的用法還原:  Cells(Rows.Count, "C").End(xlUp).Cells 這個意思嗎?? 這會不斷的增加Range 的大小是嗎?
      End If
End With

謝謝您的指導^^

TOP

DDE 擷取分鐘最高最低

DDE 擷取分鐘最高最低

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

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