EXCEL VBA(定時自動執行程式中加入選擇項目)
發問:
各位 大大 好!請教定時自動執行程式中加入選擇項的問題1.下方的程式碼如何修改?讓操作者選擇繼續執行或跳出程式碼,細節如下:1.1時間吻合條件開始執行程式時,先跳出選擇視窗,有兩個選鈕(繼續執或取消)1.1.1選(繼續執行)鈕:讓程式繼續執行完1.1.2選(取消)鈕:讓程式跳出1.1.3當選擇鈕於10秒鐘後沒有手動做出選擇時,自動讓程式繼續執行完2.以上問題敘述如有錯誤觀念或不完整,請各位 大大 指正! 謝謝各位 大大... 顯示更多 各位 大大 好! 請教定時自動執行程式中加入選擇項的問題 1.下方的程式碼如何修改?讓操作者選擇繼續執行或跳出程式碼,細節如下: 1.1時間吻合條件開始執行程式時,先跳出選擇視窗,有兩個選鈕(繼續執或取消) 1.1.1選(繼續執行)鈕:讓程式繼續執行完 1.1.2選(取消)鈕:讓程式跳出 1.1.3當選擇鈕於10秒鐘後沒有手動做出選擇時,自動讓程式繼續執行完 2.以上問題敘述如有錯誤觀念或不完整,請各位 大大 指正! 謝謝各位 大大 指導! 3.以下是敘述問題的困擾說明,希望助於了解問題 3.1下列的程式碼在中午休息時自動執行已經不成問題 3.2希望在上班時間約10:00及15:00也能自動執行 3.2.1如果檔案閒置時,自動執行不成問題 3.2.2但是3.2的這兩個時間點如果是在操作中,希望能有所選擇(繼續或取消) Public T As Date Private Sub Workbook_BeforeClose(Cancel As Boolean) On Error Resume Next Application.OnTime T, "ThisWorkbook.Workbook_Open", , False End Sub Private Sub Workbook_Open() Sheet1.Calculate T = Now + 1 / 864 Application.OnTime T, "ThisWorkbook.Workbook_Open" If Time > TimeValue("12:05:00") And Time < TimeValue("12:08:00") Then Call 進度表更新 End If End Sub
最佳解空中英語答:
＜測試檔＞： http://www.funp.net/246491 流程不太好控制，已儘量加入註解，請自行套用看看！ 2013-05-30 09:59:40 補充： EXCEL VBA．每隔〔固定時間〕執行主程式，顯示自動消失的MsgBox ＜．准提部林．＞ －－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－ ■程式碼１： Public uMode%, UpdateChk%, xSht As Worksheet Sub Auto_Run() Dim T As Date, PopMsg As Object, QQ Set PopMsg = CreateObject("Wscript.shell") If uMode = 0 Then Exit Sub If UpdateChk = 1 Then GoTo 101 xSht.[B1] = Format(Time, "hh:mm:ss") Randomize:xSht.[H1] = Int(Rnd * 6) If xSht.[H1] <> 3 Then GoTo 101 If (Time >= TimeValue("09:00:00") And Time <= TimeValue("12:00:00")) Or _ (Time >= TimeValue("13:00:00") And Time <= TimeValue("18:00:00")) Then QQ = PopMsg.Popup("是否要執行更新！", 5, "提示訊息", 1 + 32 + 256) If QQ = vbCancel Then GoTo 101 Call 進度表更新 ElseIf Time > TimeValue("12:00:00") And Time < TimeValue("13:00:00") Then Call 進度表更新 End If 101: T = Now + TimeValue("00:00:01") Application.OnTime T, "Auto_Run" End Sub Sub 進度表更新() UpdateChk = 1 xSht.[D2:D11] = "": xSht.[D1] = "更新中....." For i = 1 To 10 xSht.[D2].Cells(i, 1) = Format(Now, "yyyy/mm/dd hh:mm:ss") Application.Wait Now + TimeValue("00:00:01") Next i xSht.[D1] = "更新完成" UpdateChk = 0 End Sub ■程式碼２： 提供另一種方案，請重新下載範例檔參考。 －－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－ ＜範例檔＞下載： 檔案名稱：20130526a01(指定時間執行程式).rar 下載位址：http://www.funp.net/714721 －－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－
其他英語動畫文法解答:
有機會也許可以提供一些正確方向，若是有需要可以一起討論看看。 可以傳mail給我，與我洽淡：gian.guibert@gmail.com|||||各位 大大 早安! 補充說明: 1."Call 進度表更新"副程式執行需要4分鐘,所以工作忙碌時希望可以選擇不執行 2.問題中的程式碼是Andy知識搜尋找到的程式碼再加以修改應用的 請各位 大大 指導! 2013-05-27 09:48:00 補充： 謝謝 准提部林 大大! 剛剛已經下載檔案,等會兒撥控研習,再向您請教! 2013-05-29 16:34:53 補充： 謝謝 准提部林 大大指導! 1.被自己的舊程式問題侷限住了 1.1舊程式碼會因ontime而讓複製的物件取消複製,貼上會出現問題,且滑鼠游標常常會跳動,所以將下次的ontime拉長至100秒 1.2開啟您的範例檔就把"00:00:01"改成"00:00:30",因而演伸出其他問題 1.2.1關閉檔案前執行"停止"程式碼,但是會自動再開啟檔案,因為雖然在30秒內按了停止,但是還是要經過下次ontime後關閉才不會再自動開啟 1.3想要解決1.2的問題都失敗,最後發現:您設計的程式碼套入資料庫後,雖然滑鼠游標會跳動,但是不會有1.1的複製無效問題 2013-05-29 17:22:31 補充： 2.Andy從此範例檔案學習到很多方法 2.1主程式的結尾用呼叫副程式的方式讓主成變成副程式...無限循環 2.2此範例檔在試解決1.2的問題時衍生很多想法可以讓程式碼修改後應用到其他用途 2.3"停止"的程式碼加到您上次提醒的關檔前"全部顯示"程式碼中當副程式,關閉檔案前養成習慣全部顯示,一舉兩得,養成好習慣,又可以讓 auto_run停止! 2.4其他工作表註解會有閃爍的問題:用了觸發方式,只要接觸儲存格就執行停止的副程 2.5在其他每個程式碼都會執行的副程式(檢測程式碼)中加入"重新啟動",2.4就會再auto_run . 2013-05-29 17:28:43 補充： 雖然很多疑問沒有徹底了解,但是已經可以解決目前的問題!學習之路永無止境! 以上心得如果有誤!請您再指導! 請您上答!4D962705AE823D35
文章標籤
全站熱搜
留言列表
