VBA中跳轉語句GOTORETURN之應用


  • 通過【實例:依據打卡時間確定是否“早退”?】來分享跳轉語句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之應用
     

  • 免責聲明!

    本站轉載的文章為個人學習借鑒使用,本站對版權不負任何法律責任。如果侵犯了您的隱私權益,請聯系本站郵箱yoyou2525@163.com刪除。



     
    粵ICP備18138465號   © 2018-2025 CODEPRJ.COM