Excel VBA ---之go to 语句使用

1、打开VBE，编写代码：

实现功能：

在限制次数内，输入正确的数字；

Sub goToLine()

Dim i%

Dim str$

line:

i = i + 1

If i > 3 Then Exit Sub

str = InputBox("请输入!")

If str <> "123" Then GoTo line   '指定跳转到的行；

End Sub

3、点击插入--形状，选择一个形状；

4、选择形状，右键指定宏，选择刚刚定义的宏goToLine；

运行结果如下图所示，当未超过3次时，要求重复输入字符；当超过3次时，将退出程序。

二、实现功能：判断表格数据中是否为迟到；

1、初始数据为：

2、在VBE中编写代码，如下：

Sub goToReturn()

Dim i%

For i = 2 To 8

If Sheet3.Range("a" & i) > 1 / 3 Then GoSub 100  'GoSub

Next i

Exit Sub       '循环完后，则直接退出

100:

    Sheet3.Range("b" & i) = "迟到"

Return           'Return

End Sub

3、点击插入--形状，选择一个形状；

4、选择形状，右键指定宏，选择刚刚定义的宏goToReturn；

5、点击宏，运行宏，得到如下的运行结果。

综上所述，如下为GoTo 和GoSub的用法，都是跳转到某行，继而运行某个模块的功能。