选择每个工作表中冻结窗格的单元格。

Question

我使用以下VBA来选择不同工作表中的单元格：

Sub Positioning()
Sheet1.Select
Range("B2").Select
Sheet2.Select
Range("B2").Select
End Sub

正如您现在看到的，我在每个工作表中手动选择Cell B2。这一切都很好。

现在，我在两张纸上不同的断点上冻结了的窗格：

Sheet 1: Freezing Panes at Cell D5
Sheet 2: Freezing Panes at Cell C3

如何更改VBA代码，以便自动检测，在哪个单元格中冻结窗格，然后准确地选择该单元格？

Answer 1

尝试使用以下方法

Sub SelectTopofFreezePane()
    With ActiveWindow
        If .SplitRow > 0 Or .SplitColumn > 0 Then
            ActiveSheet.Cells(.SplitRow + 1, .SplitColumn + 1).Select
        End If
    End With
End Sub

在注释后更新

若要在每个工作表上执行此操作，请遍历工作簿中的工作表并激活每个工作表。您可以通过使用Application.ScreenUpdating = False来停止向用户显示

Sub SelectTopofFreezePane()
    Dim ws As Worksheet

    Application.ScreenUpdating = False

    With ActiveWindow
        For Each ws In ThisWorkbook.Sheets
            ws.Activate
            If .SplitRow > 0 Or .SplitColumn > 0 Then
                ws.Cells(.SplitRow + 1, .SplitColumn + 1).Select
            End If
        Next ws
    End With
End Sub