请教老师,怎么样容错?

tte3

当在单元格内须输入数字时,不小心错输成字母或其他符号,程序就不运行了,怎么使其能继续运行,不要关闭重新打开.
请各位老师解答.
谢谢!

lu_zhao_long

你的源代码如下：
On Error GoTo errout
  Application.EnableEvents = False
  orow = Target.Row
  ocol = Target.Column
  If orow > 3 And ocol > 5 And ocol < 16 Then
  For y = 6 To 15
  sum_row = sum_row + Cells(orow, y)
  Next
  Cells(orow, 16) = sum_row
  End If
  Application.EnableEvents = True
errout:
稍作更改如下：
Private Sub Worksheet_Change(ByVal Target As Range)

  Application.EnableEvents = False
  orow = Target.Row
  ocol = Target.Column
  If orow > 3 And ocol > 5 And ocol < 16 Then
  For y = 6 To 15
  On Error GoTo errout
  sum_row = sum_row + Cells(orow, y)
  Next
  Cells(orow, 16) = sum_row
  End If
  Application.EnableEvents = True
  Exit Sub
errout: MsgBox "你输入的值是" & Cells(orow, y) & "不是数字!"
    Application.EnableEvents = True
   
End Sub
请楼主试试看！

tte3

谢谢lu_zhao_long老师!可以了.向你学习.