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

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 orodja za pisarniško produktivnost

Kutools za Excel rešuje večino vaših težav in poveča vašo produktivnost za 80%

  • Ponovna uporaba: Hitro vstavite zapletene formule, grafikoni in vse, kar ste že uporabljali; Šifriraj celice z geslom; Ustvari poštni seznam in pošiljanje e-pošte ...
  • Vrstica Super Formula (enostavno urejanje več vrstic besedila in formule); Bralna postavitev (enostavno branje in urejanje velikega števila celic); Prilepite v filtrirani obseg...
  • Združi celice / vrstice / stolpce brez izgube podatkov; Vsebina razdeljenih celic; Združi podvojene vrstice / stolpce... prepreči podvojene celice; Primerjaj obsege...
  • Izberite Duplicate ali Unique Vrstice; Izberite prazne vrstice (vse celice so prazne); Super Find in Fuzzy Find v mnogih delovnih zvezkih; Naključna izbira ...
  • Natančna kopija Več celic brez spreminjanja sklica formule; Samodejno ustvarjanje referenc na več listov; Vstavi oznake, Potrditvena polja in še več ...
  • Izvleček besedila, Dodaj besedilo, Odstrani po položaju, Odstrani presledek; Ustvari in natisni vmesne seštevke strani Pretvarjanje med vsebino celic in komentarji...
  • Super filter (shranite in uporabite sheme filtrov za druge liste); Napredno razvrščanje glede na mesec / teden / dan, pogostost in drugo; Poseben filter s krepko, ležeče ...
  • Združite delovne zvezke in delovne liste; Spoji tabele na podlagi ključnih stolpcev; Razdelite podatke na več listov; Paketna pretvorba xls, xlsx in PDF...
  • Več kot 300 zmogljivih funkcij. Podpira Office / Excel 2007-2021 in 365. Podpira vse jezike. Enostavna uvedba v vašem podjetju ali organizaciji. 30-dnevna brezplačna preizkusna različica vseh funkcij. 60-dnevna garancija vračila denarja.
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!
dno pisarniške mize
Komentarji (6)
Ocene še ni. Bodite prvi in ​​ocenite!
Ta komentar je moderator na spletnem mestu minimiziral
dragi vsi, v svojem delovnem zvezku imam test, lepo se spomnite, da preden uporabite ta makro, premaknite miško na celico, ki jo potrebujete za uporabo zamrznjenega podokna na listu. res je v pomoč. te informacije iščem. najlepša hvala Lan
Ta komentar je moderator na spletnem mestu minimiziral
To sem poskusil v svojem delovnem zvezku in je zelo dobro delovalo. hvala
Ta komentar je moderator na spletnem mestu minimiziral
želite imeti možnost zamrznitve zgornje vrstice na več delovnih listih
Ta komentar je moderator na spletnem mestu minimiziral
Ali je to mogoče narediti samo na izbranih delovnih listih?

kaj bi moral spremeniti v kodi.
Ta komentar je moderator na spletnem mestu minimiziral
Živjo, Fernando,

Če želite podokno zamrznitve uporabiti za izbrane liste, uporabite naslednjo kodo:



Sub Freeze()

'Posodobitev Extendoffice

Dim Ws kot delovni list

Dim xArrName kot različica

Dimenzija xS

xArrName = Array("Sheet2", "Sheet3") 'Spremenite imena listov glede na vaše potrebe

Application.ScreenUpdating = Napačno

Za vsak xS v xArrName

Nastavi Ws = Delovni listi (xS)

Če ne, potem je Ws nič

Ws.Aktiviraj

Z Application.ActiveWindow

.FreezePanes = Res

Končaj s

Konec Če

Naslednji

Application.ScreenUpdating = Res

End Sub



Prosim, poskusite, hvala!
Ta komentar je moderator na spletnem mestu minimiziral
To bi delovalo, vendar bi ga moral spremeniti vsakič, ko ga poskusim zagnati v drugem delovnem zvezku.

Ali je možno, da se makro spremeni v liste, ki jih izberem v glavnem podoknu, tako da kliknete enega in pritisnete shift ter izberete druge?
Tu še ni objavljenih komentarjev
Pustite vaše komentarje
Objava kot gost
×
Ocenite to objavo:
0   Znaki
Predlagane lokacije

Sledi nam

Copyright © 2009 - www.extendoffice.com. | Vse pravice pridržane. Poganja ga ExtendOffice. | Kazalo
Microsoft in logotip Office sta blagovni znamki ali registrirani blagovni znamki družbe Microsoft Corporation v ZDA in / ali drugih državah.
Zaščiteno s Sectigo SSL