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

Hogyan alkalmazzuk a fagyasztás / feloldás ablaktáblákat egyszerre több munkalapra?

Tegyük fel, hogy van egy nagy munkafüzete, amely több száz munkalapot tartalmaz, és most a Fagyasztópaneleket kell alkalmaznia az összes munkalap egyszerre történő befagyasztásához. Az Excel Freeze Panes funkciójával egyszerre csak egy munkalapot fagyaszthat le. Van-e mód az összes munkalap egyszerre történő befagyasztására vagy feloldására az Excelben?

A Freeze Panes alkalmazást minden munkalapra egyszerre VBA-kóddal alkalmazza

Alkalmazza a Fagyasztásmentesítés ablakokat egyszerre az összes munkalapra, VBA kóddal

A Fagyasztás / Feloldás panelek alkalmazása az összes munkalapra egyszerre, egy kattintással a Kutools for Excel alkalmazással


A következő kód segítségével alkalmazhatja a Fagyasztópaneleket az összes munkalapra, kérjük, tegye a következőket:

1. Ha az összes munkalapot ugyanabba a helyzetbe szeretné fagyasztani, válassza ki a fagyasztani kívánt cellát a munkalapon, majd tartsa lenyomva műszak gombot az összes lap fül kiválasztásához.

2. Tartsa lenyomva a ALT + F11 gombokat, és ez megnyitja a Microsoft Visual Basic for Applications ablak.

3. Kattints betétlap > Modulok, és illessze be a következő kódot a Modul ablak.

VBA-kód: Fagyassza le egyszerre az összes munkalapot az Excelben

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. Ezután nyomja meg a gombot F5 gombot a kód futtatásához, és az összes munkalapot felvették a fagyasztótáblákkal azonos helyzetbe.

Jegyzet: Ha az összes munkalap nincs kijelölve, és az egyes munkalapok aktív cellái különböző pozíciókban helyezkednek el, akkor a lefagyasztott ablaktáblák az aktív cellák különböző helyein helyezkednek el.


Ha több munkalapot alkalmaznak az Excel fagyasztó ablakaival, hogyan lehetne egyszerre fagyasztani őket, kivéve, ha egyesével fagyasztja őket?

1. Indítsa el a munkafüzetet, mely munkalapokat alkalmazták a rögzítő ablaktáblákkal.

2. Tartsa lenyomva a ALT + F11 gombokat, és ez megnyitja a Microsoft Visual Basic for Applications ablak.

3. Kattints betétlap > Modulok, és illessze be a következő kódot a Modul ablak.

VBA-kód: Az összes munkalap fagyasztása egyszerre az Excelben

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. Ezután nyomja meg a gombot F5 kulcsa ennek a kódnak a futtatásához, és a fagyasztópanelekkel alkalmazott összes munkalap egyszerre fel lett oldva.


Ha nem ismeri a VBA kódokat, itt van egy hatékony eszköz- Kutools az Excel számára, annak Freeze ablaktáblák több munkalapot és a A fagyás megszüntetése több munkalapot is ablaktábláz segédprogramok segíthetnek az aktuális munkafüzet összes munkalapjának egyszerre történő befagyasztásában vagy feloldásában.

Jegyzet:Ennek alkalmazásához Freeze ablaktáblák több munkalapot, először is le kell töltenie a Kutools az Excel számára, majd gyorsan és egyszerűen alkalmazza a funkciót.

Telepítése után Kutools az Excel számára, kérjük, tegye a következőket:

1. Válasszon ki egy cellát, ahol az összes munkalapra alkalmazni szeretné a befagyasztási ablaktáblát, ebben az esetben a B2 cellára kattintok, lásd a képernyőképet:

doc az összes lap lefagyasztása 1-1

2. Ezután kattintson Kutools Plus > Munkalap > Freeze ablaktáblák több munkalapot, lásd a képernyőképet:

3. És akkor az összes munkalapot felvette a fagyasztótáblákkal a B2 cella azonos helyzetébe.

Megjegyzések: Ha azonnal le akarja oldani a fagyasztást, akkor csak rá kell kattintania a Több munkalap ablaka feloldása funkcióra. Kutools Plus> Munkalap > A fagyás megszüntetése több munkalapot is ablaktábláz.

Töltse le és ingyenes próbaverziót Kutools for Excel Now!


Kutools az Excel számára: több mint 300 praktikus Excel-bővítménnyel, ingyenesen, korlátozás nélkül, 30 nap alatt kipróbálható. Töltse le és ingyenes próbaverziót most!

A legjobb irodai termelékenységi eszközök

