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

1^# 跳轉到 » 正序看帖

打印

字體大小: tT

發表於 2012-1-28 19:10 | 只看該作者

[發問] [已解決]利用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! 代碼

yue790513

小學生 Rank: 1

帖子: 4
主題: 0
精華: 0
積分: 5
點名: 0
作業系統: WIN10
軟體版本: office2016
閱讀權限: 10
性別: 男
註冊時間: 2018-12-3
最後登錄: 2019-8-24

9^#

發表於 2018-12-8 02:24 | 只看該作者

t=Time

Sub( )

if minute(Time)=mintute(t) then
..
t=Dateadd("n",1,Time)
...
Else
..

TOP

c_c_lai

博士班 Rank: 6 Rank: 6

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

8^#

發表於 2012-4-29 08:50 | 只看該作者

回復 6# jiuhtsair
請教一下，你既然是以一分鐘才寫入一筆資料，為何不用 60 而是 58？
我順手將股票圖玩了一下下，O、H、L、C 的處裡還蠻切實際的，因盤中券商之H、L 都不太......

台指1分K.rar (20.31 KB)

TOP

f3202

中學生 Rank: 2

帖子: 75
主題: 1
精華: 0
積分: 371
點名: 1
作業系統: win7
軟體版本: office 2007
閱讀權限: 20
註冊時間: 2010-5-4
最後登錄: 2024-11-23

7^#

發表於 2012-4-28 22:53 | 只看該作者

請問版大
j = 2
開始執行怎麼
j=1

TOP

jiuhtsair

中學生 Rank: 2

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

6^#

發表於 2012-1-31 17:38 | 只看該作者

回復 4# GBKEE
感謝GBKEE大大！
一試OK！
一解數月來的困擾！
感謝！
您....太...太厲害了！

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

TOP

jiuhtsair

中學生 Rank: 2

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

5^#

發表於 2012-1-30 20:45 | 只看該作者

回復 2# GBKEE

謝謝大大指導..
今天開始上班...所以..
這兩天抽個時間跑跑看;再向大大報告結果！
感恩！

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

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

4^#

發表於 2012-1-29 19:15 | 只看該作者

回復 3# jiuhtsair
你明天試試便知了

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

超級版主 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