c_c_lai

回復 1# xu123
就以你手上案例來討論的話，你只要將 "00:00:01" (每一秒)
修改為 "00:00:30"  (每三十秒) 便完成了！

c_c_lai

回復 3# xu123
不須等開盤，你只要開啟該Excel 表單，於 8:45 後觀察每隔30秒是否會寫入一筆紀錄，
答案便即知曉。

c_c_lai

回復 6# xu123
請附上檔案由我這方來觀察，因為那本來就可行的，
否則你的 "00:00:01" 亦無法執行。

c_c_lai

回復 6# xu123
附上圖片以及程式碼供你實務參考：
一、 DDE 每分鐘記錄改為30秒自動記錄一次要怎改 [修改]

下載 (53.2 KB)

2012-5-26 09:33

1. Option Explicit
   
2. Dim counter As Single      ' 為加深印象，用它來顯示程式有否在運行處理
   
3. 
   
4. Private Sub Workbook_Open()
   
5.     counter = 0
   
6. 
   
7.     Call timerStart        ' 當開啟本 Excel 檔案，程式則自動執行 timerStart 程式段。
   
8. End Sub
   
9. 
   
10. Sub timerStart()
    
11.     ' 本範例設定時間是從每日八點四十五分開始起算，每隔 30 秒便會自動去執行 ThisWorkbook 程式區域內的 ExeSelf。
    
12.     ' 如果覺得等太久了，也可以去異動時段。例如: "00:00:01"(每隔 1 秒)、"00:00:10"(每隔 10 秒)、"00:00:20"(每隔 20 秒) 等等。
    
13.     If (TimeValue(Now) > TimeValue("08:45:00")) Then Application.OnTime (Now + TimeValue("00:00:30")), "ThisWorkbook.ExeSelf"
    
14. End Sub
    
15. 
    
16. Sub ExeSelf()
    
17.     counter = counter + 1   ' counter 會逐次加一
    
18. 
    
19.     [F8].Value = counter    ' 08:45 後每隔 30 秒，請觀察 F1 欄位數字是否會異動？
    
20.     Call timerStart         ' 程式之所以會反覆執行，就在於本行自動再去回頭呼叫執行 timerStart 程式段一次之故。
    
21. End Sub

複製代碼

二、 多空力道 (O/H/L/C) 實際之程式運作程式碼，請細心端倪。

1. Option Explicit
   
2. 
   
3. Dim timerEnabled As Boolean  '
   
4. Dim counter As Single        ' 示範用計數器
   
5. Dim Ov As Single, Hv As Single, Lv As Single, Cv As Single As Single  ' 開盤價、最高價、最高價、收盤價(成交價) 等設定之變數。
   
6. Dim turnKey As Integer   ' 判斷每一輪迴上列變數初始值之設定。
   
7. Dim nums As Integer      ' 將每隔 "多少時間" 處理時段，移到此處來處理。
   
8. 
   
9. Private Sub Workbook_Open()
   
10.     counter = 0
    
11. 
    
12.     nums = 30            ' 設定每隔 30 秒處理時段，亦可更改成 10 (每隔 10 秒)、20 (每隔 20 秒)等等。
    
13.                          ' 此處不建議使用 1 秒時段來處理，因為還要去求出開盤、最高、最低、成交價。
    
14.     timerEnabled = False
    
15.     Call timerStart      ' 程式一啟始，便去自動執行 timerStart      
    
16. End Sub
    
17. 
    
18. Sub timerStart()
    
19.     turnKey = 0          ' 每一輪迴盤中初始值之設定。
    
20. 
    
21.     If timerEnabled Then
    
22.         Application.OnTime (Now), "ThisWorkbook.ExeSelf"
    
23.     Else
    
24.         ' 系統剛連上 DDE 至資料匯入Excel工作表單，須有一個緩衝時段，這時如果馬上去抓取DDE資料，會有型態不符的錯誤訊息產生，並中斷執行序的作業。
    
25.         Application.OnTime (Now + TimeValue("00:00:05")), "ThisWorkbook.ExeSelf"
    
26.     End If
    
27. End Sub
    
28. 
    
29. Sub ExeSelf()
    
30.     timerEnabled = True
    
31. 
    
32.     If IsError(Sheets("工作表1").Range("E5").Value) Then ' 假設 E5 欄位為多空力道
    
33.         Cv = 0
    
34.     Else
    
35.         Cv = Sheets("工作表1").Range("E5").Value          ' 多空力道成交價
    
36.     End If
    
37.    
    
38.     If (turnKey = 0 Or Ov = 0) Then                     ' 當 turnKey 值為0，表示其為初始值設定。為考量系統剛連上 DDE，
    
39.                                                         ' 有時在第一根數值產生時 Ov = Cv 值可能為 0 (IsError()的狀態)。
    
40.         Ov = Cv                                         ' 多空力道開盤價初始值設定
    
41.         Hv = Cv                                         ' 多空力道最高價初始值設定
    
