![2ea899e8a10b3135ce73dd884c401f4f.png](https://img-blog.csdnimg.cn/img_convert/2ea899e8a10b3135ce73dd884c401f4f.png)
VBA编程知识点(4)——流程控制goto和exit
学习自杨洋老师《全民一起VBA》提高篇第6课
1. 在程序的流程控制中,逻辑变量可以作为一个标志,或者说是一个开关,当开关闭合时就退出流程。如下示例代码中,zhao = Not zhao就相当于一个开关,当找到第一个数据时,开关闭合,退出查找流程。
Sub 找到第一个数据()
Dim zhao As Boolean, i As Long, works As Worksheet
Set works = Worksheets(3): zhao = False: i = 2:
Do While Not zhao And works.Cells(i, 1) <> "" '没有找到且数据不为空时进入查找循环
If InStr(works.Cells(i, 4), "申请中") <> 0 Then
works.Range(Cells(i, 1), Cells(i, 4)).Interior.Color = vbGreen
zhao = Not zhao '找到了第一个数据,逻辑变量zhao取反,循环条件不成立,退出循环
End If
i = i + 1
Loop
End Sub
2.