Excel VBA实现滚动时隐藏行并冻结窗格技术求助

需求说明 #

工作表顶部设操作按钮，点击后在第26行及下方返回数据。期望实现：

• 向下滚动时，自动隐藏第5-24行，同时冻结第1-26行（保持表头可见）
• 向上滚动回到顶部区域时，恢复显示第5-24行并取消冻结

已尝试的无效代码 #

尝试1（基于选中单元格变化事件，滚动不触发） #

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    Dim visibleRange As Range
    Set visibleRange = ActiveWindow.visibleRange.Rows(1).Resize(VisibleRowsCount)

    If Not Intersect(Target, visibleRange) Is Nothing Then
        If Target.row > 26 Then
            Application.ScreenUpdating = False
            ActiveWindow.FreezePanes = True
            Rows("5:24").Hidden = True
            Application.ScreenUpdating = True
        Else
            ActiveWindow.FreezePanes = False
            Rows("5:24").Hidden = False
        End If
    End If
End Sub

Function VisibleRowsCount() As Long
    VisibleRowsCount = ActiveWindow.visibleRange.Rows.Count
End Function

尝试2（冻结窗格位置错误） #

Private Sub Worksheet_WindowScroll(ByVal Sh As Object, ByVal Target As Excel.Range)

    If Target.Cells(1, 1).row > 26 Then
        ActiveWindow.FreezePanes = True
        Rows("5:24").Hidden = True
    Else
        ActiveWindow.FreezePanes = False
        Rows("5:24").Hidden = False
    End If
    Debug.Print Target.Cells(1, 1).row
End Sub

尝试3（使用不存在的事件） #

Private Sub Worksheet_Scroll(ByVal Target As Range)
    If Target.Rows.Count > 0 Then
        If Target.Cells(1, 1).row > 26 Then
            Application.ScreenUpdating = False
            ActiveWindow.FreezePanes = True
            sO.Rows("5:24").Hidden = True
            Application.ScreenUpdating = True
        Else
            ActiveWindow.FreezePanes = False
            sO.Rows("5:24").Hidden = False
        End If
    End If
End Sub

尝试4（变量未声明+冻结逻辑问题） #

Private Sub Worksheet_WindowScroll(ByVal Sh As Object, ByVal Target As Excel.Range)
    If Target.Cells(1, 1).row > 26 Then
        If Not frozenPanes Then
            ActiveWindow.FreezePanes = True
            frozenPanes = True
        End If
        Rows("5:24").Hidden = True
    Else
        If frozenPanes Then
            ActiveWindow.FreezePanes = False
            frozenPanes = False
        End If
        Rows("5:24").Hidden = False
    End If
End Sub

可行解决方案 #

将以下代码粘贴到对应工作表的代码模块中（右键工作表标签→查看代码）：

Private Sub Worksheet_WindowScroll(ByVal Sh As Object, ByVal Target As Range)
    Application.ScreenUpdating = False
    
    ' 检测可见区域顶部是否超过第26行
    If Target.Row > 26 Then
        ' 隐藏中间行
        Rows("5:24").Hidden = True
        ' 定位到第27行首列，冻结前26行
        Me.Range("A27").Select
        ActiveWindow.FreezePanes = True
    Else
        ' 恢复显示中间行
        Rows("5:24").Hidden = False
        ' 取消冻结窗格
        ActiveWindow.FreezePanes = False
        ' 可选：滚动回顶部时定位到首行，提升体验
        Me.Range("A1").Select
    End If
    
    Application.ScreenUpdating = True
End Sub

代码说明 #

1. 使用Worksheet_WindowScroll事件：该事件会在窗口滚动时触发，Target参数为可见区域的左上角单元格，以此判断滚动位置。
2. 冻结窗格逻辑：要冻结前26行，需先选中第27行的A列单元格，再设置FreezePanes=True，确保冻结线在第26行下方。
3. 关闭屏幕刷新：避免操作过程中出现界面闪烁，提升流畅度。

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