如何在鼠标（或滚轮）移动时持续执行Excel VBA过程实现自动冻结窗格？

需求目标：当指定行的上一行滚动到屏幕顶部时，自动冻结该行；当指定行本身滚动到屏幕顶部时，取消冻结。由于Worksheet_SelectionChange或Change事件仅在单元格选中/内容变更时触发，无法覆盖鼠标滚轮滚动、拖动滚动条这类操作，因此需要实现一个能持续检测滚动位置的逻辑。

现有代码的局限性 #

你提供的Worksheet_SelectionChange事件代码，只有在选中单元格变化时才会执行检测，滚动过程中若未改变选中单元格，就不会触发逻辑，无法实现实时的冻结/取消冻结效果。

解决方案：定时检测滚动位置 #

利用Application.OnTime实现定时检测，每隔短时间检查一次屏幕顶部的行，根据位置自动调整冻结状态。

完整代码（粘贴到目标工作表模块中）

Private Const FreezeRow As Long = 23 ' 自定义要冻结的目标行
Private CheckTimer As Double

Private Sub Worksheet_Activate()
    ' 激活工作表时启动定时检测
    StartCheck
End Sub

Private Sub Worksheet_Deactivate()
    ' 切换到其他工作表时停止检测
    StopCheck
End Sub

Private Sub StartCheck()
    ' 设置0.1秒后执行检测逻辑，可根据需求调整间隔
    CheckTimer = Now + TimeValue("00:00:00.1")
    Application.OnTime CheckTimer, "CheckScrollPosition"
End Sub

Private Sub StopCheck()
    On Error Resume Next ' 避免定时器未启动时报错
    Application.OnTime CheckTimer, "CheckScrollPosition", , False
End Sub

Private Sub CheckScrollPosition()
    Dim wnd As Window
    Dim WindowTopRow As Range
    
    Set wnd = ActiveWindow
    Set WindowTopRow = wnd.VisibleRange.Rows(1)
    
    Application.EnableEvents = False
    
    ' 判断是否需要冻结
    If WindowTopRow.Row > FreezeRow + 1 Then
        If Not ActiveWindow.FreezePanes Then
            ActiveWindow.ScrollRow = FreezeRow
            Cells(FreezeRow + 1, 1).Activate
            ActiveWindow.FreezePanes = True
        End If
    ' 判断是否需要取消冻结
    ElseIf WindowTopRow.Row <= FreezeRow + 1 Then
        If ActiveWindow.FreezePanes Then
            ActiveWindow.FreezePanes = False
        End If
    End If
    
    Application.EnableEvents = True
    
    ' 循环启动下一次检测
    StartCheck
End Sub

代码说明 #

• 定时器管理：通过Worksheet_Activate和Worksheet_Deactivate控制检测的启停，避免在非目标工作表操作时消耗资源。
• 滚动位置检测：VisibleRange.Rows(1)获取当前屏幕顶部的行，以此判断冻结状态。
• 状态判断优化：增加了对当前冻结状态的检查，避免重复执行相同操作，减少不必要的界面波动。
• 事件控制：Application.EnableEvents = False防止检测过程中触发其他事件干扰逻辑。

使用注意事项 #

1. 右键目标工作表标签→点击「查看代码」，将代码粘贴到弹出的模块窗口中。
2. 修改FreezeRow常量的值，设置你需要冻结的目标行。
3. 定时器间隔（TimeValue("00:00:00.1")）可根据需求调整，0.1秒的间隔足够实时，若觉得资源占用高，可改为0.2秒。
4. 正常关闭Excel时，定时器会自动停止，无需额外操作。

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