發問 : 如何設定能在規定的時間紀錄資料 - Excel程式區 - 麻辣家族討論版版

麻辣家族討論版版 » Excel程式區 » 發問 : 如何設定能在規定的時間紀錄資料

返回列表下一主題上一主題發帖

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

小學生 Rank: 1

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

11^# 跳轉到 »

發表於 2014-5-28 21:29 | 只看該作者

發自內心的感謝您

小學生 Rank: 1

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

12^#

發表於 2014-6-5 10:53 | 只看該作者

這邊遇到一個狀況需要再請教各位，就是想要在" Sheet1 "和" Sheet2 " 執行同樣的動作，但是卻無法執行，請問該怎麼解決呢?

我的動作是按執行 > 選執行module 1 > 執行一個動作後，下一次要copy時就出現"發現不確定名稱"的這個問題了

如果我選執行module 1 > 接著再選執行選執行module 2 > 就會進行偵錯

要請教各位該如何解決呢 ?

　暱稱: 阿軒

中學生 Rank: 2

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

2015羊年全勤獎章 2014馬年全勤獎章熱烈參與勳章

13^#

發表於 2014-6-5 12:32 | 只看該作者

回復 12# HenryWang123

請問方便附個檔案來看看嗎？

小學生 Rank: 1

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

14^#

發表於 2014-6-5 16:07 | 只看該作者

程式與籌碼原稿.rar (360.76 KB)

麻煩囉

中學生 Rank: 2

帖子: 75
主題: 1
精華: 0
積分: 371
點名: 1
作業系統: win7
軟體版本: office 2007
閱讀權限: 20
註冊時間: 2010-5-4
最後登錄: 2024-11-15

15^#

發表於 2014-6-5 20:26 | 只看該作者

回復 14# HenryWang123

應是沒指定 sheet1 或 sheet2

　暱稱: 阿軒

中學生 Rank: 2

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

2015羊年全勤獎章 2014馬年全勤獎章熱烈參與勳章

16^#

發表於 2014-6-6 00:20 | 只看該作者

回復 12# HenryWang123

我想你應該是停留在sheet1，但是指令卻命令他要去sheet2越區辦案，
所以他就抗命囉。
你如果是都只要copy同一個資料，但是到不同工作表，我是建議你修改成這樣，
用一個模組就好了，另一個取消掉。
如果有其他問題，再提出來一起討論吧。

Sub AutoCopy()
t2 = Now + TimeSerial(0, 1, 0)
Application.Calculation = xlAutomatic
Sheets("sheet1").Select
Sheets("Sheet1").[a9:j11].Copy
Sheets("Sheet1").[b65536].End(3).Offset(1, 0).Select
If Sheets("Sheet1").[b13] = "" Then Sheets("Sheet1").[b13].Select
Selection.PasteSpecial xlPasteValues
Sheets("sheet2").Select
Sheets("Sheet2").[b65536].End(3).Offset(1, 0).Select
If Sheets("Sheet2").[b13] = "" Then Sheets("Sheet2").[b13].Select
Selection.PasteSpecial xlPasteValues
If Time <= #13:45:00 PM# Then Application.OnTime t2, "AutoCopy"
End Sub

複製代碼

博士班 Rank: 6 Rank: 6

帖子: 2035
主題: 24
精華: 0
積分: 2031
點名: 0
作業系統: Win7
軟體版本: Office2010
閱讀權限: 100
性別: 男
註冊時間: 2012-3-22
最後登錄: 2024-2-1

17^#

發表於 2014-6-6 07:59 | 只看該作者

本帖最後由 c_c_lai 於 2014-6-6 08:51 編輯

回復 14# HenryWang123
試試看！
ThisWorkbook:

Option Explicit
Private Sub Workbook_Open()
Dim T As Date
T = #8:47:00 AM#
Application.OnTime T, "Module1.AutoCopy"
End Sub

複製代碼

Module1:

Option Explicit
Sub AutoCopy()
Dim t2 As Date
Dim i As Integer, sht As String
i = 0
While i < 2
i = i + 1
t2 = Now + TimeSerial(0, 2, 0)
sht = IIf(i = 1, "Sheet1", "Sheet2")
With Sheets(sht)
.Select
.[a9:j11].Copy
.[b65536].End(3).Offset(1, 0).Select
If .[b13] = "" Then .[b13].Select
Selection.PasteSpecial xlPasteValues
End With
Wend
If Time <= #1:45:00 PM# Then Application.OnTime t2, "Module1.AutoCopy"
End Sub

複製代碼

小學生 Rank: 1

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

18^#

發表於 2014-6-9 13:04 | 只看該作者

很順利的運行~謝謝兩位的熱心幫忙~

靜思自在 : 好事要提得起，是非要放得下，成就別人即是成就自己。

返回列表下一主題上一主題