excel利用msgbox函数来避免误操作关闭程序

  1、首先让我们打开一个工作样表作为例子。

  2、按下alt+f11进入vba编辑模式, 并插入一个新模块命名为msg。并在模块内定义 a=msgbox(), 按下 F5运行后, 会弹出一个空白的对话框。

  3、 msgbox的参数与inputbox的参数类似 ,这里需要提出来的是: Value=MsgBox(prompt[,buttons][,title][ ,helpfile,context]) ,这里面buttons参数为数组组合,并且有规定的常量或数值,大家需要熟记一下。当然也可以借助vba的自动提示功能来辅助记忆。

  4、为了防止excel工作表被误关闭,我们需要这样做 。首先在左侧工程编辑栏中选择通用表格 。

  5、双击thisworkbook后在右侧对象选项和动作选项中分别选择workbook和beforeclose来创建一个模块。

  6、输入以下代码

  Dim intreturn As Integer

  intReturn = MsgBox("退出程序吗?", vbYesNo + vbQuestion, "提示")

  If intReturn <> vbYes Then Cancel = True

  这里解释一下定义return变量为一个整数值,当变量RETURN不为yes时,则所有操作取值取消。

  7、输入完成好,我们切换回excel工作表,点击右上角x关闭工作表,会弹出提示。至此本次操作正确。

1.《msgbox用法 excel如何使用msgbox函数》援引自互联网,旨在传递更多网络信息知识,仅代表作者本人观点,与本网站无关,侵删请联系页脚下方联系方式。

2.《msgbox用法 excel如何使用msgbox函数》仅供读者参考,本网站未对该内容进行证实,对其原创性、真实性、完整性、及时性不作任何保证。

3.文章转载时请保留本站内容来源地址,https://www.lu-xu.com/keji/407344.html