vba - 如何在多个工作表中应用FreezePanes？

我在下面有此代码，但我不知道如何将其适合几张纸。

Set r = ActiveCell
 Range("A4").Select
 With ActiveWindow
 .FreezePanes = False
 .ScrollRow = 1
 .ScrollColumn = 1
 .FreezePanes = True
 .ScrollRow = r.Row
End With
r.Select

最佳答案

如果要为所有工作表添加FreezePanes，则可以将以下代码添加到ThisWorkbook模块：

Private Sub Workbook_SheetActivate(ByVal Sh As Object)
    Range("A4").Select
    With ActiveWindow
        .FreezePanes = False
        .FreezePanes = True
    End With
End Sub

或者您可以指定如下工作表（下一个代码将仅对工作表FreezePanes和Sheet1添加Sheet2）：

Private Sub Workbook_SheetActivate(ByVal Sh As Object)
    If Sh.Name = "Sheet1" Or Sh.Name = "Sheet2" Then
        Range("A4").Select
        With ActiveWindow
           .FreezePanes = False
           .FreezePanes = True
        End With
    End If
End Sub

关于vba - 如何在多个工作表中应用FreezePanes？，我们在Stack Overflow上找到一个类似的问题：https://stackoverflow.com/questions/21208586/