儲存不會自動停止，該怎麼改？

帖子: 48
主題: 8
精華: 0
積分: 60
點名: 0
作業系統: windows7
軟體版本: office2010
閱讀權限: 20
註冊時間: 2013-4-9
最後登錄: 2019-12-17

29^#

發表於 2013-10-24 09:39 | 只看該作者

回復 28# stillfish00

謝謝 stillfish00大大的回應。

雖然CC工作表主要是作為儲存的工作表，但它儲存的數值的平均值，會連結到另一個工作表如DD工作表去使用
並且視情況在DD工作表裡做些變更，如加減乘除或是剪下貼上的動作。
如果是另開一個活頁簿的話，這樣儲存的數值就無法及時連結到我需要的工作表內(即，儲存格的及時連結是需要兩個活頁簿雙擊點開的)
那還有沒有其他方法可以做出同樣的碼表計時並儲存數據，卻又不會影響其他工作表運作的呢？
不好意思又麻煩你了，謝謝。

stillfish00

大學生 Rank: 4

帖子: 1018
主題: 15
精華: 0
積分: 1058
點名: 0
作業系統: win7 32bit
軟體版本: Office 2016 64-bit
閱讀權限: 50
性別: 男
來自: 桃園
註冊時間: 2012-5-9
最後登錄: 2022-9-28

28^#

發表於 2013-10-23 15:54 | 只看該作者

回復 27# ahsiek
根據Application.OnTime ，其參數LatestTime 的說明：

LatestTime 選用 Variant
可以開始執行程序的最晚時間。例如，假設 LatestTime 設為 EarliestTime + 30，當時間到了 EarliestTime 時，如果由於其他程序正在執行中而使 Microsoft Excel 不處於 [就緒]、[複製]、[剪下] 或 [尋找] 模式，則 Microsoft Excel 會等待 30 秒以完成第一個程序。如果 30 秒內 Microsoft Excel 無法回到 [就緒] 模式，則不會執行此程序。如果省略此引數，Microsoft Excel 會一直等到可以執行該程序為止。

複製代碼

由於省略此引數，Microsoft Excel 會一直等到可以執行該程序為止。
也許是這樣導致你紀錄時間的動作延後，而有你說的"漏了幾秒"的結果，這可能沒辦法解決。。。

但我會建議你試試看，紀錄的巨集用一個Excel應用程式常駐，如果有其他Excel 工作需要處理的話，
另外開一個Excel應用程式(從開始功能表或捷徑開啟excel，不要直接雙擊excel檔案，
使工作管理員可看見兩個Excel.exe處理程序)，也許能避免資源衝突問題。

帖子: 48
主題: 8
精華: 0
積分: 60
點名: 0
作業系統: windows7
軟體版本: office2010
閱讀權限: 20
註冊時間: 2013-4-9
最後登錄: 2019-12-17

27^#

發表於 2013-10-23 14:15 | 只看該作者

回復 ahsiek
因為原本code中stop的機制，不是立即停止的，而是下次排程的時間到了才去判斷到該變數，不讓 ...
stillfish00 發表於 2013-9-11 17:14

我想請問一下，CC 工作表，我只會拿來儲存數據，我都在其他工作表上工作。
若我在其他的工作表上，若有做加減乘除或是改換函數時，CC 工作表就會漏了幾秒或是整個暫停住。
有沒有方法可以讓 CC 工作表不會因為其他工作表在工作而受到影響呢？
謝謝。

數值記錄.rar (333.3 KB)

帖子: 48
主題: 8
精華: 0
積分: 60
點名: 0
作業系統: windows7
軟體版本: office2010
閱讀權限: 20
註冊時間: 2013-4-9
最後登錄: 2019-12-17

26^#

發表於 2013-9-12 10:13 | 只看該作者

回復 24# GBKEE

To GBKEE 大大，也謝謝你的幫忙。但是我開啟97-2003版本的，進去VBA裡也是看得到模組裡的程式耶
我不大會將2010和2003做轉換，或許就是這樣讓你看不到，真的很抱歉。
不過，程式碼已經有解決了，也很謝謝你。

帖子: 48
主題: 8
精華: 0
積分: 60
點名: 0
作業系統: windows7
軟體版本: office2010
閱讀權限: 20
註冊時間: 2013-4-9
最後登錄: 2019-12-17

