Як заморозити панелі за допомогою 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: як вставити кілька рядків