c_c_lai

回復  c_c_lai
c_c_lai大你好；
能否把 附件【策略記錄】欄[摩台][韓國][日本]也增列每30秒記錄？
連同 ...
cfuxiong 發表於 2012-12-8 12:53

看了你策略記錄的內容，匯入時間是固定欄紀錄時間
(目前是每一分鐘記錄一筆)，你說的 "也增列" 每30秒記錄？
不太明白你想的是甚麼？
又、 [摩台][韓國][日本] 資料源在哪裡？

cfuxiong

回復 21# c_c_lai
c_c_lai大 早安；
述說不清楚，對不起..重新說明；
[摩台][韓國][日本]在【DDE報價】欄，每[1分]記錄即可
(資料範圍屬性是1分更新)。[台指期]就不用了..減少浪費電腦資源，
懇請能幫忙..謝謝!!...我EMail：cfuxiong@gmail.com 歡迎來函

cfuxiong

回復 21# c_c_lai

忘了補上(附件)...

GBKEE

回復 23# cfuxiong
試試看

1. Option Explicit
   
2. Private Sub Workbook_Open()
   
3.     With Sheets("策略記錄")
   
4.         .Cells(4, 2) = 9 ' 紀錄從10列開始
   
5.         .Range(.Cells(10, 1), .Cells(10, 1).End(xlDown).Offset(, 8)) = ""
   
6.         '清除 舊有資料
   
7.     End With
   
8.     Timer_DEE
   
9. End Sub
   
10. Private Sub Workbook_BeforeClose(Cancel As Boolean)
    
11.     On Error Resume Next
    
12.     Application.OnTime Now + TimeValue("00:00:01"), "ThisWorkbook.Timer_DEE", , False
    
13. End Sub
    
14. Public Sub Timer_DEE()
    
15.     'Timer 函數 傳回一 Single，其內容為從前一個午夜算起到現在所經過的秒數。
    
16.     '變數,程序:名稱要避免使用VBA 的內定關鍵字
    
17.     Dim Pos As Integer, i As Integer, RangeStr As String
    
18.     On Error Resume Next
    
19.     Application.OnTime Now + TimeValue("00:00:01"), "ThisWorkbook.Timer_DEE"    '每秒顯示
    
20.     Sheets("策略記錄").Cells(3, 2) = Time                                   '將時間show至策略的b3欄位
    
21.     'Dim HHMM As Integer
    
22.     'HHMM = Hour(Time) * 100 + Minute(Time)
    
23.     'If (HHMM < 845 Or HHMM > 1345) Then Exit Sub '營業時間才執行
    
24.     If Time < #9:00:00 AM# Or Time > #1:30:00 PM# Then Exit Sub  '營業時間才執行
    
25.     If Second(Time) Mod 30 = 0 Then '間隔30秒
    
26.     'If Second(Time) Mod 5 = 0 Then '間隔5秒 10秒 15秒 ....
    
27.         With Sheets("策略記錄")
    
28.             .Cells(4, 2) = .Cells(4, 2) + 1 '將變動行號加一行
    
29.             Pos = .Cells(4, 2)
    
30.             .Cells(Pos, 1) = Time
    
31.             .Cells(Pos, 2).Resize(, 8) = .[b2:i2].Value
    
32.             'Sheets("策略記錄").[b2:i2] 分別是以下的DEE
    
33.             '[多空力道][反向勢力][主力控盤][台指期 成交價][台指期 成交價][摩台指][韓國綜合][日經指數]
    
34.         End With
    
35.     End If
    
36. End Sub

複製代碼

c_c_lai

回復 23# cfuxiong
上層 GBKEE 版大提示的明細範例，
是否已解決了你的問題？

cfuxiong

回復 25# c_c_lai
c_c_lai大你好；
我照[GBKEE大]的指導，複製貼上不知是否可行？就待明天測試了!!
附件是有加[GBKEE大]的巨集，請[c_c_lai大][GBKEE大]指導..謝謝!!

GBKEE

回復 26# cfuxiong
不是加上: 是要修改ThisWorkbook 上的程式碼 (copy 覆蓋掉 ThisWorkbook 上的程式碼)

cfuxiong

回復 27# GBKEE
GBKEE大你好；
能給個正確的[Zip檔]讓我學習嗎？謝謝~~

GBKEE

回復 28# cfuxiong
沒有那麼難的,照我說的去試試看!!!

這裡改依改就可  
'Sheets("策略記錄").[b2:i2] 分別是以下的DEE
'[多空力道][反向勢力][主力控盤][台指期 成交價][台指期 成交價][摩台指][韓國綜合][日經指數]

cfuxiong

回復 29# GBKEE 把
[台指期]刪除...如此改對嗎？
'Sheets("策略記錄").[b10:i10] 分別是以下的DEE
            '[多空力道][反向勢力][主力控盤][摩台指][韓國綜合][日經指數]
        End With
    End If
End Sub