消息框函数 | 您所在的位置:网站首页 › vba中用于弹出信息框的函数 › 消息框函数 |
Excel VBA中的MsgBox 函数可以返回结果,而简单的 MsgBox 则不能。 比如有这样一个工作表: 在工作表上放置一个命令按钮并添加以下代码行: 1. 首先,我们声明一个名为 answer 的 Integer 类型变量。 Dim answer As Integer2. 我们使用MsgBox 函数根据用户的输入来初始化变量 answer 。 当使用括号时,MsgBox 函数具有三个参数。第一部分用于消息框中的消息。使用第二部分指定要在消息框中显示的按钮和图标。第三部分显示在消息框的标题栏中。 answer = MsgBox("您确定要清空工作表吗?", vbYesNo + vbQuestion, "清空工作表")注意:将光标放在 Visual Basic 编辑器中的 vbYesNo 上,然后单击 F1 查看可以使用哪些其他按钮和图标。除了常量 vbYesNo 和 vbQuestion,您还可以使用相应的值 4 和 32。 3. 如果用户单击“是(Yes)”按钮,Excel VBA 将清空工作表。如果用户单击“否(No)”按钮,则不会发生任何事情。添加以下代码行来实现此目的。 If answer = vbYes Then Cells.ClearContents Else 'do nothing End If4. 单击工作表上的命令按钮。 5. 单击“是(Yes)”。 结果: |
CopyRight 2018-2019 实验室设备网 版权所有 |