[算表] 請教一個 PopMsg.Popup 的問題
軟體: excel 2007
版本: 2007
各位大師好，我從網路上擷取一段VBA讓他可以自動計時更新
但是碰到一個問題，Popup的視窗只有第一次會倒數計時關掉
第二次、第三次...等，無法自動關閉popup續流程
程式碼如下：
-------------------------------------
Sub Auto_Run_2()
Dim T As Date, PopMsg As Object, QQ, xSht As Worksheet
Set PopMsg = CreateObject("Wscript.shell")
If uMode = 0 Then Exit Sub '程式開關，強迫本段程式停止
If UpdateChk = 1 Then GoTo 101 '更新程式尚未完成，跳至101行繼續遞迴
If TTChk < 3 Then TTChk = TTChk + 1: GoTo 101 '每３秒累計１，達１０次才執行更
新程式
TTChk = 0
QQ = PopMsg.Popup("是否要執行更新！", 5, "提示訊息", 1 + 32 + 256) '〔詢問
框〕等待５秒，若未處理將自動執行更新
If QQ = vbCancel Then GoTo 101 '按〔取消〕不執行
Call 進度表更新
101:
T = Now + TimeValue("00:00:03") '３秒遞迴，閞檔前，按〔停止〕再等３秒以上再關
閉檔案
Application.OnTime T, "Auto_Run_2"
End Sub
--------------------
1.以上，請大師們協助解惑
2.PopMsg.Popup("是否要執行更新！", 5, "提示訊息", 1 + 32 + 256)
其中 1 +32 +256 是什麼意思？
--
※ 發信站: 批踢踢實業坊(ptt.cc), 來自: 61.58.67.35
※ 文章網址: http://www.ptt.cc/bbs/Office/M.1396462371.A.456.html
→
04/03 04:42, , 1F
04/03 04:42, 1F
→
04/03 04:43, , 2F
04/03 04:43, 2F
→
04/03 10:21, , 3F
04/03 10:21, 3F
→
04/03 10:22, , 4F
04/03 10:22, 4F
→
04/03 10:34, , 5F
04/03 10:34, 5F
→
04/03 10:45, , 6F
04/03 10:45, 6F
討論串 (同標題文章)
以下文章回應了本文：
完整討論串 (本文為第 1 之 2 篇)：
Office 近期熱門文章
PTT數位生活區 即時熱門文章
