通过【实例:依据打卡时间确定是否“早退”?】来分享跳转语句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,返回工作表。在工作表界面,点击【开发工具】菜单下的【插入】,选择一【表单按钮】,在空白单元格处,拉出一【按钮】,在同时弹出的【指定宏】窗口,选取编辑的代码,点击【确定】。
将按钮重命名为【考勤】!
点击【考勤】按钮,立刻判断出早退的打卡时间!