Re: [算表] 請教一個 PopMsg.Popup 的問題

看板Office作者 (智障很忙)時間12年前 (2014/04/10 13:39), 編輯推噓0(000)
留言0則, 0人參與, 最新討論串2/2 (看更多)
※ 引述《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
文章代碼(AID): #1JHYwhEf (Office)
文章代碼(AID): #1JHYwhEf (Office)