MsgBox函数用法讲解

MsgBox函数的使用提示VBA msgbox使用摘要1、角色在消息框中显示信息，等待用户单击按钮，然后返回单击的按钮值(例如“确定”或“取消”)。通常用作显示变量值的一种方法。2，语法Msgbox (prompt ，buttons ，title ，helpfile，context)参数说明：(1)Prompt，消息框中显示的消息文本，必需参数，字符串。最大长度约为1024个字符，具体取决于使用的字符宽度。如果Prompt有多个行，则可以在每行之间通过回车(Chr(13)、换行符(Chr(10)或回车和换行符组合(Chr(13)Chr(10)分隔每行。(2)通过指定Buttons、可选参数、数字表达式值的总和、显示的按钮的数量和格式、使用的图标样式、默认按钮和消息框的必需响应等，可以自定义消息框。如果省略此参数，则默认值为0。设定值如下表所示。(3)Title，可选参数，表示消息框标题栏中显示的文本。如果忽略此参数，应用程序名称将放置在标题栏中。(4)提供Helpfile、可选参数和字符串表达式的帮助文件。如果Helpfile存在，则必须存在Context。(5)Context，可选参数，提供数字表达式的帮助主题。如果存在Context，则必须存在Helpfile。3、Button参数MsgBox函数的Button参数中使用的常量常量值说明仅显示VbOKOnly 0检查按钮显示VbOKCancel 1“确定”和“取消”按钮显示VbAbortRetryIgnore 2退出、重试和忽略按钮VbYesNoCancel 3显示“是”、“否”和“取消”按钮显示VbYesNo 4“是”和“否”按钮VbRetryCancel 5显示“重试”和“取消”按钮VbCritical 16显示关键信息图标显示VbQuestion 32警告语句的图标显示VbExclamation 48警告消息图标显示VbInformation 64通知消息图标VbDefaultButton1 0第一个按钮为默认值(默认值)VbDefaultButton2 256第二个按钮是默认值VbDefaultButton3 512第三个按钮是默认值VbDefaultButton4 768第四个按钮是默认值强制返回VbApplicationModal 0应用程序；用户对消息框只有回答才能继续工作强制返回VbSystemModal 4096系统；所有应用程序都将停止，直到用户创建消息框为止只有答复才能继续工作在VbMsgBoxHelpButton 16384消息框中添加“帮助”按钮VbMsgBoxSetForeground 65536将“消息框”窗口指定为前景窗口VbMsgBoxRight 524288文本右对齐VbMsgBoxRtlReading 1048576指定文本在希伯来语和阿拉伯语系统中必须从右到左显示说明：(1)第一组值(05)说明消息框中显示的按钮的类型和数量。第二组值(16，32，48，64)描述图标的样式。第三组值(0，256，512，768)指示哪个按钮是默认值。第四组值(0，4096)确定消息框的强制返回。合并这些数字以生成Buttons参数值时，每个值集只能使用一个数字。(2)这些常量由VBA指定，程序代码可以使用这些常量名称代替实际值。4，返回值用于MsgBox函数返回值的常量常量值说明检查VbOK 1取消VbCancel 2结束VbAbort 3VbRetry 4重试忽略VbIgnore 5VbYes 6范例VbNo 7否5、相关说明(1)如果同时提供了Helpfile和Context参数，则可以按F1键查看与Context对应的帮助主题。通常，Excel会自动将“帮助”(Help)按钮添加到输入框中。(2)如果消息框中显示“取消”按钮，则按ESC键与单击“取消”按钮作用相同。如果消息框中有帮助按钮，则提供相关的帮助信息。(3)要输入多个参数并省略中间的某些参数，必须在该位置添加逗号分隔符。6，是(1)使用MsgBox函数在包含“是”和“否”按钮的对话框中显示严重错误消息。示例的默认按钮为否，MsgBox函数的返回值取决于用户按了哪个按钮。演示。hlp假定帮助文件包含帮助主题代码1000。Dimmsg、style、title、help、ctxt、response、mystringMsg=Do you want to continue？定义消息文本style=vbyes no VB critical VB default button 2定义按钮定义标题文本Title=MsgBox Demonstration Help=DEMO .定义“HLP”帮助文件Ctxt=1000定义帮助主题Response=msgbox (msg，style，title，help，ctxt)If Response=vbYes Then用户按Yes完成MyString=Yes 操作Else用户按下了“否”完成MyString=No 操作End If(2)仅显示消息MsgBox“Hello！”(3)将消息框返回的结果赋予变量Ans=msgbox (continue ？单击，vbYesNo)if msgbox(“continue”？单击，vbYesNo)vbYes Then Exit Sub(4)使用常量组合指定组Config变量，并将第二个按钮设置为默认按钮config=vbyes no VB question VB default button 2(5)要在消息中强制换行，请在文本中使用vbCrLf(或vbNewLine)常量作为字符分隔符。例如msgbox“this is the first line”“VB newline”second line。我想(6)您可以在讯息方块中使用vbTab常数插入页签。以下过程使用消息框显示55个单元格区域中的所有值，将列分隔为vbTab常量，并使用vbCrLf常量插入新行。MsgBox函数最多只能显示1024个字符，因此可以显示的单元格数是有限的。Option ExplicitSub ShowRangeValue()Dim Msg As StringDim r As Integer，c As IntegerMsg= For r=1 To 5For c=1 To 5Msg=Msg Cells(r，c) vbTabNext cMsg=Msg vbCrLfNext rMsgBox MsgEnd Sub(7)在消息框语句中使用工作表函数，然后设置显示的数字格式，如下所示：Msgbox selection has m cells . chr(13) The sum is : application . worksheet function . sum(selection)chr(13)The average is : function以下是具体的例子，示意图MsgBox函数可以返回值，但MsgBox语句不会返回值。MsgBox语句：用于弹出对话框。格式如下：MsgBox内容，类型 ，标题 ，帮助文件名，帮助主题目录号在IE地址栏中输入“javascript:alert(“欢迎XX”)，然后按enter键，就会出现弹出对话框“欢迎XX”在VB中，MsgBox语句也很容易实现，请在表单的单击事件中输入以下代码Private Sub Form_click()MsgBox(“欢迎XX”)End SubMsgBox内容，类型 ，标题 ，帮助文件名，帮助主题目录号内容参数，所需参数是长度不超过1024个字符的字符串。超过将跳过超出的部分。字符串内容显示在MsgBox语句弹出的对话框中。如果字符串未显示在一行中，则自动换行。也可以使用“chr$(13) chr$(10)”或“vbCrlf”强制换行。例如Private Sub Form_click()MsgBox“欢迎XX”Chr(13)Chr(10)“快乐XX每天！”End Sub运行后，将出现一个对话框，如下所示：类型参数，它是控制对话框中显示的按钮、图标类型和数量的整数值或符号常量。此参数的值由四种类型的数值或符号常量添加，指示按钮类型、显示图标的类型、活动按钮的位置和强制返回。但是，对于MsgBox语句，按钮类型和强制返回几乎不起作用，但是对MsgBox函数很有用。在MsgBox函数中，您可以使用“按钮”对话框中的按钮执行指定的操作。MsgBox类型参数的值：符号常数值有用按键按钮类类型VbOKOnly0仅显示“确定”按钮VbOKCancel1仅显示确定和取消按钮Vbabortretryinore2显示“放弃”、“重试”和“忽略”按钮VbYesNoCancel3显示是、否和取消按钮VbYesNo4显示是和否按钮VbRetryCancel5显示重试和取消按钮绘画标记样品风格VbCritical16显示系统叉图标VbQuestion32显示系统问号图标VbExclamation48显示系统感叹图标Vb信息64显示系统信息图标墨子承认按键按钮VbDefaultButton10第一个按钮是默认按钮VbDefaultButton2256第二个按钮是默认按钮VbDefaultButton3512第三个按钮是默认按钮VbDefaultButton4768第四个按钮是默认按钮强制性的回来VbApplicationModal0强制返回应用程序VbSystemModal4096强制返回系统例如：Private Sub Form_click()MsgBox“欢迎XX”Chr(13)Chr(10)“快乐XX每天！”，2End Sub运行后，将出现一个对话框，如下所示：例如：Private Sub Form_click()MsgBox“欢迎XX”Chr(13)Chr(10)“快乐XX每天！”，64End Sub运行后，将出现一个对话框，如下所示：要定义按钮类型和图标样式，可以将按钮类型的值直接与图标样式的值相加。示例：2 64Private Sub Form_click()MsgBox“欢迎XX”Chr(13)Chr(10)“快乐XX每天！”，66End Sub运行结果如下：Private Sub Form_click()MsgBox“欢迎XX”Chr(13)Chr(10)“快乐XX每天！”，66 512End Sub默认按钮更改为第三个按钮，运行结果如下：如果对话框中只有三个按钮，代码为“66 768”，则默认情况下选择第一个按钮。标题参数，指定对话方块中的标题栏框文字。例如：Private Sub Form_click()MsgBox“欢迎XX”Chr(13)Chr(10)“快乐XX每天！”，65 512，支援长End Sub运行结果：* * * * * * * * * * * * * * * * * *MsgBox函数，返回值之外的其他功能与MsgBox语句相同。MsgBox函数返回值可以是1到7之间的整数，该整数对应于选定了7个按钮的状态。返回值操作符号常数1选择“确定”按钮VbOk2选择“取消”按钮VbCancel3选择“结束”按钮VbAbort4选择“重试”按钮Vb