GoTo和GoSub 语句的用法工具/原料moreExcel软件方法/步骤1/3分步阅读

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

2/3

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

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

3/3

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

方法/步骤21/5

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

1、初始数据为：

2/5

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/5

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

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

4/5

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

5/5

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

注意事项

注意模块的结束关键字的使用

EXCELVBAGOTOGOSUB宏