自动关闭 Msgbox对话框：

创新互联公司是一家专注于网站设计制作、做网站与策划设计,韩城网站建设哪家好?创新互联公司做网站,专注于网站建设十载,网设计领域的专业建站公司;建站业务涵盖:韩城等地区。韩城做网站价格咨询:18982081108

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 wlange As Long, ByVal dwTimeout As Long) As Long

 Private Sub 测试自动关闭对话框()
    MsgBoxEx 0, "显示内容：2秒后自动关闭", "标题", vbYesNo + vbInformation, 1, 2000
 End Su

错误捕捉：

例子一：

On Error Resume Next  '如果遇到错误，不管错误，继续往下执行，但如果嵌套了其他错误处理语句，这些错误处理语句还是会按照自己规则运行
      语句xxxx
On Error GoTo 0 ’结束错误捕捉

例子二：

Sub 例子过程()  

    On Error GoTo Err_Handle                 '之后语句出错则跳转至 Err_Handle 标签处

             处理语句1                                        '若出错，则跳转到 Err_Handle

     On Error GoTo 0                             '跳出错误捕捉，之后语句若出错,自动弹出出错框  
             处理语句2                                   '若出错则弹出错误,可调试或结束

       Exit Sub   '如果没有这个退出过程语句，会一直执行下去
Err_Handle:
        MsgBox ("不存在该数字")

End Sub

另外有需要云服务器可以了解下创新互联cdcxhl.cn，海内外云服务器15元起步，三天无理由+7*72小时售后在线，公司持有idc许可证，提供“云服务器、裸金属服务器、高防服务器、香港服务器、美国服务器、虚拟主机、免备案服务器”等云主机租用服务以及企业上云的综合解决方案，具有“安全稳定、简单易用、服务可用性高、性价比高”等特点与优势，专为企业上云打造定制，能够满足用户丰富、多元化的应用场景需求。

本文名称：VBA自动关闭弹出的对话框+VBA错误捕捉-创新互联
URL地址：http://myzitong.com/article/jgedi.html