返回列表 上一主題 發帖

請問如何改成K棒顯示?

f3202

帖子
75 
主題
1 
精華
0 
積分
371 
點名
1  
作業系統
win7 
軟體版本
office 2007 
閱讀權限
20 
註冊時間
2010-5-4 
最後登錄
2024-5-22 
1# 跳轉到 »
發表於 2012-5-25 22:46 | 顯示全部帖子
回復 5# mead

參考
    http://forum.twbts.com/thread-5686-1-3.html

TOP

f3202

帖子
75 
主題
1 
精華
0 
積分
371 
點名
1  
作業系統
win7 
軟體版本
office 2007 
閱讀權限
20 
註冊時間
2010-5-4 
最後登錄
2024-5-22 
2#
發表於 2012-5-27 08:54 | 顯示全部帖子
回復 7# mead
期貨即時量態線.rar (18.49 KB) 參考一下30秒+K線圖text

TOP

f3202

帖子
75 
主題
1 
精華
0 
積分
371 
點名
1  
作業系統
win7 
軟體版本
office 2007 
閱讀權限
20 
註冊時間
2010-5-4 
最後登錄
2024-5-22 
3#
發表於 2012-5-27 17:42 | 顯示全部帖子
  1. Sub Timer()
  2. Dim HHMM As Integer
  3. On Error Resume Next
  4. ' Sheets("策略記錄").Select
  5. Sheets(2).Cells(2, 1) = Time '將時間show至策略的b3欄位
  6. HHMM = Hour(Time) * 100 + Minute(Time)
  7.   If (HHMM < 845 Or HHMM > 1345) Then Exit Sub '營業時間才執行
  8.   If Minute(Time) <> LastMin Then '開始後做
  9.     i = i + 1
  10.     If i = 60 Then

  12. Sheets(2).Range("a10000").End(xlUp).Offset(1, 0) = Time
  13. Sheets(2).Range("a10000").End(xlUp).Offset(0, 1) = O
  14. Sheets(2).Range("a10000").End(xlUp).Offset(0, 2) = H
  15. Sheets(2).Range("a10000").End(xlUp).Offset(0, 3) = L
  16. Sheets(2).Range("a10000").End(xlUp).Offset(0, 4) = C
  17.   
  18. Sheets(2).Range("a10000").End(xlUp).Offset(0, 5) = O1
  19. Sheets(2).Range("a10000").End(xlUp).Offset(0, 6) = H1
  20. Sheets(2).Range("a10000").End(xlUp).Offset(0, 7) = L1
  21. Sheets(2).Range("a10000").End(xlUp).Offset(0, 8) = C1

  23. Sheets(2).Range("a10000").End(xlUp).Offset(0, 9) = O2
  24. Sheets(2).Range("a10000").End(xlUp).Offset(0, 10) = H2
  25. Sheets(2).Range("a10000").End(xlUp).Offset(0, 11) = L2
  26. Sheets(2).Range("a10000").End(xlUp).Offset(0, 12) = C2
  27.      i = 0
  28.       O = Sheets(2).Cells(2, 2)
  29.       H = Sheets(2).Cells(2, 2)
  30.       L = Sheets(2).Cells(2, 2)
  31.       C = Sheets(2).Cells(2, 2)
  32.         
  33.      O1 = Sheets(2).Cells(2, 3)
  34.      H1 = Sheets(2).Cells(2, 3)
  35.      L1 = Sheets(2).Cells(2, 3)
  36.      C1 = Sheets(2).Cells(2, 3)
  37.      
  38.      O2 = Sheets(2).Cells(2, 4)
  39.      H2 = Sheets(2).Cells(2, 4)
  40.      L2 = Sheets(2).Cells(2, 4)
  41.      C2 = Sheets(2).Cells(2, 4)
  42. Else
  43.      C = Sheets(2).Cells(2, 2)
  44.      If H = "" Then H = Sheets(2).Cells(2, 2)
  45.      If C >= H Then H = C
  46.      If C < L Then L = C
  47.      If O = 0 Then O = Sheets(2).Cells(2, 2) Else O = O
  48.      If L = 0 Then L = Sheets(2).Cells(2, 2) Else L = L
  49.    
  50.      C1 = Sheets(2).Cells(2, 3)
  51.      If H1 = "" Then H1 = Sheets(2).Cells(2, 3)
  52.      If C1 >= H1 Then H1 = C1
  53.      If C1 < L1 Then L1 = C1
  54.      If O1 = 0 Then O1 = Sheets(2).Cells(2, 3) Else O1 = O1
  55.      If L1 = 0 Then L1 = Sheets(2).Cells(2, 3) Else L1 = L1
  56.    
  57.      C2 = Sheets(2).Cells(2, 4)
  58.      If H2 = "" Then H2 = Sheets(2).Cells(2, 4)
  59.      If C2 >= H2 Then H2 = C2
  60.      If C2 < L2 Then L2 = C2
  61.      If O2 = 0 Then O2 = Sheets(2).Cells(2, 4) Else O1 = O1
  62.      If L2 = 0 Then L2 = Sheets(2).Cells(2, 4) Else L2 = L2
  63.   End If
  64.         LastMin = Minute(Time)
  65.   End If
  66. Application.OnTime Now + TimeValue("00:00:01"), "Timer" '每秒顯示
  67. End Sub
複製代碼
回復 14# mead
試看看

TOP

        靜思自在 : 【時間無法遮擋】怕時間消逝，花了許多心血，想盡各式方法要遮擋時間，結果是：浪費了更多時間，且一無所成！
返回列表 上一主題