- 帖子
- 6
- 主題
- 1
- 精華
- 0
- 積分
- 8
- 點名
- 0
- 作業系統
- WINXP/WIN7
- 軟體版本
- OFFICE XP/2010
- 閱讀權限
- 10
- 性別
- 男
- 註冊時間
- 2013-12-9
- 最後登錄
- 2014-7-1
|
[發問] 請教要記錄1分K的開高低收,要如何更改?
本帖最後由 啊尼 於 2014-5-25 02:44 編輯
這是小弟更改的,但有紀錄的數值除了開盤點是可能對的,其他都有問題
If Second(Time) = 0 And Minute(Time) Mod 1 = 0 Then
'填 開高低收為即時行情
If Range("C8") <> "" Or Range("C8").Value < Range("C5").Value Then
Range("C8").Value = Range("C5").Value
End If
'填最高價
If Range("D8").Value = "" Or Range("C8").Value > Range("D8").Value Then
Range("D8").Value = Range("C5").Value
End If
'填最低價
If Range("E8").Value = "" Or Range("C8").Value < Range("D8").Value Then
Range("E8").Value = Range("C5").Value
End If
'填收盤價,就是即時行情
Range("F8").Value = Range("C5").Value
End If
用的是E01的DDE,目前以道瓊測試!!
 TEST 1分K.rar (69.51 KB)
|
|
發表於 2014-5-25 02:42
| 
