VBA 无法识别 MsgBox 属性 VbMsgBoxStyle

VBA 无法识别 MsgBox 属性 VbMsgBoxStyle

当我尝试运行 VBA 代码时,我收到错误消息“编译错误:未找到命名参数”。VBA 似乎无法识别最后一个属性VbMsgBoxStyle

Dim dump As VbMsgBoxResult
dump = VBA.Interaction.MsgBox _
       Title:="Invalid Scope!", _
       Prompt:="You entered Invalid Scope !!!", _
       VbMsgBoxStyle:=vbCritical

另一方面,我的对象浏览器为 MsgBox 显示以下内容:

Function MsgBox(Prompt, [Buttons As VbMsgBoxStyle = vbOKOnly], [Title], [HelpFile], [Context]) As VbMsgBoxResult
    Member of VBA.Interaction

有人知道为什么会发生这种情况吗?

答案1

属性不是ButtonsvbMsgBoxStyle您的代码应如下所示:

VBA.Interaction.MsgBox _
            Title:="Invalid Scope!", _
            Prompt:="You entered Invalid Scope !!!", _
            Buttons:=vbCritical

相关内容