Re: [算表] 請教一個 PopMsg.Popup 的問題
※ 引述《kangkangTaa (智障很忙)》之銘言:
: 軟體: excel 2007
: 版本: 2007
: 各位大師好,我從網路上擷取一段VBA讓他可以自動計時更新
: 但是碰到一個問題,Popup的視窗只有第一次會倒數計時關掉
: 第二次、第三次...等,無法自動關閉popup續流程
: 程式碼如下:
: -------------------------------------
: Sub Auto_Run_2()
: QQ = PopMsg.Popup("是否要執行更新!", 5, "提示訊息", 1 + 32 + 256) '〔詢問
: If QQ = vbCancel Then GoTo 101 '按〔取消〕不執行
: Call 進度表更新
: 101:
: T = Now + TimeValue("00:00:03") '3秒遞迴,閞檔前,按〔停止〕再等3秒以上再關
: Application.OnTime T, "Auto_Run_2"
: End Sub
自問自答,經過不斷的Try & Error後發現 popmsg.popup 無法自動關閉
的原因為還"呈現"複製狀態, 加上 Application.CutCopyMode = False 就可以了
感謝大家的回覆!
--
※ 發信站: 批踢踢實業坊(ptt.cc), 來自: 42.74.10.95
※ 文章網址: http://www.ptt.cc/bbs/Office/M.1397108395.A.3A9.html
討論串 (同標題文章)
本文引述了以下文章的的內容:
完整討論串 (本文為第 2 之 2 篇):
Office 近期熱門文章
PTT數位生活區 即時熱門文章