声明:笔记来源于我要自学网-《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