Gå til hovedindhold

Hvordan påføres fryse / fryse ruder på flere regneark på én gang?

Antag, at du har en stor projektmappe, der indeholder hundredvis af regneark, og nu skal du anvende frysepanelerne for at fryse alle regnearkene på én gang. Med Excels Freeze Panes-funktion kan du bare fryse kun et regneark ad gangen. Er der en måde at fryse eller frigøre alle regneark med det samme på en gang i Excel?

Anvend frysepaneler på alle regneark på én gang med VBA-kode

Anvend Unfrise ruder på alle regneark på én gang med VBA-kode

Anvend fryse / frigøre ruder på alle regneark på én gang med et enkelt klik med Kutools til Excel


Du kan bruge følgende kode til at anvende frysepanelerne på alle regneark. Benyt følgende trin:

1. Hvis du vil fryse alle regneark i samme position, skal du vælge en celle, som du vil fryse i regnearket, og derefter holde Flytte for at vælge alle arkfaner.

2. Hold nede ALT + F11 tasterne, og det åbner Vinduet Microsoft Visual Basic til applikationer.

3. Klik indsatte > Moduler, og indsæt følgende kode i Modul vindue.

VBA-kode: Frys alle regneark på én gang i 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. Og tryk derefter på F5 nøgle til at køre denne kode, og alle regnearkene er blevet anvendt med frysepanelerne i samme position.

Bemærk: Hvis alle regneark ikke er valgt, og de aktive celler i hvert regneark er placeret i forskellige positioner, vil fryseruderne være forskellige steder som de aktive celler.


Hvis der er flere regneark, der anvendes med frysepanelerne i din Excel, hvordan kan du frigøre dem ad gangen undtagen at frigøre dem en efter en?

1. Start din projektmappe, hvilke regneark der er anvendt med frysepanelerne.

2. Hold nede ALT + F11 tasterne, og det åbner Vinduet Microsoft Visual Basic til applikationer.

3. Klik indsatte > Moduler, og indsæt følgende kode i Modul vindue.

VBA-kode: Fjern alle regneark på én gang i 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. Og tryk derefter på F5 nøgle til at køre denne kode, og alle regneark, der blev anvendt med frysepanelerne, er blevet frosset på én gang.


Hvis du ikke er bekendt med VBA-koder, er her et kraftfuldt værktøj- Kutools til Excel, dens Frys ruder flere regneark , Fjern fryseruden af ​​flere regneark hjælpeprogrammer kan hjælpe dig med at fryse eller frigøre alle regneark i den aktuelle projektmappe på én gang.

Bemærk:At anvende dette Frys ruder flere regnearkFor det første skal du downloade Kutools til Excel, og anvend derefter funktionen hurtigt og nemt.

Efter installation Kutools til Excelskal du gøre som dette:

1. Vælg en celle, hvor du vil anvende fryseruden til alle regneark, i dette tilfælde klikker jeg på celle B2, se skærmbillede:

doc fryser alle ark 1-1

2. Klik derefter på Kutools Plus > Arbejdsark > Frys ruder flere regneark, se skærmbillede:

3. Og så er alle dine regneark blevet anvendt fryseruderne i samme position som celle B2.

Bemærk: Hvis du vil frigøre dem med det samme, skal du bare anvende funktionen Opfryse ruder flere regneark ved at klikke på Kutools Plus> Arbejdsark > Fjern fryseruden af ​​flere regneark.

Download og gratis prøveversion Kutools til Excel nu!


Kutools til Excel: med mere end 300 praktiske Excel-tilføjelsesprogrammer, gratis at prøve uden begrænsning på 30 dage. Download og gratis prøveversion nu!

Bedste kontorproduktivitetsværktøjer

Populære funktioner: Find, fremhæv eller identificer dubletter   |  Slet tomme rækker   |  Kombiner kolonner eller celler uden at miste data   |   Runde uden formel ...
Super opslag: VLookup med flere kriterier    Multiple Value VLookup  |   VOpslag på tværs af flere ark   |   Fuzzy Lookup ....
Avanceret rulleliste: Opret hurtigt rulleliste   |  Afhængig rulleliste   |  Multivælg rulleliste ....
Column Manager: Tilføj et bestemt antal kolonner  |  Flyt kolonner  |  Skift synlighedsstatus for skjulte kolonner  |  Sammenlign områder og kolonner ...
Fremhævede funktioner: Grid fokus   |  Designvisning   |   Stor Formel Bar    Arbejdsbog & Ark Manager   |  Ressourcebibliotek (Autotekst)   |  Datovælger   |  Kombiner regneark   |  Krypter/Dekrypter celler    Send e-mails efter liste   |  Superfilter   |   Specielt filter (filter fed/kursiv/gennemstreget...) ...
Top 15 værktøjssæt12 tekst Værktøj (tilføje tekst, Fjern tegn, ...)   |   50 + Chart Typer (Gantt kort, ...)   |   40+ Praktisk formler (Beregn alder baseret på fødselsdag, ...)   |   19 Indsættelse Værktøj (Indsæt QR-kode, Indsæt billede fra sti, ...)   |   12 Konvertering Værktøj (Tal til ord, Valutaomregning, ...)   |   7 Flet og del Værktøj (Avancerede kombinere rækker, Opdel celler, ...)   |   ... og mere

Overlad dine Excel-færdigheder med Kutools til Excel, og oplev effektivitet som aldrig før. Kutools til Excel tilbyder over 300 avancerede funktioner for at øge produktiviteten og spare tid.  Klik her for at få den funktion, du har mest brug for...

kte-fane 201905


Fanen Office bringer en grænseflade til et kontor med Office, og gør dit arbejde meget lettere

  • Aktiver redigering og læsning af faner i Word, Excel, PowerPoint, Publisher, Access, Visio og Project.
  • Åbn og opret flere dokumenter i nye faner i det samme vindue snarere end i nye vinduer.
  • Øger din produktivitet med 50 % og reducerer hundredvis af museklik for dig hver dag!
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