[發問] 發問 : 如何設定能在規定的時間紀錄資料

HenryWang123

下載 (161.48 KB)

2014-5-26 11:07

大家好，我是完全不懂程式交易的新手，煩請各位高手前輩指導了~

圖片中紅色框框已經設定可以跟永豐Eleader連線，數字會自動更新。

目前我想要每兩分鐘將上面藍色框框的數據自動紀錄在下方規定時間旁的區域，請問我該如何輸入語法，或者是如何操作呢 ?

麻煩各位前輩指導了:loveliness:

HenryWang123

回復 1# HenryWang123


    如果教學要收費也可以寄信給我~ tradergarden@gmail.com

owen06

回復 2# HenryWang123
  
我是會定時讓資料往下copy啦，可是瑞凡~~~我停不下來呀~~~有沒有其他高手能教一下怎麼設定退場機制，讓他能在預定的時間過後，就不再copy了。
Application.OnTime t2, "AutoCopy",,false   這個語法一直不知道該怎麼應用。

   在thisworkbook裡貼上

1. Private Sub Workbook_Open()
   
2. T = #10:58:00 AM#
   
3. Application.OnTime T, "AutoCopy"
   
4. End Sub

複製代碼

然後新增模組，再貼上

1. Sub AutoCopy()
   
2. t2 = Now + TimeSerial(0, 2, 0)
   
3. Sheet1.[b8:i10].Copy
   
4. Sheet1.[b65536].End(3).Offset(1, 0).Select
   
5. If Sheet1.[b13] = "" Then Sheet1.[b13].Select
   
6. Selection.PasteSpecial xlPasteValues
   
7. Application.OnTime t2, "AutoCopy"
   
8. End Sub

複製代碼

GBKEE

回復 3# owen06


   

我停不下來呀

1. If Time <= #1:30:00 PM# Then Application.OnTime t2, "AutoCopy"

複製代碼

owen06

回復 4# GBKEE


    原來在application.ontime前面設定個IF執行條件就行了！感謝GKBEE版主一語點醒夢中人~~~
    謝謝版主大大~

stillfish00

回復 3# owen06

Application.OnTime t2, "AutoCopy",,false   這個語法一直不知道該怎麼應用。

可用全域變數紀錄時間，以取消該時間的排程

1. Private tNext As Date
   
2. 
   
3. Sub StartButton()
   
4.   On Error Resume Next
   
5.   StopButton
   
6.   On Error GoTo 0
   
7. 
   
8.   MyLoop TimeValue("18:00:00")
   
9. End Sub
   
10. 
    
11. Public Sub StopButton()
    
12.   Application.OnTime tNext, "MyLoop", , False
    
13. End Sub
    
14. 
    
15. Sub MyLoop(Optional tStart)
    
16.   Const MIN_INTERVAL = 1 '間隔時間
    
17.   
    
18.   If Not IsMissing(tStart) Then
    
19.     tNext = tStart
    
20.     Application.OnTime tNext, "MyLoop"
    
21.   Else
    
22.     tNext = tNext + TimeSerial(0, MIN_INTERVAL, 0)
    
23.     Application.OnTime tNext, "MyLoop"
    
24.     MyCopyFunc 'call your copy function
    
25.   End If
    
26. End Sub
    
27. 
    
28. Sub MyCopyFunc()
    
29.   'The timing cost of MyCopyFunc should less than the time of INTERVAL
    
30.   'Copy here
    
31. End Sub

複製代碼

HenryWang123

真的非常感謝各位的解答~讓我能夠有機會到下一步!!
目前按執行以後有遇到這個問題，在煩請各位幫忙了!

下載 (138.43 KB)

2014-5-28 09:37

下載 (131.95 KB)

2014-5-28 09:38

請問該如何解決呢?

owen06

回復 7# HenryWang123


    應該是找不到sheet1的關係，你把裡面的sheet1都改成sheets("xxx")應該就行了。(xxx為工作表名稱)
    我使用sheet1是因為沒有你的檔案，所以只能用自己使用的情境下去設定，
    因此你在不同的情況下，就會出現錯誤，你必需要自己去修改工作表名稱這個部份才可以。

HenryWang123

有了可以了~ 非常感謝您~
另外有看到網友說要停下來可以用下面這個語法，請問是要加到哪一行裡面呢?
If Time <= #1:30:00 PM# Then Application.OnTime t2, "AutoCopy"

owen06

回復 9# HenryWang123


在AutoCopy那個模組裡的最後一行
本來是：Application.OnTime t2, "AutoCopy"
把他改成：If Time <= #1:30:00 PM# Then Application.OnTime t2, "AutoCopy"
就行了。