VBA窗体模拟msgbox弹出提示,不干扰代码运行及用户操作,可定时关闭

昨天有人问到是否有类似msgbox可弹出提示显示程序运行中变量 同时让代码继续执行
系统自带的msgbox是完全挂起所有操作的 系统api及wscript可以不中断excle界面操作,但是会中断后续代码
貌似没有很简单的方法实现 还是老老实实写一个窗体来 
这个纯提示窗体 程序中弹出窗体时  不影响任何操作 不影响代码继续执行 也可以指定默认T秒后自动关闭  
对于运行时实时提示 或者监控提醒 这个还是比较有用的
当然如果纯粹的只需要输出一点运行信息 用状态栏更方便了Application.Statusbar="信息"
这个窗体写好后 其他项目只需导入窗体文件 
调用也很简单

'-----------Sub Msg----------Copyright@百度不到去谷歌 QQ80871835 2014/4/16---------------------------
'功能 : '显示提示窗口,无模式,不影响excel操作,不中断后续代码,可指定延后t秒关闭
'变量 : s  要显示的消息
'       T  需要延时T秒自动关闭,若不填则需要用户点确定关闭
'---------------------------------------------------------------------------------------------------------
Public Sub Msg(s$, Optional ByVal T)

调用举例

1. Public Sub test()
   

2.     Dim i
   

3.     For i = 1 To 10000
   

4.         If i = 5000 Then Fmsg.Msg (i), 2 '弹出5000提示,2秒后消失,其他代码及操作均不受影响
   

5.         [A1] = i '该处代码在弹出窗体时也会一直执行
   

6.     Next
   

7. End Sub

复制代码

运行效果


附件里有改写的另一位朋友写的弹出式消息框 需要的人也可以试试 那个快捷方便 只是也会挂起代码运行