利用VBA代码实现Msgbox函数定制化消息框

NO.155：Msgbox函数实现定制化人机对话消息框

NO.156：在关闭工作簿前使用MsgBox函数显示一个消息框，并根据用户的回应用进行相应的操作。

VBA过程代码155：Msgbox函数实现定制化人机对话消息框

Sub mynz ()

MsgBox Prompt:='欢迎光临【VBA语言】学习平台，让我一起学习！', _

Buttons:=vbOKCancel + vbInformation, _

Title:='温馨提示'

End Sub

代码的解析说明：mynz过程使用MsgBox函数显示一个具有特定的按钮、图标和标题栏的消息框。代码设置消息框的Buttons参数为vbOKCancel + vbInformation,，vbOKCancel如上的列表中'第一组设置消息框按钮数目和类型'使消息框显示时具有'确定'、'取消'按钮和信息消息图标。vbInformation是显示信息消息图标。代码将消息框的Title参数设置为'温馨提示'，使消息框的标题栏显示'温馨提示'。

----------------------------------------------------------------------------------------------------------------------

VBA过程代码156：在关闭工作簿前使用MsgBox函数显示一个消息框，并根据用户的回应用进行相应的操作。

我在讲MsgBox函数的时候是作为人机对话函数引入的，在MsgBox函数弹出对话框后，需要我们输入我们的需求，这时计算机会根据我们的需求来进行下一步的操作。如果我们的需求是不同的，希望计算机能根据我们的需求，也就是说对于消息框的不同选择，计算机进行相应的操作，那么能否实现呢？可以的，完全可以。因为MsgBox函数的返回值是有严格要求的：MsgBox函数的返回值如下表所示，在程序代码中也可以使用常数名称，而不必使用实际数值。

如下面的代码所示：

Private Sub Workbook_BeforeClose(Cancel As Boolean)

Dim MyiMsg As Integer

MyiMsg = MsgBox('文件即将关闭,您是否要保存呢?', VbYesNoCancel + VbQuestion)

Select Case MyiMsg

Case 6

Me.Save

Case 7

Me.Saved = True

Case 2

Cancel = True

End Select

End Sub

代码的解析说明：：工作簿的BeforeClose过程，在关闭工作簿前使用MsgBox函数显示一个消息框，并根据用户的回应用进行相应的操作。使用MsgBox函数显示一个具有'是'、'否'和'取消'按钮的消息框，并期待用户的回应，即消息框的返回值赋给变量MyiMsg。MsgBox是一个函数，这意味着它将返回一个值，如果希望获得返回值，可使用和第3行相似的代码，此时如果不使用括号将参数封闭起来，则会提示编译错误，

VBA实现自己小型办公自动化的有效手段，我根据自己20多年的VBA实际利用经验，现推出了四部VBA教程，这些是我多年编程经验的记录，也是我'积木编程'思想的体现。每一讲都是较大块的'积木'，可以独立的完成某些或者某类的过程，有需要的朋友可以联络（WeChat:NZ9668）分享。利用这些可以提高自己的编程效率。其一：'VBA代码解决方案'PDF教程，是VBA中各个知识点的讲解，覆盖了绝大多数的知识点，是初学及中级以下人员必备；其二'VBA数据库解决方案'PDF教程，数据库是数据处理的利器，对于中级人员应该掌握这个内容了。其三'VBA数组与字典解决方案'PDF教程，讲解VBA的精华----字典，是我们打开思路，提高代码水平的必备。其四'VBA代码解决方案'视频教程。目前正在录制，'每天20分钟，半年精进VBA'，越早参与，回馈越多。现在录制到第二册的90讲。