vba怎么关闭msgbox对话框（VBA实例教程Msgbox消息框）

vba怎么关闭msgbox对话框（VBA实例教程Msgbox消息框）MsgBox "这是一条欢迎信息" vbOK "标题1"Sub msg2()Msgbox “这是一条欢迎信息"End sub结果如图：

MsgBox函数显示一个消息框，并等待用户点击一个按钮，然后根据用户点击的按钮执行相关的操作。语法 MsgBox( Prompt [Buttons] [Title] [HelpFile] [Context] )

参数说明

返回值

MsgBox函数可以返回以下值之一，可用于标识用户在消息框中单击的按钮。

例1 显示一条信息

Sub msg1()

Msgbox “这是一条欢迎信息"

End sub

结果如图：

例2 显示一条带标题的信息

Sub msg2()

MsgBox "这是一条欢迎信息" vbOK "标题1"

End Sub

例3显示交互信息

Sub msg3()

Dim answer As VbMsgBoxResult

answer = MsgBox("上面的两个例子看明白了吗?" vbYesNo)

If answer = vbYes Then

MsgBox "你太棒了！"

Else

MsgBox "加油，再学一遍吧"

End If

End Sub

该消息框显示信息："上面的两个例子看明白了吗?"，当用户选择“是”时，弹出一个消息框"你太棒了！"，当用户选择“否”时，显示 "加油，再学一遍吧"

点击“是”，显示“你太棒了！”

前面在返回值一段讲过，vbyes返回值为6，

If answer = vbYes Then

可以写成

If answer = 6 Then

可以得到一样的效果。