12
返回列表 上一主題 發帖

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

HenryWang123

帖子
8 
主題
1 
精華
0 
積分
10 
點名
0  
作業系統
windows 
軟體版本
7 
閱讀權限
10 
註冊時間
2014-5-26 
最後登錄
2015-5-13 
1# 跳轉到 » 倒序看帖
打印
tT
發表於 2014-5-26 11:13 | 只看該作者

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

本帖最後由 GBKEE 於 2014-5-27 13:42 編輯



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

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

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

麻煩各位前輩指導了:loveliness:
收藏 分享

HenryWang123

帖子
8 
主題
1 
精華
0 
積分
10 
點名
0  
作業系統
windows 
軟體版本
7 
閱讀權限
10 
註冊時間
2014-5-26 
最後登錄
2015-5-13 
2#
發表於 2014-5-26 15:23 | 只看該作者
回復 1# HenryWang123


    如果教學要收費也可以寄信給我~ [email protected]

TOP

owen06
　暱稱: 阿軒

中學生Rank: 2

帖子
396 
主題
12 
精華
0 
積分
425 
點名
1  
作業系統
Win10 
軟體版本
Office 2016 
閱讀權限
20 
性別
男 
來自
台中 
註冊時間
2013-7-2 
最後登錄
2024-8-23 

2015羊年全勤獎章2014馬年全勤獎章熱烈參與勳章
3#
發表於 2014-5-27 11:29 | 只看該作者
回復 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
複製代碼

TOP

GBKEE

帖子
5923 
主題
13 
精華
1 
積分
5986 
點名
0  
作業系統
win10 
軟體版本
Office 2010 
閱讀權限
150 
性別
男 
來自
台灣基隆 
註冊時間
2010-5-1 
最後登錄
2022-1-23 

2017 雞年全勤獎章2016猴年全勤獎章2015羊年全勤獎章2014馬年全勤獎章2013蛇年全勤獎章2012龍年全勤獎章論壇貢獻勳章熱烈參與勳章2011兔年全勤獎章
4#
發表於 2014-5-27 13:56 | 只看該作者
回復 3# owen06


   
我停不下來呀
  1. If Time <= #1:30:00 PM# Then Application.OnTime t2, "AutoCopy"
複製代碼
感恩的心......(在麻辣家族討論區.用心學習會有進步的)
但資源無限,後援有限,  一天1元的贊助,人人有能力.

TOP

owen06
　暱稱: 阿軒

中學生Rank: 2

帖子
396 
主題
12 
精華
0 
積分
425 
點名
1  
作業系統
Win10 
軟體版本
Office 2016 
閱讀權限
20 
性別
男 
來自
台中 
註冊時間
2013-7-2 
最後登錄
2024-8-23 

2015羊年全勤獎章2014馬年全勤獎章熱烈參與勳章
5#
發表於 2014-5-27 14:25 | 只看該作者
回復 4# GBKEE


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

TOP

stillfish00

帖子
1018 
主題
15 
精華
0 
積分
1058 
點名
0  
作業系統
win7 32bit 
軟體版本
Office 2016 64-bit 
閱讀權限
50 
性別
男 
來自
桃園 
註冊時間
2012-5-9 
最後登錄
2022-9-28 
6#
發表於 2014-5-27 17:01 | 只看該作者
回復 3# owen06
Application.OnTime t2, "AutoCopy",,false   這個語法一直不知道該怎麼應用。

可用全域變數紀錄時間，以取消該時間的排程
  1. Private tNext As Date

  3. Sub StartButton()
  4.   On Error Resume Next
  5.   StopButton
  6.   On Error GoTo 0

  8.   MyLoop TimeValue("18:00:00")
  9. End Sub

  11. Public Sub StopButton()
  12.   Application.OnTime tNext, "MyLoop", , False
  13. End Sub

  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

  28. Sub MyCopyFunc()
  29.   'The timing cost of MyCopyFunc should less than the time of INTERVAL
  30.   'Copy here
  31. End Sub
複製代碼

TOP

HenryWang123

帖子
8 
主題
1 
精華
0 
積分
10 
點名
0  
作業系統
windows 
軟體版本
7 
閱讀權限
10 
註冊時間
2014-5-26 
最後登錄
2015-5-13 
7#
發表於 2014-5-28 09:38 | 只看該作者
真的非常感謝各位的解答~讓我能夠有機會到下一步!!
目前按執行以後有遇到這個問題，在煩請各位幫忙了!



請問該如何解決呢?

TOP

owen06
　暱稱: 阿軒

中學生Rank: 2

帖子
396 
主題
12 
精華
0 
積分
425 
點名
1  
作業系統
Win10 
軟體版本
Office 2016 
閱讀權限
20 
性別
男 
來自
台中 
註冊時間
2013-7-2 
最後登錄
2024-8-23 

2015羊年全勤獎章2014馬年全勤獎章熱烈參與勳章
8#
發表於 2014-5-28 11:47 | 只看該作者
回復 7# HenryWang123


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

TOP

HenryWang123

帖子
8 
主題
1 
精華
0 
積分
10 
點名
0  
作業系統
windows 
軟體版本
7 
閱讀權限
10 
註冊時間
2014-5-26 
最後登錄
2015-5-13 
9#
發表於 2014-5-28 12:32 | 只看該作者
有了可以了~ 非常感謝您~
另外有看到網友說要停下來可以用下面這個語法，請問是要加到哪一行裡面呢?
If Time <= #1:30:00 PM# Then Application.OnTime t2, "AutoCopy"

TOP

owen06
　暱稱: 阿軒

中學生Rank: 2

帖子
396 
主題
12 
精華
0 
積分
425 
點名
1  
作業系統
Win10 
軟體版本
Office 2016 
閱讀權限
20 
性別
男 
來自
台中 
註冊時間
2013-7-2 
最後登錄
2024-8-23 

2015羊年全勤獎章2014馬年全勤獎章熱烈參與勳章
10#
發表於 2014-5-28 12:53 | 只看該作者
回復 9# HenryWang123


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

TOP

        靜思自在 : 一個缺口的杯子，如果換一個角度看它，它仍然是圓的。
12
返回列表 上一主題