冻结顶部行分割屏幕

Question

我记录了一个宏，它只使用Excel 2007中冻结窗格下拉中的内置"冻结顶行"选项。

在编辑器中查看的代码如下:

With ActiveWindow
    .SplitColumn = 0
    .SplitRow = 1
End With
ActiveWindow.FreezePanes = True

但是，当我从编辑器中运行这段代码时，它会分割屏幕，而不是冻结窗格。它给出了期望的效果，但是在ribbon上选择了"split"选项。

任何想法?

Answer 1

由于某些原因，您描述的行为是正确的。
我找不到自动取款机的答案。但下面的工作冻结了顶部的行。
使用注释代码效果相同。

Rows("2:2").Select '~~> Range("A2").Select
ActiveWindow.FreezePanes = True

注意:如果ScreenUpdating为False，然后在后面的代码中设置为True，则上述将不起作用

Answer 2

要冻结顶部行，使用以下代码:

Rows("1:1").Select
ActiveWindow.FreezePanes = True

要冻结比顶部的行更多的行，将Rows("1:1").Select改为所需的行。

您需要激活您想要冻结行的工作表。下面的代码是一个可以使用的示例过程:

Public Sub fFreezeRow(wsName As String, intRow As Integer)
With ThisWorkbook.Worksheets(wsName)
    .Activate
    .Rows(intRow & ":" & intRow).Select
End With
ActiveWindow.FreezePanes = True
End Sub