DDE 擷取分鐘最高最低

vzcen

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

GBKEE

回復 24# hhh111

    參考這裡

hhh111

回復 3# GBKEE


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

hhh111

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

GBKEE

回復 21# hhh111

下載 (42.21 KB)

2013-7-2 17:43

hhh111

回復 3# GBKEE


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

c_c_lai

回復  GBKEE
回復  c_c_lai

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

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

1. Sub Test()
   
2.     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
   
3.     '  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
   
4.    '  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
   
5.     '   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
   
6.    MsgBox "It's OK!"
   
7. End Sub

複製代碼

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

vzcen

回復 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是指禮拜一至六的意思嗎?   那時間的部分這樣改是對的嗎?
麻煩各位大大們解惑了  謝謝您們~

GBKEE

回復 17# handsometrowa
沒錯

handsometrowa

回復 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

謝謝您的指導^^