Excel自动跳转至当前时间行并高亮该行的实现方法求助

方案1：自动跳转到当前时间对应的行 #

通过VBA宏可实现切换工作表或定时自动定位到当前时间行，操作步骤如下：

1. 按Alt + F11打开VBA编辑器
2. 双击左侧面板中你的日程表工作表（如Sheet1）
3. 粘贴以下代码：

Private Sub Worksheet_Activate()
    Dim currentTime As Date
    Dim timeRange As Range
    Dim targetRow As Long
    
    ' 假设时间数据在A列，第2行开始为日程数据（对应97行内容）
    Set timeRange = Me.Range("A2:A98")
    currentTime = Time()
    
    ' 查找精确匹配的时间行
    For Each cell In timeRange
        If Hour(cell.Value) = Hour(currentTime) And Minute(cell.Value) = Minute(currentTime) Then
            targetRow = cell.Row
            Me.Rows(targetRow).Select
            ActiveWindow.ScrollRow = targetRow
            Exit Sub
        End If
    Next cell
    
    ' 无精确匹配时，定位到最近的下一个时间点
    For Each cell In timeRange
        If cell.Value > currentTime Then
            targetRow = cell.Row
            Me.Rows(targetRow).Select
            ActiveWindow.ScrollRow = targetRow
            Exit Sub
        End If
    Next cell
    
    ' 当前时间超出行程表最后时间时，定位到最后一行
    targetRow = timeRange.Rows(timeRange.Rows.Count).Row
    Me.Rows(targetRow).Select
    ActiveWindow.ScrollRow = targetRow
End Sub

4. 将文件保存为.xlsm格式（启用宏的工作簿）

切换到该工作表时，代码会自动定位到对应时间行；无精确匹配则跳转至下一个最近时间，超过最后时间则定位到最后一行。

方案2：自动高亮当前时间行 #

方法A：VBA动态实时高亮

实现随时间自动更新的高亮效果：

1. 打开VBA编辑器并双击目标工作表，粘贴以下代码：

Private Sub Worksheet_Calculate()
    Dim currentTime As Date
    Dim timeRange As Range
    Dim cell As Range
    
    ' 清除原有高亮
    Me.Cells.Interior.ColorIndex = xlColorIndexNone
    
    Set timeRange = Me.Range("A2:A98")
    currentTime = Time()
    
    ' 高亮精确匹配的时间行
    For Each cell In timeRange
        If Hour(cell.Value) = Hour(currentTime) And Minute(cell.Value) = Minute(currentTime) Then
            Me.Rows(cell.Row).Interior.Color = RGB(255, 255, 153) ' 浅黄色高亮
            Exit Sub
        End If
    Next cell
    
    ' 无精确匹配时高亮最近下一个时间行
    For Each cell In timeRange
        If cell.Value > currentTime Then
            Me.Rows(cell.Row).Interior.Color = RGB(255, 255, 153)
            Exit Sub
        End If
    Next cell
    
    ' 高亮最后一行
    Me.Rows(timeRange.Rows(timeRange.Rows.Count).Row).Interior.Color = RGB(255, 255, 153)
End Sub

' 定时刷新高亮
Sub RefreshHighlight()
    Me.Calculate
    ' 每60秒刷新一次，可修改时间（单位：毫秒）
    Application.OnTime Now + TimeValue("00:01:00"), "RefreshHighlight"
End Sub

Private Sub Worksheet_Activate()
    ' 激活工作表时启动定时刷新
    RefreshHighlight
End Sub

Private Sub Worksheet_Deactivate()
    ' 离开工作表时停止刷新
    On Error Resume Next
    Application.OnTime Now + TimeValue("00:01:00"), "RefreshHighlight", , False
End Sub

2. 保存为.xlsm格式，工作表会每1分钟自动更新高亮行，切换工作表时自动启停刷新。

方法B：条件格式（无需宏）

无需启用宏的静态高亮方案（需手动刷新或设置自动计算）：

1. 选中第2至98行的所有数据
2. 点击「开始」→「条件格式」→「新建规则」
3. 选择「使用公式确定要设置格式的单元格」，输入公式（假设时间在A列）：

=AND(HOUR($A2)=HOUR(NOW()),MINUTE($A2)=MINUTE(NOW()))

4. 设置高亮格式（如填充浅黄色）并确认

注：需手动按F9刷新，或在工作簿选项中开启自动计算（文件→选项→公式→勾选「启用迭代计算」，设置迭代次数为1，添加=NOW()单元格触发自动更新）。

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