Question

VBA编程中MsgBox函数怎么用

Answer 1

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

Answer 2

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