A Kutools for Excel megoldja a legtöbb problémát, és 80% -kal növeli a termelékenységet

  • újrafelhasználás: Gyorsan helyezze be összetett képletek, diagramok és bármi, amit korábban használt; Cellák titkosítása jelszóval; Levelezőlista létrehozása és e-maileket küldeni ...
  • Szuper Formula Bár (könnyedén szerkeszthet több szöveget és képletet); Olvasás elrendezés (könnyen olvasható és szerkeszthető nagyszámú cella); Beillesztés a Szűrt tartományba...
  • Cellák / sorok / oszlopok egyesítése az adatok elvesztése nélkül; Osztott cellák tartalma; Kombinálja a duplikált sorokat / oszlopokat... megakadályozza az ismétlődő cellákat; Hasonlítsa össze a tartományokat...
  • Válassza a Másolat vagy az Egyedi lehetőséget Sorok; Válassza az Üres sorok lehetőséget (az összes cella üres); Super Find és Fuzzy Find sok munkafüzetben; Véletlenszerű kiválasztás ...
  • Pontos másolás Több cella a képletreferencia megváltoztatása nélkül; Automatikus referenciák létrehozása több lapra; Helyezze be a golyókat, Jelölőnégyzetek és még sok más ...
  • Kivonat szöveg, Szöveg hozzáadása, Eltávolítás pozíció szerint, Hely eltávolítása; Hozz létre és nyomtasson személyhívó részösszegeket; Konvertálás a cellatartalom és a megjegyzések között...
  • Szuper szűrő (mentse el és alkalmazza a szűrősémákat más lapokra); Haladó rendezés hónap / hét / nap, gyakoriság és egyebek szerint; Speciális szűrő félkövér, dőlt betűvel ...
  • Kombinálja a munkafüzeteket és a munkalapokat; Táblázatok egyesítése kulcsoszlopok alapján; Az adatok felosztása több lapra; Kötegelt konvertálás xls, xlsx és PDF...
  • Több mint 300 hatékony funkció. Támogatja az Office / Excel 2007-2021 és 365 verziókat. Minden nyelvet támogat. Könnyű üzembe helyezés vállalatában vagy szervezetében. Teljes funkciók 30 napos ingyenes próbaverzió. 60 napos pénzvisszafizetési garancia.
kte lap 201905

Az Office fül a füles felületet hozza az Office-ba, és sokkal könnyebbé teszi a munkáját

  • Füles szerkesztés és olvasás engedélyezése Wordben, Excelben és PowerPointban, Publisher, Access, Visio és Project.
  • Több dokumentum megnyitása és létrehozása ugyanazon ablak új lapjain, mint új ablakokban.
  • 50% -kal növeli a termelékenységet, és naponta több száz kattintással csökkenti az egér kattintását!
officetab alja
A megjegyzések rendezése szerint
Hozzászólások (6)
Még nincs értékelés. Legyen Ön az első, aki értékel!
A weboldal moderátora ezt a megjegyzést minimalizálta
Kedves Mindenki, van egy teszt a munkafüzetemben. Jegyezze meg, hogy mielőtt alkalmazná ezt a makrót, vigye az egeret arra a cellára, amelyre a munkalap rögzítési ablaktábláját alkalmaznia kell. nagyon hasznos. ezt az információt keresem. köszönöm szépen Lan
A weboldal moderátora ezt a megjegyzést minimalizálta
Kipróbáltam ezt a munkafüzetemben, és nagyon jól működött. Kösz
A weboldal moderátora ezt a megjegyzést minimalizálta
több munkalapon is rögzíteni szeretné a felső sort
A weboldal moderátora ezt a megjegyzést minimalizálta
Csak kiválasztott munkalapokon lehet ezt megtenni?

mit kell módosítanom a kódban.
A weboldal moderátora ezt a megjegyzést minimalizálta
Szia Fernando!

A rögzített lapok kiválasztott lapokra történő alkalmazásához használja a következő kódot:



Sub Freeze()

'Frissítés által Extendoffice

Dim Ws munkalapként

Dim xArrName As Variant

Dim xS

xArrName = Array("Sheet2", "Sheet3") 'Módosítsa a lapneveket igény szerint

Application.ScreenUpdating = Hamis

Minden xS In xArrName esetén

Ws halmaz = munkalapok (xS)

Ha nem a Ws akkor semmi

Ws.Activate

Az Application.ActiveWindow segítségével

.FreezePanes = Igaz

Vége

Ha véget

Következő

Application.ScreenUpdating = Igaz

End Sub



Kérlek próbáld ki, köszönöm!
A weboldal moderátora ezt a megjegyzést minimalizálta
Ez működne, de minden alkalommal módosítanom kell, amikor egy másik munkafüzetben próbálom futtatni.

Módosítható-e a makró a fő ablaktáblában kiválasztott lapokra úgy, hogy rákattint az egyikre, lenyomja a shiftet, és kiválasztja a többit?
Még senki sem írt megjegyzést
Hagyja meg észrevételeit
Feladás vendégként
×
Értékeld ezt a bejegyzést:
0   Karakterek
Javasolt helyek

Kövess minket

Copyright © 2009 - www.extendoffice.com. | Minden jog fenntartva. Powered by ExtendOffice. | Oldaltérkép
A Microsoft és az Office logó a Microsoft Corporation védjegyei vagy bejegyzett védjegyei az Egyesült Államokban és / vagy más országokban.
Sectigo SSL védi