他山之石——VBA的程序终止、退出语句块、分支及错误处理（End, exit, on error go to in VBA）

在VBA编程中，终止、退出及错误处理都是很有用的程序控制方法。
那么，有哪些具体的方法呢？
看到别人的培训资料里已有所总结，这里借花献佛一下。

代码1： 程序终止及退出方法

Option Explicit

'一、END语句

   '作用：强制退出所有正在运行的程序。

'二、Exit语句

   '退出指定的语句
   
   '1、Exit Sub
     Sub e1()
     Dim x As Integer
        For x = 1 To 100
          Cells(1, 1) = x
          If x = 5 Then
            Exit Sub
          End If
         Next x
      Range("b1") = 100
     End Sub
    '2、Exit function
     Function ff()
     Dim x As Integer
        For x = 1 To 100
          If x = 5 Then
            Exit Function
          End If
         Next x
      ff = 100
     End Function
   
   '3、Exit for
     Sub e2()
     
     Dim x As Integer
        For x = 1 To 100
          Cells(1, 1) = x
          If x = 5 Then
            Exit For
          End If
         Next x
         
       Range("b1") = 100
     End Sub
   '4、Exit do
     Sub e3()
     Dim x As Integer
       Do
         x = x + 1
          Cells(1, 1) = x
          If x = 5 Then
            Exit Do
          End If
       Loop Until x = 100
       Range("b1") = 100
     End Sub

代码2： 分支及跳转方法

Option Explicit

'Goto语句,跳转到指定的地方

Sub t1()
  Dim x As Integer
  Dim sr
100:
  sr = Application.InputBox("请输入数字", "输入提示")
  If Len(sr) = 0 Or Len(sr) = 5 Then GoTo 100
  
End Sub

'gosub..return ,跳过去,再跳回来

Sub t2()
  Dim x As Integer
  For x = 1 To 10
     If Cells(x, 1) Mod 2 = 0 Then GoSub 100
  Next x
Exit Sub
100:
   Cells(x, 1) = "偶数"
   Return          '跳到gosub 100 这一句
End Sub

'on error resume next '遇到错误,跳过继续执行下一句

 Sub t3()
  On Error Resume Next
  Dim x As Integer
  For x = 1 To 10
    Cells(x, 3) = Cells(x, 2) * Cells(x, 1)
  Next x
 End Sub
 
'on error goto  '出错时跳到指定的行数
 
  Sub t4()
  On Error GoTo 100
  Dim x As Integer
  For x = 1 To 10
    Cells(x, 3) = Cells(x, 2) * Cells(x, 1)
  Next x
   Exit Sub
100:
   MsgBox "在第" & x & "行出错了"
  End Sub
 
 'on error goto 0 '取消错误跳转
 
  Sub t5()
  On Error Resume Next
  Dim x As Integer
  For x = 1 To 10
    If x > 5 Then On Error GoTo 0
    Cells(x, 3) = Cells(x, 2) * Cells(x, 1)
  Next x
   Exit Sub

  End Sub

'他山之石，可以攻玉！