GBKEE

回復 30# cfuxiong

1. .Cells(Pos, 2).Resize(, 8) = .[b2:i2].Value
   
2.             ' ****** Sheets("策略記錄").[b2:i2] 分別是以下的DEE   ******
   
3.            '****[多空力道][反向勢力][主力控盤][台指期 成交價][台指期 成交價][摩台指][韓國綜合][日經指數]****

複製代碼

24#程式碼 : 工作表 Sheets("策略記錄").[B2:I2] 這8個儲存格 ,要改成那些DEE的公式
                      程式每隔?秒,要抓取.[b2:i2].Value 這些資料到  .Cells(Pos, 2).Resize(, 8) 這裡
完成上面步驟,VBA 視窗裡:ThisWorkbook模組 刪掉所有程式碼 ,貼上 24# 所有程式碼?
明天看是否成功!!!!

cfuxiong

回復 31# GBKEE
GBKEE大你好；
弄了半天..增加好多個？？？看來我是舉雙手投降了..以下是改的..不知是否正確？
請高手指導~~謝謝~~

'If (HHMM < 845 Or HHMM > 1345) Then Exit Sub '營業時間才執行
    If Time < #9:00:00 AM# Or Time > #1:30:00 PM# Then Exit Sub  '營業時間才執行
※上面二行[營業時間才執行]時間未何不一致？
    If Second(Time) Mod 30 = 0 Then '間隔30秒
    'If Second(Time) Mod 5 = 0 Then '間隔5秒 10秒 15秒 ....
※上面二行如我需要1分，是否二行都要改 Mod 60 = 0 Then，間隔60秒
This Workbook已改成；
'Sheets("策略記錄").[b10:g10] 分別是以下的DEE
            '[多空力道][反向勢力][主力控盤][摩台指][韓國綜合][日經指數]

f3202

回復 32# cfuxiong
   
If Time < #9:00:00 AM# Or Time > #1:30:00 PM# Then Exit Sub  '營業時間才執行

改為     If Time < #9:00:00 AM# Or Time > #11:30:00 PM# Then Exit Sub  '營業時間才執行

測試就知道

cfuxiong

回復 33# f3202
改為     If Time < #9:00:00 AM# Or Time > #11:30:00 PM# Then Exit Sub
為何是[#11:30:00 PM#]？

f3202

回復 34# cfuxiong

=23:00:00
正常13:45:00即停止執行vba

GBKEE

回復 32# cfuxiong
This Workbook已改成；'Sheets("策略記錄").[b10:g10] 分別是以下的DEE
如圖 工作表也要改:輸入公式(圖中是示範的公式,看那些DEE在哪裡)

下載 (22.85 KB)

2012-12-10 07:13

附檔的程式碼你有修改:你須再修改

1. With Sheets("策略記錄")
   
2.             .Cells(4, 2) = .Cells(4, 2) + 1 '將變動行號加一行
   
3.             Pos = .Cells(4, 2)
   
4.             .Cells(Pos, 1) = Time
   
5.          '   .Cells(Pos, 2).Resize(, 8) = .[b10:g10].Value  'b10:g10 只有6欄  且位址也不對
   
6.             .Cells(Pos, 2).Resize(, 6) = .[b2:g2].Value   '要修改為 6
   
7.             'Sheets("策略記錄").[b2:i2] 分別是以下的DEE
   
8.             '[多空力道][反向勢力][主力控盤][摩台指][韓國綜合][日經指數]  '只有6欄
   
9.         End With

複製代碼

Mod 60 = 0 Then，間隔60秒    試試就知

cfuxiong

回復 36# GBKEE
GBKEE大你好；請教2個問題...
Cells(4, 2) = 9 ' 紀錄從10列開始  [對嗎？]

If Second(Time) Mod 60 = 0 Then '間隔60秒
'If Second(Time) Mod 5 = 0 Then '間隔5秒 10秒 15秒 ....
[是改一行還是二行都要改？]

附件；請指導是否OK...謝謝!!

GBKEE

回復 37# cfuxiong
程式碼中 每行程式碼 前面的 ' 是作為程式碼的註解(解釋用) 程式不會執行的

1. If Time < #9:00:00 AM# Or Time > #1:30:00 PM# Then Exit Sub  '營業時間才執行
   
2.     If Second(Time) Mod 60 = 0 Then '間隔60秒         
   
3.     'If Second(Time) Mod 5 = 0 Then '間隔5秒 10秒 15秒 ....  這行是註解解釋 舉列 5 為每5秒  類推....     
   
4.         With Sheets("策略記錄")
   
5.             .Cells(4, 2) = .Cells(4, 2) + 1 '將變動行號加一行
   
6.             Pos = .Cells(4, 2)
   
7.             .Cells(Pos, 1) = Time
   
8.           '  .Cells(Pos, 2).Resize(, 8) = .[b10:g10].Value   '** 如執行此行 會有2個 "#NA"
   
9.              '  ***** Resize(, 8)這裡是8欄  ,[b10:g10]  這裡 b:g  只有6欄
   
10.             .Cells(Pos, 2).Resize(, 6) = .[b2:g2].Value   ' 執行此行就可以  ** 要修改為 6及位址 **
    
11.             'Sheets("策略記錄").[b2:i2] 分別是以下的DEE
    
12.             '[多空力道][反向勢力][主力控盤][摩台指][韓國綜合][日經指數]  '只有6欄
    
13.         End With
    
14.     End If

複製代碼

cfuxiong

回復 38# GBKEE
GBKEE大你好；能否煩請查核[巨集]是否編輯正確，(8:45~13:45)資料是有撈進來但卻不能記錄~~

cfuxiong

回復 38# GBKEE
對不起~~~忘了附件~~