Preskoči na glavno vsebino

Kako uporabiti podokna za zamrznitev / odmrznitev na več delovnih listov hkrati?

Recimo, da imate velik delovni zvezek, ki vsebuje na stotine delovnih listov, zdaj pa morate uporabiti Freeze Panes, da zamrznete vse delovne liste hkrati. Z Excelovo funkcijo Zamrzni podokna lahko zamrznete samo en delovni list hkrati, ali lahko v Excelu takoj zamrznete ali odmrznete vse delovne liste hkrati?

Zamrzni podokna naenkrat na vseh delovnih listih s kodo VBA

Odmrzni podokna naenkrat na vseh delovnih listih s kodo VBA

Uporabite Zamrzni / Odmrzni podokna na vse delovne liste hkrati z enim klikom z Kutools za Excel


Za uporabo funkcij Zamrzni podokna na vseh delovnih listih lahko uporabite naslednjo kodo, naredite naslednje:

1. Če želite zamrzniti vse delovne liste v istem položaju, izberite celico, ki jo želite zamrzniti na delovnem listu, in pridržite Shift , da izberete vse zavihke listov.

2. Držite tipko ALT + F11 in odpre tipko Okno Microsoft Visual Basic for Applications.

3. Kliknite Vstavi > Moduliin prilepite naslednjo kodo v Okno modula.

Koda VBA: zamrznite vse delovne liste naenkrat v Excelu

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. In nato pritisnite F5 tipko za zagon te kode in vsi delovni listi so bili uporabljeni z zamrzovalnimi podokni v istem položaju.

Opomba: Če vsi delovni listi niso izbrani in so aktivne celice vsakega delovnega lista v različnih položajih, bodo zamrznjena podokna na različnih mestih, kot so aktivne celice.


Če je v Excelu uporabljenih več delovnih listov z zamrzovalnimi podokni, kako bi jih lahko odmrznili naenkrat, razen, da bi jih odtalili enega za drugim?

1. Zaženite svoj delovni zvezek, kateri delovni listi so bili uporabljeni s podokni za zamrzovanje.

2. Držite tipko ALT + F11 in odpre tipko Okno Microsoft Visual Basic for Applications.

3. Kliknite Vstavi > Moduliin prilepite naslednjo kodo v Okno modula.

Koda VBA: Odmrznite vse delovne liste hkrati v Excelu

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. In nato pritisnite F5 ključ za zagon te kode in vsi delovni listi, ki so bili uporabljeni z zamrzovalnimi podokni, so bili hkrati odmrznjeni.


Če ne poznate kod VBA, je tukaj močno orodje - Kutools za Excel, njeno Zamrzni podokna več delovnih listov in Odmrznite podokna več delovnih listov pripomočki vam lahko pomagajo zamrzniti ali odmrzniti vse delovne liste trenutnega delovnega zvezka hkrati.

Opomba:Če želite uporabiti to Zamrzni podokna več delovnih listov, najprej bi morali prenesti Kutools za Excelin nato funkcijo hitro in enostavno uporabite.

Po namestitvi Kutools za Excel, naredite tako:

1. Izberite celico, v kateri želite uporabiti zamrznjeno podokno za vse delovne liste, v tem primeru kliknem celico B2, glej posnetek zaslona:

doc zamrzne vse liste 1-1

2. Nato kliknite Kutools Plus > Delovni list > Zamrzni podokna več delovnih listov, glej posnetek zaslona:

3. Nato so bili na vseh vaših delovnih listih podokna zamrznitve uporabljena v istem položaju celice B2.

Opombe: Če jih želite takoj odmrzniti, morate uporabiti funkcijo Odmrzni podokna več delovnih listov s klikom Kutools Plus> Delovni list > Odmrznite podokna več delovnih listov.

Prenesite in brezplačno preizkusite Kutools za Excel zdaj!


Kutools za Excel: z več kot 300 priročnimi dodatki za Excel, brezplačno preizkusite brez omejitev v 30 dneh. Prenesite in brezplačno preskusite zdaj!

Najboljša pisarniška orodja za produktivnost

Priljubljene funkcije: Poiščite, označite ali identificirajte dvojnike   |  Izbriši prazne vrstice   |  Združite stolpce ali celice brez izgube podatkov   |   Krog brez formule ...
Super iskanje: Več kriterijev VLookup    Multiple Value VLookup  |   VLookup na več listih   |   Nejasno iskanje ....
Napredni spustni seznam: Hitro ustvarite spustni seznam   |  Odvisni spustni seznam   |  Večkrat izberite spustni seznam ....
Upravitelj stolpcev: Dodajte določeno število stolpcev  |  Premakni stolpce  |  Preklop stanja vidnosti skritih stolpcev  |  Primerjaj obsege in stolpce ...
Predstavljene funkcije: Mrežni fokus   |  Pogled oblikovanja   |   Velika vrstica formule    Upravitelj delovnih zvezkov in listov   |  Knjižnica virov (Samodejno besedilo)   |  Izbirnik datuma   |  Združite delovne liste   |  Šifriranje/dešifriranje celic    Pošljite e-pošto po seznamu   |  Super filter   |   Poseben filter (filter krepko/ležeče/prečrtano ...) ...
15 najboljših kompletov orodij12 Besedilo Orodja (dodajanje besedila, Odstrani znake,...)   |   50 + Graf Vrste (Gantt Chart,...)   |   40+ Praktično Formule (Izračunajte starost glede na rojstni dan,...)   |   19 vstavljanje Orodja (Vstavite kodo QR, Vstavi sliko s poti,...)   |   12 Pretvorba Orodja (Številke v besede, Pretvorba valut,...)   |   7 Spoji in razdeli Orodja (Napredne kombinirane vrstice, Razdeljene celice,...)   |   ... in več

Napolnite svoje Excelove spretnosti s Kutools za Excel in izkusite učinkovitost kot še nikoli prej. Kutools za Excel ponuja več kot 300 naprednih funkcij za povečanje produktivnosti in prihranek časa.  Kliknite tukaj, če želite pridobiti funkcijo, ki jo najbolj potrebujete...

zavihek kte 201905


Kartica Office prinaša vmesnik z zavihki v Office in poenostavi vaše delo

  • Omogočite urejanje in branje z zavihki v Wordu, Excelu, PowerPointu, Publisher, Access, Visio in Project.
  • Odprite in ustvarite več dokumentov v novih zavihkih istega okna in ne v novih oknih.
  • Poveča vašo produktivnost za 50%in vsak dan zmanjša na stotine klikov miške za vas!
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