在Excel VBA MsgBox函数可以返回一个结果,而一个简单的MSGBOX不能。

现状:

MsgBox Function Example

将工作表上的一个命令按钮并添加以下代码行:

1.首先,我们声明一个名为整数类型的答案变量。

Dim answer As Integer

2.我们使用MsgBox函数初始化变量答案来自用户的输入。

MsgBox函数,使用括号的时候,有三个参数。第一部分是用于在消息框中的消息。使用第二个部分,以指定要显示在消息框中的按钮和图标。第三部分被显示在消息框中的标题栏。

answer = MsgBox("Are you sure you want to empty the sheet?", vbYesNo + vbQuestion, "Empty Sheet")

注:将上vbYesNo光标Visual Basic编辑器,然后点击F1看你可以使用其他按钮和图标。取而代之的是常量vbYesNo和vbQuestion的,你也可以使用相应的值4和32

3.如果用户点击是按钮时,Excel VBA清空片。如果用户单击否按钮,没有任何反应。添加以下代码行来实现这一目标。

If answer = vbYes Then

Cells.ClearContents

Else

'do nothing

End If

4.单击片材上的命令按钮。

5.单击是。

Msgbox Function in Excel VBA

结果:

MsgBox Function Result