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(&qu泠贾高框ot;退出程序吗?", vbYesNo + vbQuestion, "提示") If intReturn <> vbYes Then Cancel = True这里解释一下定义return变量为一个双字节,当变量RETURN不为yes时,则所有操作取值取消。
7、输入完成好,我们切换回excel工作表,点击右上角x关闭工作表,会弹出提示。至此本次操作正确。
8、先写到这里了,谢谢大家的观看。祝大家生活愉快。小编还有许多其他的经验可以观看,如果无法解决问题可以联系小编进行咨询。看不清楚图片的可以点击放大再看哦。