[發問] 巨集自動執行

帖子: 15
主題: 2
精華: 0
積分: 54
點名: 2
作業系統: macOS / Windows
軟體版本: Office 2010/2019
閱讀權限: 20
性別: 男
註冊時間: 2020-7-9
最後登錄: 2021-2-17

2^#

發表於 2021-1-27 23:21 | 只看該作者

https://docs.microsoft.com/zh-tw/office/vba/api/excel.application.ontime
Schedule 選用false

帖子: 12
主題: 4
精華: 0
積分: 66
點名: 4
作業系統: windows
軟體版本: 2010
閱讀權限: 20
性別: 女
註冊時間: 2019-4-21
最後登錄: 2021-1-30

3^#

發表於 2021-1-28 07:56 | 只看該作者

回復 2# cody

Sub 結束視窗()
Application.OnTime EarliestTime:=TimeValue("00:00:10"), _
Procedure:="資料剝析", Schedule:=False
'Workbooks("加工剩餘數.xlsm").Close SaveChanges:=False
End Sub

是這樣寫法嗎?! 但我執行時會出現

執行階段錯誤'1004'
'OnTime'方法('_Application'物件)失敗

帖子: 12
主題: 4
精華: 0
積分: 66
點名: 4
作業系統: windows
軟體版本: 2010
閱讀權限: 20
性別: 女
註冊時間: 2019-4-21
最後登錄: 2021-1-30

4^#

發表於 2021-1-28 10:18 | 只看該作者

回復 2# cody

我找到問題了，我把解釋的單字也寫入難怪執行錯誤
改成 Application.OnTime fireTime, "下午更新", False 就可以了 :lol :lol

帖子: 12
主題: 4
精華: 0
積分: 66
點名: 4
作業系統: windows
軟體版本: 2010
閱讀權限: 20
性別: 女
註冊時間: 2019-4-21
最後登錄: 2021-1-30

5^#

發表於 2021-1-28 12:10 | 只看該作者

回復 2# cody

Private Sub CommandButton1_Click() --寫在工作頁裡
Call 結束視窗
   End Sub

Sub 結束視窗()--此程式是放在"模組"裡
Application.OnTime fireTime, "下午更新", False
  End Sub

or

  Application.OnTime Now+ TimeValue("00:00:05"), "下午更新", False

時間到了還是會自動執行  是那裡出了問題

帖子: 12
主題: 4
精華: 0
積分: 66
點名: 4
作業系統: windows
軟體版本: 2010
閱讀權限: 20
性別: 女
註冊時間: 2019-4-21
最後登錄: 2021-1-30

6^#

發表於 2021-1-28 15:53 | 只看該作者

RE: 巨集自動執行

回復 cody

Private Sub CommandButton1_Click() --寫在工作頁裡
Call 結束視窗
End Su ...
annie.l 發表於 2021-1-28 12:10

加工剩餘數-123.zip (25.66 KB)

版主 Rank: 7 Rank: 7 Rank: 7

准提部林

帖子: 2315
主題: 9
精華: 0
積分: 2371
點名: 0
作業系統: 〔略〕
軟體版本: 〔略〕
閱讀權限: 100
性別: 男
來自: 〔略〕
註冊時間: 2013-5-13
最後登錄: 2021-3-1

7^#

發表於 2021-1-29 10:29 | 只看該作者

模組區:
public uTime '頂端宣告共用變數

Sub 剩餘數計算()
........
Call 更新
End Sub

Sub 更新()
If Time <= TimeValue("19:00:00") Then
uTime= Now + TimeValue("00:05:00")
Application.OnTime uTime, "剩餘數計算"
End If
End Sub

Sub 結束視窗()
on error resume next
Application.OnTime uTime, "剩餘數計算", Schedule:=False
on error goto 0
Workbooks("加工剩餘數.xlsm").Close SaveChanges:=False
End Sub

帖子: 12
主題: 4
精華: 0
積分: 66
點名: 4
作業系統: windows
軟體版本: 2010
閱讀權限: 20
性別: 女
註冊時間: 2019-4-21
最後登錄: 2021-1-30

8^#

發表於 2021-1-29 14:53 | 只看該作者

回復 7# 准提部林

請問版大
on error 兩段的用意是什麼
on error 是call結束視窗觸發的嗎?!

Sub 結束視窗()
on error resume next
Application.OnTime uTime, "剩餘數計算", Schedule:=False
on error goto 0
Workbooks("加工剩餘數.xlsm").Close SaveChanges:=False
End Sub