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

2018-06-19

• 

• 预见未来to50 

  码龄13年

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

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

1. Option Explicit
3. '一、END语句
5. '作用：强制退出所有正在运行的程序。
7. '二、Exit语句
9. '退出指定的语句
11. '1、Exit Sub
12. Sub e1()
13. Dim x As Integer
14. For x = 1 To 100
15. Cells(1, 1) = x
16. If x = 5 Then
17. Exit Sub
18. End If
19. Next x
20. Range('b1') = 100
21. End Sub
22. '2、Exit function
23. Function ff()
24. Dim x As Integer
25. For x = 1 To 100
26. If x = 5 Then
27. Exit Function
28. End If
29. Next x
30. ff = 100
31. End Function
33. '3、Exit for
34. Sub e2()
36. Dim x As Integer
37. For x = 1 To 100
38. Cells(1, 1) = x
39. If x = 5 Then
40. Exit For
41. End If
42. Next x
44. Range('b1') = 100
45. End Sub
46. '4、Exit do
47. Sub e3()
48. Dim x As Integer
49. Do
50. x = x + 1
51. Cells(1, 1) = x
52. If x = 5 Then
53. Exit Do
54. End If
55. Loop Until x = 100
56. Range('b1') = 100
57. 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

'他山之石，可以攻玉！   

文章最后发布于: 2018-06-19

版权声明：本文为博主原创文章，遵循 CC 4.0 BY-SA 版权协议，转载请附上原文出处链接和本声明。

本文链接：https://blog.csdn.net/hpdlzu80100/article/details/80740494

 展开全文