［Excel VBA］如何自动关闭MsgBox？

最新推荐文章于 2023-10-26 11:23:24 发布
最新推荐文章于 2023-10-26 11:23:24 发布
阅读量1.5w 收藏 7
点赞数 2
分类专栏： VBA

本文译至：http://itpro.nikkeibp.co.jp/atcl/column/15/090100207/090700150/

VBA的MsgBox函数，直到用户点击按钮前都会继续显示。经过指定时间后自动关闭的MsgBox，可以使用Windows Scripting Host（WSH）的Popup方法。

参数可以指定，显示消息，到关闭时的执行时间（秒），消息框的标题，图标或按钮的种类这四项。。后面的三者可以省略。表示图标或按钮种类的常量，「vbInformation」表示「i」的图标，「vbCritical」表示「×」的警告图标，「vbQuestion」表示「？」的图标，「vbExclamation」表示「！」的注意图标。此外，「vbOKCancel」「vbYesNoCancel」等常量也能指定按钮的种类。



 

HaveFunInLinux
关注
  • 2
    点赞
  • 踩
  • 7
    收藏
    觉得还不错? 一键收藏
  • 0
    评论
专栏目录
msgbox出现3秒自动消失
06-04
在我们的印象中，VB 所提供的 MsgBox 是一个强制回应的视窗，您一定要按了其中的某一个 CommandButton 之后，它才会关闭！但是在某些软体中，我们会看到，明明是使用系统的 MsgBox，可是您如果不理它，几秒钟之后，它就自行关闭了！别人是如何做到的呢？这个问题偶而会出现在讨论区中，有的人会回答： 只要自己做一个类似 MsgBox 的视窗，就可以自己用 Timer 来控制这个视窗何时要关闭了！ 但是，其实不用这么麻烦的，只要使用系统的 MsgBox 再加一个 Timer 就可以控制了！
VBA实现可自动延时关闭消息框VBA代码示例，自动消失的MsgBox实现方法，可以在Excel VBA自动化程序中采用
08-17
VBA实现可自动延时关闭消息框VBA代码示例，自动消失的MsgBox实现方法，可以在Excel VBA自动化程序中采用。 MsgBox用于显示提示信息，但用Msgbox显示消息框时，VBA代码过程将处于暂停状态，并且可以根据用户的不同选择执行不同的后续操作。如果用户不进行操作，后续代码不能执行，这个问题不利于我们设计自动化执行的程序。而原生VBA中提供的MsgBox无法实现自动关闭的功能。 那么使用这里分享的VBA代码可以自动关闭的消息框，从而避免程序暂停挂起，无法继续执行的问题。这里分享了两种代码实现方法，可以完美实现自动关闭的消息框。有兴趣可以下载使用哦。 具体效果看CSDN视频链接：https://live.csdn.net/v/317670
VB 实现倒计时自动关闭的MsgBox对话框
02-27
VB 实现倒计时自动关闭的MsgBox对话框。这种对话框对于需要在自动关闭的对话中时候，非常棒。VB 实现倒计时自动关闭的MsgBox对话框。这种对话框对于需要在自动关闭的对话中时候，非常棒。
Excel+VBA自动关闭消息框源代码
11-22
EXCEL VBA未公开的内部函数，实现自动延时关闭对话框，可自定义延时时间。
VBA 自动定时关闭的msgbox对话框
最新发布
记录
10-26 1069
最后参数dwTimeout表示要设置的时间（单位：毫秒），2000就表示2秒。标准模块中插入如下代码。
在Excel VBA中实现可自动延时关闭的消息框 - 可替代Msgbox函数
wang_spray的博客
08-06 1348
用过Excel VBA的应该都知道可以使用MsgBox在创建弹出式消息对话框，但是MsgBox创建的消息对话框必须人为关闭，如果不人为干预程序将挂起影响一些自动化程序顺畅度。这里分享了两种办法在VBA中如何创建一个完全无需人工干预的延时自动关闭的弹出式消息对话框。
未公开的秘密花园--VBA中实现自动关闭消息框
神奇的BI
02-28 4719
显示消息框时，代码过程将处于暂停状态，如果用户没有进行选择，后续代码无法执行。 如果消息框只是提醒用户，并不需要获取用户的输入，那么使用可以自动关闭的消息提示框，可以避免程序暂停挂起，无法继续执行的问题，但是VBA中提供的MsgBox无法实现自动关闭的功能。下面介绍一个未公开的Windows API函数，可以完美实现自动关闭的消息框。
【懒到极致】消息框MsgBox自动关闭功能
08-30 3903
今天给大家分享一个简单的示例。 我们在使用系统时，经常会使用到消息提示（MsgBox），但消息提示后，总是显示在那里，需要我们点击一下确定，点击后信息框才会不显示，这样总是很不方便，如果信息能自动关闭该多好，这样我们就可以完全“躺平”了，那我们今天就来做这个简单而实用的功能。 我们直接上代码，这里用到API，用来自动关闭信息框。 API代码 PrivateDeclareFunctionMessageBoxTimeoutLib"user32"Alias"MessageB...
【VBA研究】定时关闭MsgBox及相关未公开的API
驽马十驾 才定不舍
12-16 3551
iamlaosong文     大家都知道，VBA中自带的MsgBox不能自动关闭，某些特殊情况下需要在指定时间内用户没有点击消息框按钮后能继续运行代码，需要用到定时关闭的消息框，我一般都是自己做一个窗体显示，再用定时函数关闭对话框。方法如下： 1、创建窗体UserForm1，窗体的初始化函数最简单如下： Private Sub UserForm_Initialize()     Labe
VBA，如何使用类msgbox的效果，但是让窗口过几秒自动关闭？ （未完成）
奔跑的犀牛先生
03-14 9348
1 Scripting Host（WSH）的Popup方法--测试不好用？ 不知道为啥测试不好用 测试情况，也不能显示倒计时秒数， Sub test_sample1() 'Scripting Host（WSH）的Popup方法。 Dim w1 As Object Set w1 = CreateObject("wscript.shell") w1.popUp "3秒自动关闭", ...
自动关闭msgbox
06-21
在给定时间内自动关闭。已经应用到工程项目中。
msgbox对话框，倒计时自动关闭
09-09
代码有点小复杂，，能做成通用控件就好了！！不知谁来做一下，，给广大码农造福，，,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,
Excel VBA自动关闭消息框源代码
02-21
Excel VBA自动关闭消息框源代码 Excel VBA自动关闭消息框源代码
excel vba是什么？.docx
09-26
Excel VBA，全称为 Visual Basic for Application，是一种自动化语言，可以使常用的程序自动化，创建自定义的解决方案。它可以模拟人工操作，完成一些繁琐的事情，例如自动化重复的任务、自定义 EXCEL 工具栏、菜单...
hebing.rar_Excel VBA
09-20
标题 "hebing.rar_Excel VBA" 暗示了这个压缩包包含的是关于使用Excel的VBA（Visual Basic for Applications）编程来实现自动化任务，特别是针对多个Excel工作簿的合并功能。VBA是Microsoft Office应用程序中内置的...
Excel-VBA宏编程实例源代码-显示出会自动关闭的信息对话框.zip
12-15
本压缩包"Excel-VBA宏编程实例源代码-显示出会自动关闭的信息对话框.zip"包含了展示如何使用VBA创建一个自动关闭的信息对话框的源代码。这个实例对于学习VBA编程，尤其是那些希望提升Excel自动化能力的用户非常有...
提取word表格数据到Excel的vba程序代码
04-13
标题中的“提取word表格数据到Excel的vba程序代码”是指使用VBA（Visual Basic for Applications）编程语言，编写一个宏来实现从Microsoft Word文档中的表格自动抽取数据并存储到Excel工作表中。这个过程可以大大...
VBA 改造msgbox 可以倒计时自动关闭
weixin_34383618的博客
05-04 1465
'Download by http://www.NewXing.com '标准模块：Module1.bas Option Explicit Private Declare Function timeSetEvent Lib "winmm.dll" (ByVal uDelay As Long, ByVal uResolution As Long, ByVal lpFunction As...
VBA 自动关闭 弹出的对话框 + VBA错误捕捉
weixin_34238633的博客
05-11 6986
自动关闭 Msgbox对话框： Private Declare Function MsgBoxEx Lib "user32" Alias "MessageBoxTimeoutA" (ByVal hwnd As Long, ByVal lpText As String, ByVal lpCaption As String, ByVal wType As VbMsgBoxStyle, ByVal wl...
excel VBA中如何设置自动关闭信息框
07-08
在Excel VBA中，可以使用`Application.OnTime`方法来设置自动关闭信息框。下面是一个示例代码： ```vba Sub AutoCloseMsgBox() ' 显示消息框 MsgBox "这是一个自动关闭的消息框", vbInformation, "消息框标题" ' 定时关闭消息框 Application.OnTime Now + TimeValue("00:00:05"), "CloseMsgBox" End Sub Sub CloseMsgBox() ' 关闭消息框 On Error Resume Next ' 忽略错误，以防消息框已经被手动关闭 Application.DisplayAlerts = False ' 禁止显示警告对话框 Application.SendKeys "%{F4}" ' 发送Alt+F4键盘快捷键 Application.DisplayAlerts = True ' 恢复显示警告对话框 End Sub ``` 在上面的示例中，`AutoCloseMsgBox`子过程用于显示消息框，并使用`Application.OnTime`方法来调用`CloseMsgBox`子过程，以在5秒后自动关闭消息框。`CloseMsgBox`子过程用于关闭消息框，通过发送Alt+F4键盘快捷键来实现。 请注意，在使用`Application.OnTime`方法时，需要确保Excel应用程序保持活动状态，否则定时事件可能无法触发。另外，由于使用了`SendKeys`方法来发送键盘快捷键，因此可能会受到一些限制或不可预测的行为。

“相关推荐”对你有帮助么？

  • 非常没帮助
  • 没帮助
  • 一般
  • 有帮助
  • 非常有帮助
提交
评论
添加红包

请填写红包祝福语或标题

个

红包个数最小为10个

元

红包金额最低5元

当前余额3.43元 前往充值 >
需支付：10.00元
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包
实付元
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明：

1.余额是钱包充值的虚拟货币，按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载，可以购买VIP、付费专栏及课程。

余额充值