發問 : 如何設定能在規定的時間紀錄資料 - Excel程式區

HenryWang123

小學生 Rank: 1

帖子: 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馬年全勤獎章熱烈參與勳章

8^#

發表於 2014-5-28 11:47 | 只看該作者

回復 7# HenryWang123

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

TOP

HenryWang123

小學生 Rank: 1

帖子: 8
主題: 1
精華: 0
積分: 10
點名: 0
作業系統: windows
軟體版本: 7
閱讀權限: 10
註冊時間: 2014-5-26
最後登錄: 2015-5-13

7^#

發表於 2014-5-28 09:38 | 只看該作者

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

請問該如何解決呢?

TOP

stillfish00

大學生 Rank: 4

帖子: 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 這個語法一直不知道該怎麼應用。

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

Private tNext As Date
Sub StartButton()
On Error Resume Next
StopButton
On Error GoTo 0
MyLoop TimeValue("18:00:00")
End Sub
Public Sub StopButton()
Application.OnTime tNext, "MyLoop", , False
End Sub
Sub MyLoop(Optional tStart)
Const MIN_INTERVAL = 1 '間隔時間
If Not IsMissing(tStart) Then
tNext = tStart
Application.OnTime tNext, "MyLoop"
Else
tNext = tNext + TimeSerial(0, MIN_INTERVAL, 0)
Application.OnTime tNext, "MyLoop"
MyCopyFunc 'call your copy function
End If
End Sub
Sub MyCopyFunc()
'The timing cost of MyCopyFunc should less than the time of INTERVAL
'Copy here
End Sub

複製代碼

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

GBKEE

超級版主 Rank: 8 Rank: 8

帖子: 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

我停不下來呀

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馬年全勤獎章熱烈參與勳章

3^#

發表於 2014-5-27 11:29 | 只看該作者

回復 2# HenryWang123

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

在thisworkbook裡貼上

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

複製代碼

然後新增模組，再貼上

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

複製代碼

TOP

HenryWang123

小學生 Rank: 1

帖子: 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

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

[收藏此主題] [關注此主題的新回復]

[通過 QQ、MSN 分享給朋友]