如何让计时功能VBA代码作用于整个工作簿而非单个工作表

问题根源 #

原代码硬编码了Sheets("Timings")，导致只能绑定指定工作表运行；直接删除工作表名称后，因未明确操作对象，代码无法定位目标单元格，进而引发崩溃。

修改思路 #

1. 动态指定目标工作表：支持在当前激活工作表运行，也可手动指定固定工作表
2. 封装重复逻辑：把获取最后非空行的代码抽成独立函数，减少冗余代码
3. 增强稳定性：添加对象有效性检查，避免因工作表不存在或激活异常报错

修改后的完整代码 #

' 获取指定工作表H列的最后非空行（返回下一行行号）
Function GetLastRow(targetSheet As Worksheet) As Long
    If targetSheet Is Nothing Then Set targetSheet = ActiveSheet
    GetLastRow = targetSheet.Range("H" & targetSheet.Rows.Count).End(xlUp).Row + 1
End Function

' 初始化计时行（日期、用户名）
Sub Initialize()
    Dim ws As Worksheet
    Dim iRow As Long
    
    Set ws = ActiveSheet ' 若要固定工作表，改为Set ws = ThisWorkbook.Sheets("你的表名")
    iRow = GetLastRow(ws)
    
    If ws.Range("F" & iRow).Value = "" Then
        ws.Range("B" & iRow).Value = Format(Date, "DD-MMM-YYYY")
        ws.Range("C" & iRow).Value = Application.UserName
    End If
End Sub

' 记录开始时间
Sub Start_Time()
    Dim ws As Worksheet
    Dim iRow As Long
    
    Set ws = ActiveSheet
    iRow = GetLastRow(ws)
    
    ' 验证任务编号
    If ws.Range("D" & iRow).Value = "" Then
        MsgBox "请添加任务编号", vbOKOnly + vbInformation, "缺少编号"
        ws.Range("D" & iRow).Select
        Exit Sub
    ' 验证是否已记录开始时间
    ElseIf ws.Range("F" & iRow).Value <> "" Then
        MsgBox "该任务已记录开始时间"
        Exit Sub
    Else
        ws.Range("F" & iRow).Value = Now()
        ws.Range("F" & iRow).NumberFormat = "hh:mm:ss AM/PM"
    End If
End Sub

' 记录结束时间并计算时长
Sub End_Time()
    Dim ws As Worksheet
    Dim iRow As Long
    
    Set ws = ActiveSheet
    iRow = GetLastRow(ws)
    
    ' 验证是否已记录开始时间
    If ws.Range("F" & iRow).Value = "" Then
        MsgBox "该任务未记录开始时间"
        Exit Sub
    Else
        ws.Range("G" & iRow).Value = Now()
        ws.Range("G" & iRow).NumberFormat = "hh:mm:ss AM/PM"
        ' 计算耗时
        ws.Range("H" & iRow).Value = ws.Range("G" & iRow).Value - ws.Range("F" & iRow).Value
        ws.Range("H" & iRow).NumberFormat = "hh:mm:ss"
    End If
End Sub

使用说明 #

• 当前工作表运行：选中需要计时的工作表，直接执行对应宏即可，数据自动存储在当前表中
• 固定工作表运行：将代码中Set ws = ActiveSheet替换为Set ws = ThisWorkbook.Sheets("你的表名")，即可绑定到指定工作表
• 多工作表适配：每个需要计时的工作表都可独立执行宏，各表数据互不干扰

内容的提问来源于stack exchange，提问作者ROBIN30