VBA编程中MsgBox函数怎么用

Posted 2023-04-05

如果只作消息框使用，就在函数后面空格后接一个字符串即可，如：
msgbox "计算结束！！"
如果要作选择对话框使用，则要使用不同的参数，生成不同的按钮。比如：
If MsgBox("此操作要花费很长时间，是否继续？", vbYesNo) = vbYes Then
'此处是运行时间较长的代码
End If 参考技术A a = MsgBox("信息",x1+x2+x3+x4,"标题")

x1=VbOKOnly 0 只显示OK按钮

x1=VbOKCancel 1 只显示OK及Cancel按钮

x1=VbAbortRetryIgnore 2 显示Abort,Retry,Ignore按钮

x1=VbYesNoCancel 3 显示Yes,No,Cancel按钮

x1=VbYesNo 4 显示Yes,No按钮

x1=VbRetryCancel 5 显示Retry,Cancel按钮

x2=VbCritical 16 显示Critical Message图标

x2=VbQuestion 32 显示Warning Query图标

x2=VbExclamation 48 显示Warning Message图标

x2=VbInformation 64 显示Information Message图标

x3=VbDefaultButton1 0 第一个按钮是默认按钮

x3=VbDefaultButton2 256 第二个按钮是默认按钮

x3=VbDefaultButton3 512 第三个按钮是默认按钮

x3=VbDefaultButton4 768 第四个按钮是默认按钮

x4=VbMsgBoxHelpButton 16384 添加Help按钮到消息框

x4=VbMsgBoxRight 524288 文本为右对齐

a<->VbOK 1 OK

a<->VbCancel 2 Cancel

a<->VbAbort 3 Abort

a<->VbRetry 4 Retry

a<->VbIgnore 5 Ignore

a<->VbYes 6 Yes

a<->VbNo 7 No

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

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