- 帖子
- 2798
- 主題
- 10
- 精華
- 0
- 積分
- 2854
- 點名
- 0
- 作業系統
- 〔略〕
- 軟體版本
- 〔略〕
- 閱讀權限
- 100
- 性別
- 男
- 來自
- 〔略〕
- 註冊時間
- 2013-5-13
- 最後登錄
- 2024-4-15
|
模組區:
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 |
|
發表於 2021-1-29 10:29
| 