VBA中跳转语句GOTORETURN之应用

 时间:2026-02-13 22:43:02

1、通过【实例:依据打卡时间确定是否“早退”?】来分享跳转语句gotoreturn的应用!

VBA中跳转语句GOTORETURN之应用

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

VBA中跳转语句GOTORETURN之应用

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

VBA中跳转语句GOTORETURN之应用

4、在弹出的代码编辑窗口中输入如下代码:

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中跳转语句GOTORETURN之应用

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

VBA中跳转语句GOTORETURN之应用

6、将按钮重命名为【考勤】!

VBA中跳转语句GOTORETURN之应用

7、点击【考勤】按钮,立刻判断出早退的打卡时间!

VBA中跳转语句GOTORETURN之应用

  • 怎样使用VBA返回工作表目录?
  • Excel收纳箱:通过VBA返回当前单元格的地址内容
  • 代写VBA统计某一列中各数据出现次数
  • 图示EXCEL表格vba系列43之ActiveCell.Row简介
  • excel之vba如何清空某个范围内的数据但保留格式
  • 热门搜索
    电子邮箱怎么填写 新飞冰箱怎么样 脐带绕颈怎么办 西部航空怎么样 康宝莱奶昔减肥怎么样 烫伤水泡怎么处理 报到证怎么用 应聘自我介绍怎么说 小米充电宝怎么充电 加湿器怎么加水