当我尝试运行 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
属性不是Buttons
。vbMsgBoxStyle
您的代码应如下所示:
VBA.Interaction.MsgBox _
Title:="Invalid Scope!", _
Prompt:="You entered Invalid Scope !!!", _
Buttons:=vbCritical