vba - 通过 vba 卡住行，无需激活单个工作表

Question

有没有办法在不使用 select 的情况下卡住任意数量工作表的前 x 行？ ，或激活每张纸？

This answer建议使用

With ActiveWindow
    If .FreezePanes Then .FreezePanes = False
    .SplitColumn = 0
    .SplitRow = 1
    .FreezePanes = True
End With

, 录制宏建议使用 Rows("4:4").Select: ActiveWindow.FreezePanes = True ，但我更喜欢不依赖于激活工作簿中的每张工作表的解决方案。

IE。就像是

Sub FreezeTopXPanes(x As Long)
  Dim ws As Worksheet

  For Each ws in ThisWorkbook.Worksheets
    ' Freeze top x rows
  Next ws
End Sub

有什么办法可以做到这一点，还是我坚持另一个问题的解决方案？

Answer 1

这就是问题所在。正如@Patrick 所提到的，这是相当不可能的，因为卡住 Pane 方法仅适用于事件窗口。查看更多详情 here.

我认为最好的方法是一次对所有工作表或某些工作表使用单独的程序:

Sub Freeze_wsh() 
Dim Ws As Worksheet
Application.ScreenUpdating = False
For Each Ws In Application.ActiveWorkbook.Worksheets
    Ws.Activate
    With Application.ActiveWindow
        .FreezePanes = True
        .ScrollRow = 1 
        .ScrollColumn = 1 
    End With
Next
Application.ScreenUpdating = True
End Sub 

或者您可以添加一个变量来引用某个工作表

Sub Freeze_wsh(x as Integer) 
Dim Ws As Worksheet
Application.ScreenUpdating = False
set Ws = ActiveWorkbook.Worksheets(x)
    Ws.Activate
    With Application.ActiveWindow
        .FreezePanes = True
        .ScrollRow = 1 
        .ScrollColumn = 1 
    End With
Next
Application.ScreenUpdating = True
End Sub