第八课 VBA分支与退出语句

• 一、退出语句
• 1、END语句
  作用：强制退出所有正在运行的程序。
• 2、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

• 二、分支语句
• 1.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

• 2.go sub...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

• 3.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

• 4.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

• 5.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