VBA精彩代码分享-2

╰半夏微凉° 2021-12-22 23:25 343阅读 0赞

VBA开发中经常需要提示消息框，如果不关闭程序就会暂时中断，这里分享下VBA如何实现消息框的自动关闭，总共有三种方法：

**第一种方法**

Public Declare Function MsgBoxTimeOut Lib "user32" Alias "MessageBoxTimeoutA" (ByVal hwnd As Long, ByVal lpText As String, ByVal lpCaption As String, ByVal wType As Long, ByVal wlange As Long, ByVal dwTimeout As Long) As Long
    Public Sub 录入对话()
     '过程,"弹出对话","对话框标题",图标类型,默认参数,N秒后自动关闭
    MsgBoxTimeOut 0, "录入完毕!!", "提示", 64, 0, 1500
    End Sub

**第二种方法**

Sub pop()
    Dim wsh As Object
    Set wsh = CreateObject("wscript.shell")
    wsh.popup "请您输入有效数字", 1, "注意", vbInformation
    'CreateObject ("wscript.shell").popup "请您输入有效数字", 1, "注意", vbInformation
    End Sub

**第三种方法**

Public Declare Function SetTimer Lib "user32" (ByVal hwnd As Long, ByVal nidevent As Long, ByVal uelaspe As Long, ByVal lptimerfunc As Long) As Long
    Public Declare Function KillTimer Lib "user32" (ByVal hwnd As Long, ByVal nidevent As Long) As Long
    Dim TID As Long
    Const sec = 3
    Sub closetest(ByVal hwnd As Long, ByVal umsg As Long, ByVal idevent As Long, ByVal systime As Long)
    Application.SendKeys "~", True
    KillTimer 0, TID
    End Sub
    Sub 三秒钟后关闭()
    TID = SetTimer(0, 0, sec * 1000, AddressOf closetest)
    MsgBox sec & "秒钟自动关闭窗口", 65, "提示"
    End Sub

转载于:https://www.cnblogs.com/JTCLASSROOM/p/10880998.html

发表评论取消回复

表情：

评论列表（有 0 条评论，343人围观）

还没有评论，来说两句吧...

相关阅读

相关 vba写一个数组排序代码

VBA 中可以使用内置的快速排序算法来排序数组，例如下面的代码： Sub SortArray() Dim arr() As Variant a

向右看齐/ 2024年03月25日 18:44/ 0 赞/ 56 阅读

相关 2. VBA Excel宏

完整版下载链接： [https://download.csdn.net/download/xijinno1/87716168][https_download.csdn.net_

落日映苍穹つ/ 2023年10月09日 18:47/ 0 赞/ 78 阅读

相关 linux shell bash 精彩脚本示例,Linux Shell Bash 精彩脚本示例(2)

33 34 echo; echo "Done copying $OF to CDR on device $CDROM." 35 36 echo "Do you want

蔚落/ 2023年01月20日 14:53/ 0 赞/ 37 阅读

相关 Linux 2.6内核的精彩世界(二)

Linux 2.6 内核的精彩世界 ( 二 ) 整理： Ackarlix 深入 Linux 除了横向支持越来越多的硬件， Linux 2.6 还在已支持的平台

清疚/ 2022年09月19日 15:19/ 0 赞/ 189 阅读

相关 Linux 2.6内核的精彩世界(三)

Linux 2.6 内核的精彩世界 ( 三 ) 整理： Ackarlix 核心硬件支持随着 Linux 的这些年的发展并逐步进入主流行列，从内核所支持的设备类型来看，每

骑猪看日落/ 2022年09月19日 15:19/ 0 赞/ 182 阅读

相关 VBA 精选示例代码库

![在这里插入图片描述][1464c3848f92478e9817992afd78d990.gif_pic_center] --------------------

阳光穿透心脏的1/2处/ 2022年09月11日 05:13/ 0 赞/ 175 阅读

相关分享一些精彩的webGL示例

WebGL 是一项在网页浏览器呈现3D画面的技术，有别于过去需要安装浏览器插件，通过 [WebGL][] 的技术，只需要编写网页代码即可实现3D图像的展示。WebGL 可以为

太过爱你忘了你带给我的痛/ 2022年05月30日 02:38/ 0 赞/ 250 阅读

相关 VBA精彩代码分享-2

VBA开发中经常需要提示消息框，如果不关闭程序就会暂时中断，这里分享下VBA如何实现消息框的自动关闭，总共有三种方法：第一种方法 Public Declare F

╰半夏微凉°/ 2021年12月22日 23:25/ 0 赞/ 344 阅读

相关如何设置VBA代码的密码?如何取消VBA代码的密码?

经常有网友问，用Access把软件开发好了，怎么样设置VBA代码的密码？以保护自己的代码不被同事修改。这里简单整理了一下。设置VBA代码的密码及取消VBA代码的密码

一时失言乱红尘/ 2021年11月05日 16:36/ 0 赞/ 636 阅读

相关怎样进行一场精彩的知识分享?

![在这里插入图片描述][watermark_type_ZmFuZ3poZW5naGVpdGk_shadow_10_text_aHR0cHM6Ly9ibG9nLmNzZG4ub

快来打我*/ 2021年09月21日 05:28/ 0 赞/ 784 阅读