[發問] [已解決]利用EXCEL製作K線時遇到時間延遲問題

本帖最後由 jiuhtsair 於 2012-1-31 20:00 編輯

各位大大好：

台指1分K.zip (36.24 KB)

現貨大盤5分K.zip (30.67 KB)
   小弟為了製作K線已經困擾一段時間了！
   也曾努力爬文，論壇裡多位高手都曾對相關議題有許多寶貴方法..
   弟也利用網路上線有的資源修改後得到K線圖，但遇到一個問題...
   就是剛開始接收資料時OK...但慢慢的時間會延遲..
   原本應該在00秒開始新的K 線資料..卻慢慢變成01秒..02秒...03秒..
   弟猜想應該是地的計時方式是利用本身電腦而非DDE的系統時間的緣故..
   可是DDE的傳輸選項中也沒有系統時間可以校對...
   是否可以請大大們幫小弟解惑？
   感恩！
   並祝大家新年快樂、萬事如意、闔府平安！

樓主熱帖

50 字節以內
不支持自定義 Discuz! 代碼

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兔年全勤獎章

2^#

發表於 2012-1-29 10:52 | 只看該作者

回復 1# jiuhtsair
Private Sub ExeSelf()
On Error Resume Next
i = i + 1
If i = 58 Then '*至少要執行 ExeSelf 58次
      Sheets(2).Cells(j, 1) = Time
      Sheets(2).Cells(j, 2) = O
      Sheets(2).Cells(j, 3) = H
      Sheets(2).Cells(j, 4) = L
      Sheets(2).Cells(j, 5) = C
      Sheets(2).Cells(j, 6) = V
      j = j + 1
      i = 0: V = 0
   '可是這裡 i 歸零了 : 那前面的 If i = 58 Then 又要等執行 ExeSelf 58次
      O = Sheets(1).Cells(2, 2)
      V = V + Sheets(1).Cells(2, 4)
      H = O: L = O: C = O
Else
      '以下判斷迴圈讓投資權重與投資標的物名稱設定，僅執行一次
      C = Sheets(1).Cells(2, 2)
      If C > H Then H = C
      If C < L Then L = C
      V = V + Sheets(1).Cells(2, 4)
'       Sheets(2).Cells(i, 1) = Sheets(1).Cells(2, 2)
End If
      Application.OnTime Now + TimeValue("00:00:01"), "ThisWorkBook.ExeSelf"
End Sub

TOP

jiuhtsair

中學生 Rank: 2

帖子: 86
主題: 30
精華: 0
積分: 140
點名: 0
作業系統: windows
軟體版本: XP
閱讀權限: 20
性別: 男
註冊時間: 2011-2-19
最後登錄: 2020-8-26

3^#

發表於 2012-1-29 12:36 | 只看該作者

回復 2# GBKEE
謝謝GBKEE大大的指導...
就弟的了解...
程式一開始因為i不等於58
所以程式執行else以後的部份
也就是執行L、H的判定
當i=58時
才將數值寫入O、H、L、V、C等欄位
最後再將i歸0...形成迴圈的形態...
這是弟的不成熟看法..
尚請GBKEE大大指導..
謝謝！

50 字節以內
不支持自定義 Discuz! 代碼

TOP

GBKEE