f3202

回復 5# mead

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

f3202

回復 7# mead
期貨即時量態線.rar (18.49 KB)

下載次數: 9

2012-5-27 08:50

參考一下30秒+K線圖text

f3202

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
    
11. 
    
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
    
22. 
    
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
試看看