Как закрепить панели с помощью vba (с примерами)

Вы можете использовать следующий синтаксис в VBA, чтобы закрепить определенные панели на листе Excel:

 Sub FreezeCertainPanes()

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

End Sub

Аргумент .SplitColumn указывает количество столбцов (начиная слева), которые необходимо заморозить.

Аргумент .SplitRow указывает количество строк (начиная сверху), которые необходимо заморозить.

Этот конкретный макрос замораживает только первую строку листа Excel.

Следующие примеры показывают, как использовать этот синтаксис на практике со следующим листом Excel:

Пример 1: заморозить первую строку с помощью VBA

Мы можем создать следующий макрос, чтобы заморозить первую строку листа Excel:

 Sub FreezeCertainPanes()

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

End Sub

После выполнения этого макроса первая строка листа замораживается:

Независимо от того, насколько далеко мы прокручиваем, первая строка останется видимой.

Пример 2: заморозить первый столбец с помощью VBA

Мы можем создать следующий макрос, чтобы заморозить первую строку листа Excel:

 Sub FreezeCertainPanes()

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

End Sub

После выполнения этого макроса первый столбец листа зависает:

Независимо от пройденного расстояния, первый столбец останется видимым.

Пример 3. Закрепление определенных строк и столбцов с помощью VBA

Мы можем создать следующий макрос, чтобы заморозить первые 3 строки и первые 2 столбца листа Excel:

 Sub FreezeCertainPanes()

With ActiveWindow
    If .FreezePanes Then .FreezePanes = False
    .SplitColumn = 2
    .SplitRow = 3
    .FreezePanes = True
End With

End Sub

После выполнения этого макроса первые 3 строки и первые 2 столбца листа замораживаются:

Независимо от пройденного расстояния, первые 3 строки и первые 2 столбца останутся видимыми.

Дополнительные ресурсы

В следующих руководствах объясняется, как выполнять другие распространенные задачи в VBA:

VBA: как найти последнюю использованную строку
VBA: как найти последний использованный столбец
VBA: как вставить несколько строк