25^#

發表於 2013-9-12 10:11 | 只看該作者

回復 23# stillfish00

To stillfish00 大大，非常謝謝你，也讓我知道是什麼原因造成的。我剛剛測試了一個小時，到目前為止都沒有問題出現。

真的真的很謝謝你，這下我也學會另一個方式。

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兔年全勤獎章

24^#

發表於 2013-9-11 17:43 | 只看該作者

回復 22# ahsiek
還是一樣沒程式碼,23# stillfish00 的修正可以就好 ,如不行可將所有模組匯出後再上傳模組檔.

感恩的心......(在麻辣家族討論區.用心學習會有進步的)
但資源無限,後援有限, 一天1元的贊助,人人有能力.

stillfish00

大學生 Rank: 4

帖子: 1018
主題: 15
精華: 0
積分: 1058
點名: 0
作業系統: win7 32bit
軟體版本: Office 2016 64-bit
閱讀權限: 50
性別: 男
來自: 桃園
註冊時間: 2012-5-9
最後登錄: 2022-9-28

23^#

發表於 2013-9-11 17:14 | 只看該作者

回復 22# ahsiek
因為原本code中stop的機制，不是立即停止的，而是下次排程的時間到了才去判斷到該變數，不讓它有再下一次的排程。
所以原本設1秒，只要按停止後的一秒內不再重新開始就不會有問題，而現在時間拉長的話就有問題了。。。

可以參考修改如下看看，mainFunc() 不變：

Private gNextRunTime1 As Date
Private gbIsRunning1 As Boolean
Sub ButtonStart1() '工作表開始按鈕
'防止多次啟動
If gbIsRunning1 = True Then
If MsgBox("已有存在的排程:" & gNextRunTime1 & "，是否取消該排程，重新紀錄?", vbOKCancel) = vbOK Then
ButtonStop1
Else
Exit Sub
End If
End If
With ActiveSheet
.Range("A4:G270").ClearContents
gbIsRunning1 = True
SetTimer1 .Name
End With
End Sub
Sub ButtonStop1() '工作表停止按鈕
gbIsRunning1 = False
On Error Resume Next
'取消下次執行時間
Application.OnTime gNextRunTime1, "'SetTimer1 """ & ActiveSheet.Name & """'", , False
On Error GoTo 0
End Sub
Sub SetTimer1(sSheetName As String)
Const MAX_ROW = 270
gNextRunTime1 = Now + TimeValue("00:00:10")
Application.OnTime gNextRunTime1, "'SetTimer1 """ & sSheetName & """'"
If mainFunc(sSheetName) >= MAX_ROW Then ButtonStop1 '執行並回傳row
End Sub

複製代碼

帖子: 48
主題: 8
精華: 0
積分: 60
點名: 0
作業系統: windows7
軟體版本: office2010
閱讀權限: 20
註冊時間: 2013-4-9
最後登錄: 2019-12-17

22^#

發表於 2013-9-11 16:58 | 只看該作者

回復 20# GBKEE

數值記錄1.rar (132.41 KB) 附檔有另存為97-2003版本，只是工作表上的格式都跑掉了。我試著把CC工作表修改成比較能看的樣子。
不過你看到的，應該都是一堆數字。

程式碼寫在模組 module3 裡面。

CC工作表的 A欄是時間，複製B3-D3的值至E4-G4的儲存格裡，H5-M5有公式會自己算。
主要的問題是，我設定一個小時記錄一次，結果，在每一個小時裡，中間會又多一筆時間的資料。
可是我明明就沒有動其他的程式碼，只改時間而已。就是不了解為什麼會多存時間呢？

帖子: 48
主題: 8
精華: 0
積分: 60
點名: 0
作業系統: windows7
軟體版本: office2010
閱讀權限: 20
註冊時間: 2013-4-9
最後登錄: 2019-12-17

21^#

發表於 2013-9-11 14:01 | 只看該作者

本帖最後由 ahsiek 於 2013-9-11 14:02 編輯

回復 20# GBKEE

To GBKEE大大檔案附上，謝謝。

數值記錄.rar (328.25 KB)

不過，CC工作表的內容是我剛剛測試10分鐘的結果，一小時的被我洗掉了。