Note: The other languages of the website are Google-translated. Back to English

Jak zastosować okienka zamrożenia / odblokowania do wielu arkuszy jednocześnie?

Przypuśćmy, że masz duży skoroszyt, który zawiera setki arkuszy, a teraz musisz zastosować Zablokuj okienka, aby zamrozić wszystkie arkusze jednocześnie. Dzięki funkcji Zablokuj okienka programu Excel możesz po prostu zamrozić tylko jeden arkusz na raz, czy istnieje sposób na natychmiastowe zablokowanie lub odblokowanie wszystkich arkuszy w programie Excel?

Zastosuj zamrożone okienka do wszystkich arkuszy jednocześnie z kodem VBA

Zastosuj Odblokuj okienka do wszystkich arkuszy jednocześnie z kodem VBA

Zastosuj okienka Zablokuj / Odblokuj do wszystkich arkuszy jednocześnie jednym kliknięciem za pomocą Kutools for Excel


Możesz użyć następującego kodu, aby zastosować Zablokuj okienka do wszystkich arkuszy roboczych, wykonaj następujące czynności:

1. Jeśli chcesz zablokować wszystkie arkusze w tej samej pozycji, wybierz komórkę, którą chcesz zablokować w arkuszu, a następnie przytrzymaj przesunięcie klawisz, aby wybrać wszystkie karty arkuszy.

2. Przytrzymaj ALT + F11 klucze i otwiera plik Okno Microsoft Visual Basic for Applications.

3, Kliknij wstawka > Modułi wklej następujący kod w Okno modułu.

Kod VBA: zamrażaj wszystkie arkusze jednocześnie w programie Excel

Sub Freeze()
'Updateby Extendoffice
Dim Ws As Worksheet
Application.ScreenUpdating = False
For Each Ws In Application.ActiveWorkbook.Worksheets
    Ws.Activate
    With Application.ActiveWindow
        .FreezePanes = True
    End With
Next
Application.ScreenUpdating = True
End Sub

4. A następnie naciśnij F5 klawisz, aby uruchomić ten kod, a wszystkie arkusze zostały zastosowane z okienkami zamrażania w tej samej pozycji.

Uwaga: Jeśli wszystkie arkusze robocze nie są zaznaczone, a aktywne komórki każdego arkusza znajdują się w różnych miejscach, zamrożone okienka będą w różnych miejscach, w których znajdują się aktywne komórki.


Jeśli w programie Excel zastosowano wiele arkuszy roboczych z okienkami zamrożenia, jak można je odblokować naraz, z wyjątkiem odblokowywania ich jeden po drugim?

1. Uruchom skoroszyt, w którym arkusze robocze zostały zastosowane z okienkami zamrożenia.

2. Przytrzymaj ALT + F11 klucze i otwiera plik Okno Microsoft Visual Basic for Applications.

3, Kliknij wstawka > Modułi wklej następujący kod w Okno modułu.

Kod VBA: Odblokuj wszystkie arkusze naraz w programie Excel

Sub UnFreeze()
'Updateby Extendoffice
Dim Ws As Worksheet
Application.ScreenUpdating = False
For Each Ws In Application.ActiveWorkbook.Worksheets
    Ws.Activate
    With Application.ActiveWindow
        .FreezePanes = False
    End With
Next
Application.ScreenUpdating = True
End Sub

4. A następnie naciśnij F5 klucz do uruchomienia tego kodu, a wszystkie arkusze robocze zastosowane z okienkami zamrożenia zostały natychmiast odblokowane.


Jeśli nie znasz kodów VBA, oto potężne narzędzie- Kutools dla programu Excel, jego Zablokuj okienka w wielu arkuszach i Odblokuj okienka wielu arkuszy narzędzia mogą pomóc w zamrażaniu lub odblokowywaniu wszystkich arkuszy bieżącego skoroszytu jednocześnie.

Uwaga:Aby to zastosować Zablokuj okienka w wielu arkuszach, po pierwsze, należy pobrać plik Kutools dla programu Excel, a następnie szybko i łatwo zastosuj tę funkcję.

Po zainstalowaniu Kutools dla programu Excel, zrób tak:

1. Wybierz komórkę, w której chcesz zastosować okienko zamrażania dla wszystkich arkuszy roboczych, w tym przypadku klikam komórkę B2, zobacz zrzut ekranu:

doc zamrozić wszystkie arkusze 1-1

2. Następnie kliknij Kutools Plus > Ćwiczenie > Zablokuj okienka w wielu arkuszachzobacz zrzut ekranu:

3. A potem wszystkie twoje arkusze zostały zastosowane jako zamrożone okienka w tej samej pozycji co komórka B2.

Uwagi: Jeśli chcesz je natychmiast odblokować, wystarczy zastosować funkcję Odblokuj panele wielu arkuszy roboczych, klikając Kutools Plus> Ćwiczenie > Odblokuj okienka wielu arkuszy.

Pobierz i bezpłatną wersję próbną Kutools dla programu Excel teraz!


Kutools dla programu Excel: z ponad 300 poręcznymi dodatkami do programu Excel, które można wypróbować bez ograniczeń w ciągu 30 dni. Pobierz i bezpłatną wersję próbną teraz!

Najlepsze narzędzia biurowe

