Excel的VBA MsgBox函数
在Excel VBA MsgBox函数可以返回一个结果,而一个简单的MSGBOX不能。
现状:
将工作表上的一个命令按钮并添加以下代码行:
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.单击是。
结果: