VBA 自动关闭 弹出的对话框 + VBA错误捕捉

自动关闭 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 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

原文地址:https://blog.51cto.com/alun51cto/2392898

时间: 2024-10-16 17:31:08

VBA 自动关闭 弹出的对话框 + VBA错误捕捉的相关文章

如何解决弹出“密码长度无效”错误的问题

在使用Advanced Office Password Recovery破解office密码的过程中,用户可能因为自身操作错误或者系统原因产生不同的问题,操作错误问题是可以及时修改的,但是系统问题需要耗费更多的时间和精力才能解决.如果在使用Advanced Office Password Recovery过程中弹出“密码长度无效”的错误对话框不用着急,这属于操作错误是可以及时更改的,下面就和大家分享一下如何解决弹出“密码长度无效”错误的问题? 1.产生“密码长度无效”错误的原因 “密码长度无效”

jQuery Dialog弹出层对话框插件

Dialog.js的相关注释已经添加,可以按照注释,进行相关样式的修改,适用于自定义的各个系统! dialog.js 1 /** 2 * jQuery的Dialog插件. 3 * 4 * @param object content 5 * @param object options 选项. 6 * @return 7 */ 8 function Dialog(content, options) 9 { 10 var defaults = { // 默认值. 11 title:'标题', // 标

android 中在activity弹出一个对话框,并不会执行onpause生命周期方法

在实际的应用开发中,我们可能会在onResume中进行网络交互,在网络交互的过程中免不了使用Progressdialog,那么现在问题来了,在我们弹出一个进度对话框的时候如果我们的activity的onpause生命方法得到执行,然后在数据加载完毕,对话框进行消失的时候,activity的onResume再次得到执行,然后再次请求网络,这样一个恶性循环就开始了,这样的错误实在是太严重了,当然了上面只是在我的想象之中,然后就用代码实验了下,在弹出一个对话框的时候我们activity的onpause

Webdriver实现下载功能,屏蔽掉windows弹出的对话框,FireFox下设置浏览器的属性,两种实现方式:

一.使用一个全新的FireFox浏览器打开Web应用,浏览器不带任何插件,也未对浏览器做任何默认配置,但需要对浏览器属性进行配置 // 获取浏览器的所有配置文件 ProfilesIni allProfiles = new ProfilesIni(); // "Selenium" 是之前创建的profile,不带任何插件,也未对浏览器做任何默认配置 FirefoxProfile profile = allProfiles.getProfile("selenium");

ASP.net后台弹出消息对话框的方法!【转】

在winform后台,我们通过MessageBox.show(“消息")的方式来返回后台信息,在webform后台,我们通过Response.write(”消息")来返回后台消息,但这样需要将消息值以字符串形式显示到前台页面,是否有类似于MessageBox.show("消息")的方式弹出信息呢.我们会很快想到javascript的alert方法.通过在后台调用js来实现alert的调用.用法为:Response.write("<script>

Android编程:底部弹出的对话框

本文博客链接:http://blog.csdn.net/jdh99,作者:jdh,转载请注明. 环境: 主机:WIN10 开发环境:Android Studio 2.2 Preview 3 说明: 两种方法实现底部弹出的对话框: Dialog DialogFragment 推荐用DialogFragment 效果图: 布局文件dialog_select_call.xml: <?xml version="1.0" encoding="utf-8"?> &l

MFC 弹出模态对话框

在一个稍微大一点的程序中往往需要多个窗体来进行交换.有些窗体的出现是为了提醒用户注意或是为了实现一项指定功能,不希望用户在关闭这个窗口前对相应程序的其他窗体进行操作,这个时候会用到模式对话框,本文所讲的就是如何在 MFC 中创建一个最为简单的对话框,并在一定条件下以模态弹出该对话框. 第一步:创建对话框,在程序的资源视图中Dialog文件夹处右键->插入对话框 第二步:为对话框添加对应的对话框类,双击相应对话框视图->在弹出的"MFC添加类向导"中填入对话框类名->点

从仿QQ消息提示框来谈弹出式对话框

<代码里的世界> -UI篇 用文字札记描绘自己 android学习之路 转载请保留出处 by Qiao http://blog.csdn.net/qiaoidea/article/details/45896477 [导航] - 自定义弹出式对话框的简单用法 列举各种常见的对话框实现方案 1.概述 android原生控件向来以丑著称(新推出的Material Design当另说),因此几乎所有的应用都会特殊定制自己的UI样式.而其中弹出式提示框的定制尤为常见,本篇我们将从模仿QQ退出提示框来看一

解决每次启动都弹出UAC对话框

1.下载并安装微软官方工具 Microsoft Application Compatibility Toolkit 2.右击“Microsoft Application Compatibility Toolkit 5.5”程序组中的“Compatibility Administrator”,选择“以管理员身份运行”,单击“是”打开该工具. 3.单击工具栏上的“New”按钮,然后右击“Custom Databases”下的“New Database(1)”出现菜单,选择“Create New”下的