Kutools dla programu Excel rozwiązuje większość problemów i zwiększa produktywność o 80%

  • Ponowne użycie: Szybko włóż złożone wzory, wykresy i wszystko, czego używałeś wcześniej; Szyfruj komórki z hasłem; Utwórz listę mailingową i wysyłaj e-maile ...
  • Pasek Super Formula (łatwo edytować wiele wierszy tekstu i formuły); Układ do czytania (łatwe odczytywanie i edytowanie dużej liczby komórek); Wklej do filtrowanego zakresu...
  • Scal komórki / wiersze / kolumny bez utraty danych; Podziel zawartość komórek; Połącz zduplikowane wiersze / kolumny... Zapobiegaj zduplikowanym komórkom; Porównaj zakresy...
  • Wybierz Duplikat lub Unikalny Wydziwianie; Wybierz puste wiersze (wszystkie komórki są puste); Super Find i Fuzzy Find w wielu zeszytach ćwiczeń; Losowy wybór ...
  • Dokładna kopia Wiele komórek bez zmiany odwołania do formuły; Automatyczne tworzenie odniesień do wielu arkuszy; Wstaw punktory, Pola wyboru i nie tylko ...
  • Wyodrębnij tekst, Dodaj tekst, Usuń według pozycji, Usuń przestrzeń; Tworzenie i drukowanie podsumowań stronicowania; Konwertuj zawartość komórek i komentarze...
  • Super filtr (zapisz i zastosuj schematy filtrów do innych arkuszy); Zaawansowane sortowanie według miesiąca / tygodnia / dnia, częstotliwości i innych; Specjalny filtr pogrubieniem, kursywą ...
  • Połącz skoroszyty i arkusze robocze; Scal tabele na podstawie kluczowych kolumn; Podziel dane na wiele arkuszy; Konwersja wsadowa xls, xlsx i PDF...
  • Ponad 300 zaawansowanych funkcji. Obsługuje Office / Excel 2007-2021 i 365. Obsługuje wszystkie języki. Łatwe wdrażanie w przedsiębiorstwie lub organizacji. Pełne funkcje 30-dniowa bezpłatna wersja próbna. 60-dniowa gwarancja zwrotu pieniędzy.
karta kte 201905

Karta Office wprowadza interfejs z zakładkami do pakietu Office i znacznie ułatwia pracę

  • Włącz edycję i czytanie na kartach w programach Word, Excel, PowerPoint, Publisher, Access, Visio i Project.
  • Otwieraj i twórz wiele dokumentów w nowych kartach tego samego okna, a nie w nowych oknach.
  • Zwiększa produktywność o 50% i redukuje setki kliknięć myszką każdego dnia!
officetab dół
Sortuj komentarze według
Komentarze (6)
Brak ocen. Oceń jako pierwszy!
Ten komentarz został zminimalizowany przez moderatora na stronie
drodzy wszyscy mam test w moim skoroszycie, mam dobrą wiadomość, że zanim zastosujesz to makro, najedź myszką na komórkę, w której chcesz zastosować okienko zamrażania w arkuszu. to naprawdę pomocne. ta informacja jest tym, czego szukam. bardzo dziękuję Lan
Ten komentarz został zminimalizowany przez moderatora na stronie
Próbowałem tego w moim zeszycie ćwiczeń i działało to bardzo dobrze. dzięki
Ten komentarz został zminimalizowany przez moderatora na stronie
chcesz mieć możliwość zamrożenia górnego wiersza w wielu arkuszach roboczych
Ten komentarz został zminimalizowany przez moderatora na stronie
Czy można to zrobić tylko na wybranych arkuszach?

co powinienem zmienić w kodzie.
Ten komentarz został zminimalizowany przez moderatora na stronie
Cześć Fernando,

Aby zastosować okienko zamrażania do wybranych arkuszy, użyj poniższego kodu:



Zamrożenie podrzędne()

„Aktualizuj do” Extendoffice

Dim Ws jako arkusz roboczy

Dim xArrName jako wariant

wym xS

xArrName = Array("Arkusz2", "Arkusz3") 'Zmień nazwy arkuszy według potrzeb

Application.ScreenUpdating = Fałsz

Dla każdego xS w xArrName

Ustaw Ws = Arkusze (xS)

Jeśli nie Ws jest niczym, to

Ws.Aktywuj

Z Application.ActiveWindow

.FreezePanes = Prawda

Kończyć z

End If

Dalej

Application.ScreenUpdating = True

End Sub



Proszę spróbować, dziękuję!
Ten komentarz został zminimalizowany przez moderatora na stronie
To zadziała, ale będę musiał zmienić za każdym razem, gdy spróbuję uruchomić go w innym skoroszycie.

Czy można zmodyfikować makro do arkuszy, które wybieram w głównym panelu, klikając jeden i naciskając klawisz Shift i wybierając pozostałe?
Nie ma tu jeszcze żadnych komentarzy

Bądż na bieżąco

Prawa autorskie © 2009 - www.extendoffice.com. | Wszelkie prawa zastrzeżone. Zasilany przez ExtendOffice, | Mapa strony
Microsoft i logo Office są znakami towarowymi lub zastrzeżonymi znakami towarowymi Microsoft Corporation w Stanach Zjednoczonych i / lub innych krajach.
Chronione przez Sectigo SSL