Skip i'r prif gynnwys

Sut i gymhwyso cwareli rhewi / dadrewi ar sawl taflen waith ar unwaith?

Gan dybio bod gennych lyfr gwaith mawr sy'n cynnwys cannoedd o daflenni gwaith, ac yn awr mae angen i chi gymhwyso'r Paneli Rhewi i rewi'r holl daflenni gwaith ar unwaith. Gyda swyddogaeth Panes Rhewi Excel, dim ond un daflen waith y gallwch ei rhewi ar y tro, a oes ffordd i rewi neu ddadrewi pob taflen waith ar unwaith yn Excel?

Rhowch Paneli Rhewi ar bob taflen waith ar unwaith gyda chod VBA

Cymhwyso Paneli Unfreeze i bob taflen waith ar unwaith gyda chod VBA

Gwnewch gais Rhewi / Dadrewi Paenau i bob taflen waith ar unwaith trwy un clic gyda Kutools ar gyfer Excel


Gallwch ddefnyddio'r cod canlynol i gymhwyso'r Paneli Rhewi ym mhob taflen waith, gwnewch y camau canlynol:

1. Os ydych chi am rewi'r holl daflenni gwaith yn yr un sefyllfa, dewiswch gell rydych chi am ei rhewi yn y daflen waith, ac yna daliwch hi Symud allwedd i ddewis pob tab dalen.

2. Daliwch i lawr y ALT + F11 allweddi, ac mae'n agor y Ffenestr Microsoft Visual Basic for Applications.

3. Cliciwch Mewnosod > Modiwlau, a gludwch y cod canlynol yn y Ffenestr Modiwl.

Cod VBA: Rhewi pob taflen waith ar unwaith yn 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. Ac yna pwyswch F5 yn allweddol i redeg y cod hwn, ac mae'r holl daflenni gwaith wedi'u cymhwyso gyda'r cwareli rhewi yn yr un sefyllfa.

Nodyn: Os na ddewisir yr holl daflenni gwaith a bod celloedd gweithredol pob taflen waith mewn gwahanol leoliadau, bydd y cwareli rhewi yn y gwahanol leoedd fel y celloedd gweithredol.


Os oes nifer o daflenni gwaith yn cael eu defnyddio gyda'r cwareli rhewi yn eich Excel, sut allech chi eu dadrewi ar y tro ac eithrio eu dadrewi fesul un?

1. Lansiwch eich llyfr gwaith pa daflenni gwaith sydd wedi'u defnyddio gyda'r cwareli rhewi.

2. Daliwch i lawr y ALT + F11 allweddi, ac mae'n agor y Ffenestr Microsoft Visual Basic for Applications.

3. Cliciwch Mewnosod > Modiwlau, a gludwch y cod canlynol yn y Ffenestr Modiwl.

Cod VBA: Dadrewi pob taflen waith ar unwaith yn 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. Ac yna pwyswch F5 allwedd i redeg y cod hwn, ac mae'r holl daflenni gwaith a gymhwysodd gyda'r cwareli rhewi wedi bod heb eu rhewi ar unwaith.


Os nad ydych chi'n gyfarwydd â'r codau VBA, dyma offeryn pwerus- Kutools ar gyfer Excel, ei Rhewi cwarel taflenni gwaith lluosog ac Paneli unfreeze taflenni gwaith lluosog gall cyfleustodau eich helpu i rewi neu ddadrewi holl daflenni gwaith y llyfr gwaith cyfredol ar unwaith.

Nodyn:I gymhwyso hyn Rhewi cwarel taflenni gwaith lluosog, yn gyntaf, dylech lawrlwytho'r Kutools ar gyfer Excel, ac yna cymhwyswch y nodwedd yn gyflym ac yn hawdd.

Ar ôl gosod Kutools ar gyfer Excel, gwnewch fel hyn:

1. Dewiswch gell lle rydych chi am gymhwyso'r cwarel rhewi ar gyfer pob taflen waith, yn yr achos hwn, rwy'n clicio cell B2, gweler y screenshot:

mae doc yn rhewi pob dalen 1-1

2. Yna cliciwch Kutools Byd Gwaith > Taflen Waith > Rhewi cwarel taflenni gwaith lluosog, gweler y screenshot:

