VBA编程中MsgBox函数怎么用

Posted 2023-04-05

参考技术A 首先来看一下MsgBox的基本语法格式：
MsgBox(prompt[, buttons] [, title] [,helpfile, context])
下面就其中的各参数进行详细的讲解。
prompt参数（必选参数）：该参数用于表明输出对话框所显示的内容，由于该参数只代表长度为255个字符的一个字符串，因此我们可以使用“&”连接符将各部分字符串连接起来，同时可以借助函数“Chr（10）”实现换行操作。其中一种效果如图：

3
步骤3
prompt参数（必选参数）：该参数用于表明输出对话框所显示的内容，由于该参数只代表长度为255个字符的一个字符串，因此我们可以使用“&”连接符将各部分字符串连接起来，同时可以借助函数“Chr（10）”实现换行操作。其中一种效果如图：Buttons参数（可选参数）：用于定义输出窗口的按钮样式及图标显示类型，常见按钮样式如下：
按钮类型 对应数值 描述
vbOKOnly 0 只显示 OK 按钮。
VbOKCancel 1 显示 OK 及 Cancel 按钮。
VbAbortRetryIgnore 2 显示 Abort、Retry 及 Ignore 按钮。
VbYesNoCancel 3 显示 Yes、No 及 Cancel 按钮。
VbYesNo 4 显示 Yes 及 No 按钮。
VbRetryCancel 5 显示 Retry 及 Cancel 按钮。
VbCritical 16 显示 Critical Message 图标。
VbQuestion 32 显示 Warning Query 图标。
VbExclamation 48 显示 WarningMessage 图标。
VbInformation 64 显示 InformationMessage 图标。
如图为设置按钮类型为“VbInformation”时的效果：

4
步骤4
Title参数（可选参数）：用于定义在输出窗口标题栏处显示的文本内容，如图设置其标题栏为“提示”时的效果：

5
步骤5
MsgBox的返回值：该输出框会根据用户所点击的按钮的类型返回对应的常量：
常数 值 描述
vbOK 1 OK
vbCancel 2 Cancel
vbAbort 3 Abort
vbRetry 4 Retry
vbIgnore 5 Ignore
vbYes 6 Yes
vbNo 7 No
编写如图所示的验证代码：
Sub 实例MsgBox()
If vbOK =(MsgBox("请点击确定按钮",vbOKCancel, "提示")) Then
MsgBox "确定按钮被点击", vbOKOnly
End If
End Sub

6
步骤6
点击“运行子过程”按钮。

7
步骤7
就可以看到效果啦。

EXCEL VBA 函数Msgbox应用

EXCEL VBA 函数Msgbox应用
我想做个按钮名字假如叫计算，我点击计算按钮，就执行计算公式。代码怎么写

按钮执行效果相当于F9吧（计算所有工作表），那么下面的一个语句即可：
Calculate 参考技术A if msgbox("内容",vbyesno,"选择")=vbyes then 也可以直接将msgbox("内容",vbyesno,"选择")的值赋给一个变量追问

点击确定直接按公式计算

怎么写

参考技术B sub 计算()
dim x as string
x = worksheetfunction.sum(2,3)
msgbox "计算结果为：" & x
end sub追问

点击确定按钮直接计算出结果怎么弄

追答

sub 计算()
dim x as string
x = me.textbox1.value
msgbox "计算结果为：" & x
end sub

本回答被提问者和网友采纳