vba - 运行时错误 13，类型不匹配 MsgBox 取消

Question

单击消息框上的取消时出现运行时错误 13 类型不匹配错误。

我尝试制作以下脚本来处理消息框是否为空，但是在检查错误时，单击消息框上的取消会将其全部抛出。

有任何想法吗？

Private Sub ChangeDebtAmounts_Click()

Dim Debt1 As Integer, Debt2 As Integer, Debt3 As Integer, Debt4 As Integer
Dim D1Range As String, D2Range As String, D3Range As String, D4Range As String

D1Range = ActiveSheet.Range("Y15")
D2Range = ActiveSheet.Range("Y16")
D3Range = ActiveSheet.Range("Y17")
D4Range = ActiveSheet.Range("Y18")


Debt1 = InputBox("Please Enter in the account limit for " & D1Range)
If Debt1 = "" Then
  MsgBox ("Setting " & D1Range & " to Zero, No Value Entered")
Else
Range("AA15").Value = Debt1 - Range("S58")
End If

End

End Sub

Answer 1

类型不匹配与 InputBox而不是 MsgBox .要修复它，只需更改 Dim Debt1 As Integer至Dim Debt1 As Variant .此外，您正在使用 MsgBox作为一个子而不是一个函数，所以正确的语法应该是

MsgBox "Setting " & D1Range & " to Zero, No Value Entered"

而不是

MsgBox ("Setting " & D1Range & " to Zero, No Value Entered")

在这种情况下，括号是无害的，但如果你尝试给 MsgBox 提供额外的参数将其用作子程序时，您将收到语法错误。