3. Ac yna mae eich holl daflenni gwaith wedi'u cymhwyso'r cwareli rhewi yn yr un safle â chell B2.

Nodyn: Os ydych chi am eu dadrewi ar unwaith, does ond angen i chi gymhwyso nodwedd taflenni gwaith lluosog cwarel Unfreeze trwy glicio Kutools Byd Gwaith> Taflen Waith > Paneli unfreeze taflenni gwaith lluosog.

Dadlwythwch a threial am ddim Kutools ar gyfer Excel Nawr !


Kutools ar gyfer Excel: gyda mwy na 300 o ychwanegiadau Excel defnyddiol, am ddim i geisio heb unrhyw gyfyngiad mewn 30 diwrnod. Dadlwythwch a threial am ddim Nawr!

Offer Cynhyrchiant Swyddfa Gorau

🤖 Kutools AI Aide: Chwyldro dadansoddi data yn seiliedig ar: Cyflawniad Deallus   |  Cynhyrchu Cod  |  Creu Fformiwlâu Personol  |  Dadansoddi Data a Chynhyrchu Siartiau  |  Invoke Swyddogaethau Kutools...
Nodweddion Poblogaidd: Darganfod, Amlygu neu Adnabod Dyblygiadau   |  Dileu Rhesi Gwag   |  Cyfuno Colofnau neu Gelloedd heb Colli Data   |   Rownd heb Fformiwla ...
Super-edrych: VLookup Meini Prawf Lluosog    VLookup Gwerth Lluosog  |   VLookup Ar Draws Taflenni Lluosog   |   Edrych Niwlog ....
Rhestr gwympo Uwch: Creu Rhestr Gollwng yn Gyflym   |  Rhestr Gollwng Dibynnol   |  Rhestr Gollwng Aml-ddewis ....
Rheolwr Colofn: Ychwanegu Nifer Penodol o Golofnau  |  Symud Colofnau  |  Toglo Statws Gwelededd Colofnau Cudd  |  Cymharwch Ystodau a Cholofnau ...
Nodweddion dan Sylw: Ffocws ar y Grid   |  Golwg Dylunio   |   Bar Fformiwla Mawr    Rheolwr Llyfr Gwaith a Thaflen   |  Llyfrgell Adnoddau (Testun Auto)   |  Dewiswr Dyddiad   |  Cyfuno Taflenni Gwaith   |  Amgryptio/Dadgryptio Celloedd    Anfon E-byst trwy Restr   |  Hidlo Super   |   Hidlo Arbennig (hidlo mewn print trwm/italig/strikethrough...) ...
15 Set Offer Gorau12 Testun offer (Ychwanegu Testun, Dileu Cymeriadau,...)   |   50 + Siart Mathau (Siart Gantt,...)   |   40+ Ymarferol Fformiwlâu (Cyfrifwch oedran yn seiliedig ar ben-blwydd,...)   |   19 mewnosod offer (Mewnosod Cod QR, Mewnosod Llun o'r Llwybr,...)   |   12 Trosi offer (Rhifau i Eiriau, Trosi arian cyfred,...)   |   7 Uno a Hollti offer (Rhesi Cyfuno Uwch, Celloedd Hollt,...)   |   ... a mwy

Supercharge Eich Sgiliau Excel gyda Kutools ar gyfer Excel, a Phrofiad Effeithlonrwydd Fel Erioed Erioed. Kutools ar gyfer Excel Yn Cynnig Dros 300 o Nodweddion Uwch i Hybu Cynhyrchiant ac Arbed Amser.  Cliciwch Yma i Gael Y Nodwedd Sydd Ei Angen Y Mwyaf...

Disgrifiad


Mae Office Tab yn dod â rhyngwyneb Tabbed i Office, ac yn Gwneud Eich Gwaith yn Haws o lawer

  • Galluogi golygu a darllen tabbed yn Word, Excel, PowerPoint, Cyhoeddwr, Mynediad, Visio a Phrosiect.
  • Agor a chreu dogfennau lluosog mewn tabiau newydd o'r un ffenestr, yn hytrach nag mewn ffenestri newydd.
  • Yn cynyddu eich cynhyrchiant 50%, ac yn lleihau cannoedd o gliciau llygoden i chi bob dydd!
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