42.         Lv = Cv                                         ' 多空力道最低價初始值設定
    
43.     End If
    
44.    
    
45.     turnKey = turnKey + 1
    
46.    
    
47.     If (Cv > Hv) Then Hv = Cv                           ' 判斷多空力道最高價
    
48.     If (Cv < Lv) Then Lv = Cv                           ' 判斷多空力道最低價
    
49. 
    
50.     counter = counter + 1
    
51.     [F1].Value = counter    ' 08:45 後每隔 30 秒，請觀察 F1 欄位數字是否會異動？
    
52.    
    
53.     If (turnKey < nums) Then
    
54.         Application.OnTime (Now + TimeValue("00:00:01")), "ThisWorkbook.ExeSelf"
    
55.     Else
    
56.         If (Cv > 0) Then Call Timer
    
57.         Call timerStart
    
58.     End If
    
59. End Sub
    
60. 
    
61. Sub Timer()
    
62.     Dim str As String
    
63.    
    
64.     If (TimeValue(Now) >= TimeValue("08:45:00") And TimeValue(Now) <= TimeValue("13:46:01")) Then    ' 開盤、收盤時段設定
    
65.         ' 盤中處理，將資料匯入寫入工作表單內儲存。
    
66. 
    
67.     End If
    
68. End Sub

複製代碼

請留意此兩支程式的寫法上之差異，我都盡量一一加以說明為何如此，相信對你會有助益。
我們在人生旅程上都是從不知而獲知中成長的，只要有心都可以成功的。

c_c_lai

回復 9# xu123

下載 (49.39 KB)

2012-5-26 11:32

1. Option Explicit
   
2. Dim LastMin As String          ' 更改為間隔時段設定
   
3. 
   
4. Private Sub Workbook_Open()
   
5.     Sheets("策略記錄").Cells(4, 2) = 10     ' 保留你之前的設定，每次一開啟Excel都重新開始
   
6.     LastMin = "00:00:30"          ' 每隔 30 秒的時段設定。如需以一分鐘做處哩，則請修正為 "00:01:00"
   
7.    
   
8.     Call Timer
   
9. End Sub
   
10. 
    
11. Private Sub Workbook_BeforeClose(Cancel As Boolean)
    
12.     On Error Resume Next
    
13.     Application.OnTime Now + TimeValue("00:00:01"), "ThisWorkbook.Timer", , False
    
14. End Sub
    
15. 
    
16. 
    
17. Public Sub Timer()
    
18.     Dim Pos, i, HHMM As Integer, RangeStr As String
    
19.         
    
20.     On Error Resume Next
    
21.     Sheets("策略記錄").Cells(3, 2) = Time '將時間show至策略的b3欄位
    
22.    
    
23.     HHMM = Hour(Time) * 100 + Minute(Time)
    
24.     If (HHMM < 845 Or HHMM > 1345) Then Exit Sub '營業時間才執行
    
25.         
    
26.     With Sheets("策略記錄")
    
27.         .Cells(4, 2) = .Cells(4, 2) + 1 '將變動行號加一行
    
28.         Pos = .Cells(4, 2)
    
29.         .Cells(Pos, 1) = Time
    
30.         .Cells(Pos, 2) = .Cells(2, 2)
    
31.         .Cells(Pos, 3) = .Cells(2, 3)
    
32.         .Cells(Pos, 4) = .Cells(2, 4)
    
33.         .Cells(Pos, 5) = .Cells(2, 5)
    
34.         .Cells(Pos, 6) = .Cells(2, 6)
    
35.         .Cells(Pos, 7) = .Cells(2, 7)
    
36.         .Cells(Pos, 8) = .Cells(2, 8)
    
37.         .Cells(Pos, 9) = .Cells(2, 9)
    
38.         .Cells(Pos, 10) = .Cells(2, 10)
    
39.     End With
    
40.    
    
41.     Application.OnTime Now + TimeValue(LastMin), "ThisWorkbook.Timer"  ' 每 LastMin 執行一次
    
42. End Sub

複製代碼

祝星期假日愉快！
自動記錄每分鐘委買賣均值-範例.rar (12.31 KB)

下載次數: 99

2012-5-26 11:38

c_c_lai

回復 17# mead
附上一個可以隨你需求異動的 "自動記錄每分鐘委買賣均值"，
以後你就沒有煩惱的事了！
自動記錄每分鐘委買賣均值.rar (13.96 KB)

下載次數: 84

2012-6-25 07:55

P.S. 請將 Time() 裡的             .Cells(21, 2).Offset(0).Resize(, 9) = .[B12:J12].Value
更改成                                      .Cells(Pos, 2).Offset(0).Resize(, 9) = .[B2:J2].Value

c_c_lai

回復 19# mead
找到了，已  E-Mail 過去了！

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，並同時連上券商連線軟體，就大功告成了！

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

c_c_lai

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

c_c_lai

謝謝C_C_lai......

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

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

下載次數: 76

2012-9-23 05:59