Ugrás a tartalomra

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 Kutools for Excel segítségével egy kattintással alkalmazza az ablaktáblák befagyasztását / feloldását az összes munkalapra


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ója a Kutools for Excel programhoz most!


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 hatékonyságnövelő eszközök

🤖 Kutools AI Aide: Forradalmasítsa az adatelemzést a következők alapján: Intelligens végrehajtás   |  Kód létrehozása  |  Hozzon létre egyéni képleteket  |  Adatok elemzése és diagramok létrehozása  |  A Kutools funkciók meghívása...
Népszerű szolgáltatások: Ismétlődések keresése, kiemelése vagy azonosítása   |  Üres sorok törlése   |  Oszlopok vagy cellák kombinálása adatvesztés nélkül   |   Kerek Formula nélkül ...
Szuper keresés: Több kritérium VLookup    Többértékű VLookup  |   VLookup több munkalapon   |   Fuzzy Lookup ....
Speciális legördülő lista: Gyors legördülő lista létrehozása   |  Függő legördülő lista   |  Többszörösen válassza ki a legördülő listát ....
Oszlopkezelő: Adjon meg egy adott számú oszlopot  |  Oszlopok mozgatása  |  Kapcsolja be a Rejtett oszlopok láthatósági állapotát  |  Tartományok és oszlopok összehasonlítása ...
Kiemelt funkciók: Rács fókusz   |  Design nézet   |   Nagy Formula bár    Munkafüzet és lapkezelő   |  Erőforrás-könyvtár (Auto szöveg)   |  Dátumválasztó   |  Kombinálja a munkalapokat   |  Cellák titkosítása/dekódolása    E-mailek küldése listánként   |  Szuper szűrő   |   Speciális szűrő (félkövér/dőlt/áthúzott szűrés...) ...
A 15 legjobb eszközkészlet12 szöveg Eszközök (Szöveg hozzáadása, Karakterek eltávolítása,...)   |   50 + Táblázatos Típusai (Gantt-diagram,...)   |   40+ Praktikus képletek (Számolja ki az életkort a születésnap alapján,...)   |   19 beszúrás Eszközök (Helyezze be a QR-kódot, Kép beszúrása az útvonalból,...)   |   12 Átalakítás Eszközök (Számok szavakig, Valuta átváltás,...)   |   7 Egyesítés és felosztás Eszközök (Haladó kombinált sorok, Hasított sejtek,...)   |   ... és több

Töltsd fel Excel-készségeidet a Kutools for Excel segítségével, és tapasztald meg a még soha nem látott hatékonyságot. A Kutools for Excel több mint 300 speciális funkciót kínál a termelékenység fokozásához és az időmegtakarításhoz.  Kattintson ide, hogy megszerezze a leginkább szükséges funkciót...

Leírás


Az Office lap füles felületet hoz 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!
Comments (6)
No ratings yet. Be the first to rate!
This comment was minimized by the moderator on the site
Is it possible to do it on selected worksheets only?

what would i need to change in the code.
This comment was minimized by the moderator on the site
Hi, Fernando,

To apply the freeze pane to selected sheets, please use the following code:



Sub Freeze()

'Updateby Extendoffice

Dim Ws As Worksheet

Dim xArrName As Variant

Dim xS

xArrName = Array("Sheet2", "Sheet3") 'Change the sheet names to your need

Application.ScreenUpdating = False

For Each xS In xArrName

Set Ws = Worksheets(xS)

If Not Ws Is Nothing Then

Ws.Activate

With Application.ActiveWindow

.FreezePanes = True

End With

End If

Next

Application.ScreenUpdating = True

End Sub



Please try it, thank you!
This comment was minimized by the moderator on the site
This would work but i would need to change every time i try and run it in a different workbook.

Is it possible for the macro to be modified to the sheets i select in the main pane by clicking on one and pressing shift and selecting the other ones?
This comment was minimized by the moderator on the site
want to be able to freeze top row on multiple worksheets
This comment was minimized by the moderator on the site
I tried this in my workbook and it worked very well. thanks
This comment was minimized by the moderator on the site
dear all, I have a test in my workbook, have a good note that before you apply this macro, please move the mouse to the cell that you need to apply freeze pane in the sheet. it's really helpful. this info is what I am looking for. thank you very much Lan
There are no comments posted here yet
Please leave your comments in English
Posting as Guest
×
Rate this post:
0   Characters
Suggested Locations