实现 消息提醒图标_利用VBA代码实现Msgbox函数定制化消息框

分享成果，随喜真能量。大家好，今日内容仍是和大家分享VBA编程中常用的简单“积木”过程代码，这些内容多是取至我的“VBA代码解决方案”教程中内容。NO.155-NO.156内容是：

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讲。