如何基于现有VBA代码实现跨工作表更新与当日累计数据显示

你已经搭建了一个不错的销售团队生产力追踪工具，现在要解决的「在当前工作表查看当日累计值」的需求，我们可以通过优化现有VBA代码来实现，同时还能简化原来冗余的代码结构。

改进后的完整代码 #

Sub OneclickUpdate()
    Dim currentHour As Integer
    currentHour = Hour(Now()) ' 获取当前24小时制小时数
    Dim currentWeekday As Integer
    currentWeekday = Weekday(Date, vbMonday) ' 周一为第1天
    
    Dim targetWS As Worksheet
    Set targetWS = ThisWorkbook.Worksheets("Productivity Tracker")
    
    ' 定义星期对应的列号（周一C=3，周二E=5，周三G=7，周四I=9...）
    Dim targetCol As Integer
    targetCol = 2 * currentWeekday + 1
    
    ' 定义小时对应的行号
    Dim targetRow As Integer
    Select Case currentHour
        Case 9
            targetRow = 3
        Case 10
            targetRow = 4
        Case 11
            targetRow = 5
        Case 12
            targetRow = 6
        Case 13, 14 ' 午餐时段合并到同一行
            targetRow = 7
        Case 15
            targetRow = 9
        Case 16
            targetRow = 10
        Case 17
            targetRow = 11
        Case Else
            ' 非工作时段，提示用户
            MsgBox "当前不在工作时段内，无法更新生产力数据！"
            Exit Sub
    End Select
    
    ' 更新对应单元格数值
    targetWS.Cells(targetRow, targetCol).Value = targetWS.Cells(targetRow, targetCol).Value + 1
    
    ' 计算当日累计生产力值
    Dim dailyTotal As Integer
    ' 当日所有工作时段的单元格范围：行3-7、9-11，对应目标列
    dailyTotal = Application.Sum(targetWS.Range(targetWS.Cells(3, targetCol), targetWS.Cells(7, targetCol)), _
                                 targetWS.Range(targetWS.Cells(9, targetCol), targetWS.Cells(11, targetCol)))
    
    ' 在当前工作表显示累计值（示例：当前工作表的A1单元格，可根据需求修改位置）
    Dim currentWS As Worksheet
    Set currentWS = ActiveSheet
    ' 设置单元格格式让显示更清晰
    With currentWS.Range("A1")
        .Value = "今日累计生产力：" & dailyTotal
        .Font.Bold = True
        .Font.Size = 12
    End With
    
    ' 弹出提示框确认更新（可选，可删除）
    MsgBox "生产力数据已更新！今日累计：" & dailyTotal
End Sub

代码关键改进点说明 #

• 简化冗余代码：把原来大量重复的ElseIf替换成「计算列号+Select Case映射行号」的逻辑，以后调整时段或列位置只需要修改对应参数，维护起来更轻松。
• 非工作时段校验：新增了对非9-17点时段的判断，避免无效点击导致的错误。
• 当日累计计算：通过Application.Sum合并了当日所有工作时段的单元格范围，确保累计值准确覆盖上午、午餐和下午的所有记录。
• 当前工作表显示：在当前活动工作表的A1单元格显示累计值，还设置了加粗字体提升辨识度，你可以根据需求修改单元格位置（比如改成B2或者其他固定位置）。

额外优化建议 #

1. 灵活显示位置：如果不想占用单元格，可以在当前工作表插入一个文本框控件，把累计值写入文本框，位置更自由。
2. 防重复点击：可以添加一个「最后点击时间」的记录，比如在目标工作表的某个隐藏单元格存储最后点击的小时数，同一小时内不允许重复递增，避免误操作。
3. 自动显示累计：把计算累计值的逻辑单独写成函数，在工作表激活事件中调用，打开工作表时自动显示当日累计值。

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