VBA中跳转语句GOTORETURN之应用

通过【实例：依据打卡时间确定是否“早退”？】来分享跳转语句gotoreturn的应用！

在工作表中，点击菜单栏【开发工具】，在其工具栏内，点击【visual basic】!

会进入VBA编辑界面！点击工具栏内【插入用户窗体】按钮，在其下拉菜单中，选择【模块】！

在弹出的代码编辑窗口中输入如下代码：

Sub gotoreturn()

Dim i As Integer

For i = 2 To 10

  If Sheet8.Cells(i, 1) > 17 / 24 Then

    GoSub 789

  End If

Next i

Exit Sub

789:

Sheet8.Cells(i, 2) = "早退"

Return

End Sub

在VBA界面，同时按下CTRL+F11，返回工作表。在工作表界面，点击【开发工具】菜单下的【插入】，选择一【表单按钮】，在空白单元格处，拉出一【按钮】，在同时弹出的【指定宏】窗口，选取编辑的代码，点击【确定】。

将按钮重命名为【考勤】！

点击【考勤】按钮，立刻判断出早退的打卡时间！