Jak zamrozić okienka za pomocą vba (z przykładami)

Aby zablokować określone panele w arkuszu programu Excel, możesz użyć następującej składni w języku VBA:

 Sub FreezeCertainPanes()

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

End Sub

Argument .SplitColumn określa liczbę kolumn (zaczynając od lewej) do zablokowania.

Argument .SplitRow określa liczbę wierszy (zaczynając od góry) do zablokowania.

To konkretne makro zamraża tylko pierwszy wiersz arkusza Excel.

Poniższe przykłady pokazują, jak zastosować tę składnię w praktyce z następującym arkuszem Excel:

Przykład 1: Zablokuj pierwszy wiersz za pomocą VBA

Możemy utworzyć następujące makro, aby zamrozić pierwszy wiersz arkusza Excel:

 Sub FreezeCertainPanes()

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

End Sub

Po wykonaniu tego makra pierwsza linia arkusza zostaje zablokowana:

Nieważne jak daleko przewiniemy, pierwszy wiersz pozostanie widoczny.

Przykład 2: Zablokuj pierwszą kolumnę za pomocą VBA

Możemy utworzyć następujące makro, aby zamrozić pierwszy wiersz arkusza Excel:

 Sub FreezeCertainPanes()

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

End Sub

Po wykonaniu tego makra pierwsza kolumna arkusza zawiesza się:

Niezależnie od przebytej odległości, pierwsza kolumna pozostanie widoczna.

Przykład 3: Zablokuj określone wiersze i kolumny za pomocą języka VBA

Możemy utworzyć następujące makro, aby zamrozić pierwsze 3 wiersze i pierwsze 2 kolumny arkusza Excel:

 Sub FreezeCertainPanes()

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

End Sub

Po wykonaniu tego makra pierwsze 3 wiersze i pierwsze 2 kolumny arkusza zostają zablokowane:

Niezależnie od przebytej odległości, pierwsze 3 rzędy i pierwsze 2 kolumny pozostaną widoczne.

Dodatkowe zasoby

Poniższe samouczki wyjaśniają, jak wykonywać inne typowe zadania w VBA:

VBA: Jak znaleźć ostatnio używaną linię
VBA: Jak znaleźć ostatnio używaną kolumnę
VBA: jak wstawić wiele linii