c_c_lai

回復 21# usana642
1. 請將下列程式碼複製到 ThisWorkbook 模組內，並予儲存。

1. Option Explicit
   
2. Dim timerEnabled As Boolean    ' 判定開啟本工作表單的時段是否為開盤前啟動。
   
3. Dim Pos As Integer             ' 將每隔 "多少時間" 處理時段，移到此處來處理。
   
4. 
   
5. Private Sub Workbook_Open()
   
6.     Pos = Sheets("策略記錄").Range("B" & Rows.Count).End(xlUp).Row
   
7.     If (Pos < 11) Then Pos = 10
   
8.     Sheets("策略記錄").Cells(4, 2) = Pos
   
9. 
   
10.     If (Sheets("策略記錄").Range("B6").Value = "") Then Sheets("策略記錄").Range("B6").Value = "08:45:00"
    
11.     If (Sheets("策略記錄").Range("B7").Value = "") Then Sheets("策略記錄").Range("B7").Value = "13:45:00"
    
12.     If (Sheets("策略記錄").Range("B8").Value = "") Then Sheets("策略記錄").Range("B8").Value = "00:00:30"
    
13.    
    
14.     timerEnabled = False
    
15. 
    
16.     Call timerStart      ' 程式一啟始，便去自動執行 timerStart
    
17. End Sub
    
18. 
    
19. Private Sub Workbook_BeforeClose(Cancel As Boolean)
    
20.     On Error Resume Next
    
21.     Application.OnTime Now + TimeValue("00:00:01"), "ThisWorkbook.Timer", , False
    
22.    
    
23.     Me.Save
    
24. End Sub
    
25. 
    
26. Public Sub Timer()
    
27.     On Error Resume Next
    
28.     If (TimeValue(Now) > Sheets("策略記錄").Range("B7").Value) Then Exit Sub
    
29.    
    
30.     If (TimeValue(Now) >= Sheets("策略記錄").Range("B6").Value) Then         ' 開盤、收盤時段設定
    
31.         ' 盤中處理，將資料匯入寫入工作表單內儲存。
    
32. 
    
33.         With Sheets("策略記錄")
    
34.             .Cells(3, 2) = Time             ' 將時間 Show 至策略的 B3 欄位
    
35. 
    
36.             Pos = Pos + 1                   ' 將變動行號加一行
    
37.             .Cells(4, 2) = Pos
    
38. 
    
39.             .Cells(Pos, 1) = Time
    
40.             .Cells(Pos, 2).Offset(0).Resize(, 9) = .[B2:J2].Value
    
41.         End With
    
42.     End If
    
43.         
    
44.     Call timerStart
    
45. End Sub
    
46. 
    
47. Sub timerStart()
    
48.     If timerEnabled Then
    
49.         ' 第二次(含)以後均以設定之 "間隔時段" 來處理執行序的作業。
    
50.         Application.OnTime (Now + Sheets("策略記錄").Range("B8").Value), "ThisWorkbook.Timer"
    
51.     Else
    
52.         timerEnabled = True
    
53.         
    
54.         ' 將第一次啟動時間更改為設定 "開盤時間"前，如果開啟 Excel 時，已經過了設定 "開盤時間"，則一進入系統即直接去執行紀錄作業。
    
55.         If (TimeValue(Now) <= Sheets("策略記錄").Range("B6").Value) Then
    
56.             Application.OnTime (Sheets("策略記錄").Range("B6").Value), "ThisWorkbook.Timer"
    
57.         Else
    
58.             ' 系統剛連上 DDE 至資料匯入Excel工作表單，須有一個緩衝時段，
    
59.             ' 這時如果馬上去抓取DDE資料，會有型態不符的錯誤訊息產生，並中斷執行序的作業。
    
60.             Application.OnTime (Now + TimeValue("00:00:05")), "ThisWorkbook.Timer"
    
61.         End If
    
62.     End If
    
63. End Sub

複製代碼

2. 工作表單內容如圖，請參考它與程式碼間的關係及運作。

下載 (92.58 KB)

2012-6-26 06:45

3. 以上完成後，先將本專案儲存並離開。
4. 接下來先打開券商軟體
    (譬如：你製作的工作表單是跟哪一家券商連線的，如 EasyWin、eLeader、或其他券商連線軟體)，
    然後啟動你製作的 "自動記錄每分鐘委買賣均值"  Excel，並同時連上券商連線軟體，就大功告成了！

希望它能助益於你，並能幫助你更上一層樓。

usana642

回復 23# c_c_lai


    收到,謝謝您熱心的分享,祝您財源滾滾...

steveyeh168

請教c_c_lai,可以傳給我此檔嗎? thanks  a lot!

c_c_lai

回復 25# steveyeh168
沒 E-Mail Address 如何寄給你？

steveyeh168

謝謝C_C_lai......
**************
再次感謝~*_*

這是公開的論壇,個人的Mail,請在個人資料裡顯示

c_c_lai

謝謝C_C_lai......

再次感謝~*_*
steveyeh168 發表於 2012-9-23 02:35

自動記錄每分鐘委買賣均值.rar (13.96 KB)

下載次數: 76

2012-9-23 05:59

steveyeh168

我是小學生,收不到,可以麻煩寄到email 信箱嗎?
再次感謝......

c_c_lai

我是小學生,收不到,可以麻煩寄到email 信箱嗎?
再次感謝......
steveyeh168 發表於 2012-9-25 01:39

已寄到你 email 信箱數日了，難道沒收信嗎?

steveyeh168

Dear C_C lai:我每天都有收信,而且我怕yahoo會歸為垃圾信,還到垃圾信件區去看
                       都沒有,可以麻煩再寄一次嗎? 甘恩~

c_c_lai

Dear C_C lai:我每天都有收信,而且我怕yahoo會歸為垃圾信,還到垃圾信件區去看
                       都沒 ...
steveyeh168 發表於 2012-9-26 16:55

自動記錄每分鐘委買賣均值.rar (上次 E-Mail 時間：2012/9/23 (週日) 6:05 AM)
你回覆時沒點按 "回復鍵" 我是收不到的，
幸虧我無意看到了你的發文。
再收收看！