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

2017年2月24日12:37:35 评论 8,387 views
表格 定制  数据 合并 处理 分析 VBA 编程 开发 网页
表格 定制  数据 合并 处理 分析 VBA 编程 开发 网页
微信公众号 【EXCEL880】 QQ群【273774246】

昨天有人问到是否有类似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

复制代码

运行效果


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

微信公众号 【EXCEL880】 QQ群【273774246】
表格 定制  数据 合并 处理 分析 VBA 编程 开发 网页
表格 定制  数据 合并 处理 分析 VBA 编程 开发 网页

发表评论

您必须才能发表评论!