VBA : vbYesNo displays a button with OK and nothing else

Question

标题不言而喻。

这是一个例子

这是我正在使用的代码行。

If MsgBox("Are you sure?", vbYesNo) = Yes Then Exit Sub

我也在使用 EXTRA! X-treme

Answer 1

我不得不猜测额外的! X-treme(哇!太夸张了？!)正在扰乱 vb 常量，或者如果它正在拦截对 MsgBox 函数的调用，至少不尊重它们。

vbYesNo 应该是一个常量数值 4。

此外，与其将 MsgBox 的结果与 Yes 进行比较，不如将其与 vbYes(数值 6)进行比较。

我认为您正确使用了 VBA(vbYes 部分除外)，所以这可能是一个额外的! X-treme 错误(或未记录的功能)。

---

解决方案

If MsgBox("Are you sure?", 4) = 6 Then Exit Sub