VBA-跳转语句

声明：笔记来源于我要自学网-《Excel VBA基础教程》-授课讲师：曾贤志

---

GoTo line无条件地转移到过程中指定的行。
注意_太多的GoTo 语句，会使程序代码不容易阅读及调试。
尽可能使用结构化控制语句(Do...Loop、For...Next、If...Then...Else...)

Sub gotoline()
Dim str$
Dim k!
123:
k = k + 1
If k > 3 Then Exit Sub
str = InputBox("请录入用户名！")
If str <> "admin" Then GoTo 123
End Sub

实例应用：判断考勤时间

Sub gotoreturn实例()
Dim i!
For i = 2 To 10
    If Sheet1.Range("a" & i) > 1 / 3 Then GoSub 100
Next i
Exit Sub
100:
    Sheet1.Range("b" & i) = "迟到"
Return
End Sub