c_c_lai

回復 18# 藍天麗池
目前我的電腦環境裡無安裝卷商軟體，所以無從測試。
我再整理一個適合你的程式吧！
其實你也可以向 GBKEE、准提部林 等版大，以及站上
許多前輩請益的。他們亦均是我的指導老師。

c_c_lai

回復 20# 藍天麗池
再試一次
資料暫存A.rar (70.54 KB)

下載次數: 5

2016-7-20 11:48

c_c_lai

回復 20# 藍天麗池

1. Private Sub Workbook_Open()
   
2.     Dim rng As Variant
   
3.    
   
4.     With Sheets(1)
   
5.         For Each rng In Range(.[D2], .[D2].End(xlDown))
   
6.             rng.Offset(, 26) = IIf(IsNumeric(rng), rng, 0)
   
7.             rng.Offset(, 1) = IIf(IsNumeric(rng.Offset(, -1)), rng.Offset(, -1), 0)
   
8.         Next
   
9. 
   
10.         If Time < TimeValue("08:45") Then                   '  早於開盤時間
    
11.             Application.OnTime TimeValue("08:45"), "ThisWorkbook.MyWay"  '  設定於08:45 執行 MyWay 程序
    
12.         ElseIf Time >= TimeValue("08:45") And Time <= TimeValue("13:30") Then '  於交易時間內
    
13.             MyWay                                           '  執行 MyWay 程序
    
14.         End If
    
15.     End With
    
16. End Sub
    
17. 
    
18. Sub MyWay()
    
19.     With Sheets(1)
    
20.         For Each rng In Range(.[D2], .[D2].End(xlDown))
    
21.             If IsNumeric(rng) Then
    
22.                 If rng.Offset(, 26).Value <> rng.Value Then
    
23.                     rng.Offset(, 26) = rng
    
24.                     rng.Offset(, 2) = rng.Offset(, 1)
    
25.                     rng.Offset(, 1) = IIf(IsNumeric(rng.Offset(, -1)), rng.Offset(, -1), 0)
    
26.                 End If
    
27.             End If
    
28.         Next
    
29.     End With
    
30.    
    
31.     Application.OnTime Now + TimeValue("00:00:10"), "ThisWorkbook.MyWay"  '  設定 10 秒後 執行 MyWay 程序
    
32. End Sub
    
33. 
    
34. Sub addN()         '  手動測試用
    
35.     Dim rng As Range
    
36.    
    
37.     With Sheets(1)
    
38.         For Each rng In Range(.[AD2], .[AD2].End(xlDown))
    
39.             rng = rng + 1
    
40.         Next
    
41.     End With
    
42. End Sub

複製代碼

藍天麗池

回復 23# c_c_lai


    c大我出門了，可能要明天才能測試，明天再跟你說結果

藍天麗池

回復 23# c_c_lai

Application.OnTime Now + TimeValue("00:00:10"), "ThisWorkbook.MyWay"  '  設定 10 秒後 執行 MyWay 程序

C大請教一下，以上程式碼是指開盤後10秒執行(也就是8:45:10)，還是指之後都是每10秒執行一次??
剛剛回到家看程式碼這個地方不太了解

c_c_lai

回復 25# 藍天麗池
第一次執行完之後，每10秒會再去執行一次。
順便將

1. Application.OnTime TimeValue("08:45"), "MyWay"

複製代碼

改成

1. Application.OnTime TimeValue("08:45"), "ThisWorkbook.MyWay"

複製代碼

以防尋找不著。只標明 "MyWay" ，一般系統會直接去模組裡搜尋。

藍天麗池

回復 26# c_c_lai


    那這樣如果價格在10秒內有變動不就無法紀錄？

c_c_lai

回復 27# 藍天麗池
"00:00:10" 那你就不會變動性的依你的需修改？
譬如：兩秒跑一次 "00:00:02"、五秒跑一次 "00:00:05"

藍天麗池

回復 28# c_c_lai


    喔喔！c大那我了解了，目前測試ok
另外，請教一下c大，目前程式設定是單一個股的總量有變動才寫入，還是任一個股有變動就寫入呢？
因為我剛剛看了一下，感覺好像全部都一起寫入，但有時候這一秒跟前一秒價格一樣所以會有錯覺，所以再問一下c大

c_c_lai

回復 29# 藍天麗池
全部都一起寫入，因為無法使用 Worksheet_Change()
無從判斷是由哪個欄位修正觸發的緣故。