返回列表 上一主題 發帖

強制 msgbox 出現在前景視窗 ?

stillfish00

帖子
1018 
主題
15 
精華
0 
積分
1058 
點名
0  
作業系統
win7 32bit 
軟體版本
Office 2016 64-bit 
閱讀權限
50 
性別
男 
來自
桃園 
註冊時間
2012-5-9 
最後登錄
2022-9-28 
1# 跳轉到 » 倒序看帖
打印
tT
發表於 2013-5-6 14:21 | 顯示全部帖子

強制 msgbox 出現在前景視窗 ?

最近遇到個問題是VBA程式執行中，如果切換到其他非Excel視窗(如PowerPoint、Notepad)，彈出的 msgbox 訊息就不會出現在前景，Excel 這時會閃爍，除非你再點一次 Excel 你的訊息視窗才會出現。

有沒有辦法強制它出現不用再點一次 Excel 呢? 我測試了 vbMsgBoxSetForeground 和 vbSystemModal 好像都沒效?

Sub Test()
    Application.Wait Now + TimeValue("00:00:05")    '等五秒，此時你手動切換到其他軟體視窗
    MsgBox "Finish!", vbMsgBoxSetForeground + vbSystemModal
End Sub
收藏 分享

stillfish00

帖子
1018 
主題
15 
精華
0 
積分
1058 
點名
0  
作業系統
win7 32bit 
軟體版本
Office 2016 64-bit 
閱讀權限
50 
性別
男 
來自
桃園 
註冊時間
2012-5-9 
最後登錄
2022-9-28 
2#
發表於 2013-5-7 20:52 | 顯示全部帖子
回復 1# stillfish00
問題已解決，自己回答
後來採用以下方法，利用AppActivate 重新 Focus EXCEL 就可以了

Sub Test()
    Application.Wait Now + TimeValue("00:00:05")    '等五秒，此時你手動切換到其他軟體視窗
    AppActivate Application     '或 AppActivate Application.Caption
    MsgBox "Finish!"
End Sub

TOP

        靜思自在 : 人的心地是一畦田，土地沒有播下好種子，也長不出好的果實。 -
返回列表 上一主題