Skip to main content

Conas painéil reo / neamh-reo a chur i bhfeidhm ar iliomad bileoga oibre ag an am céanna?

Má cheaptar go bhfuil leabhar mór oibre agat ina bhfuil na céadta bileog oibre, agus anois ní mór duit na Pannaí Reo a chur i bhfeidhm chun na bileoga oibre go léir a reo ag an am céanna. Le feidhm Excel Panes Reo, ní féidir leat ach bileog oibre amháin a reo ag an am, an bhfuil bealach ann gach bileog oibre a reo nó a reo láithreach ag Excel?

Cuir Pannaí Reo i bhfeidhm ar gach bileog oibre ag an am céanna le cód VBA

Cuir Pannaí Neamhréire ar gach bileog oibre ag an am céanna le cód VBA

Cuir Panes Reo / Unfreeze i bhfeidhm ar gach bileog oibre ag an am céanna le cliceáil amháin le Kutools le haghaidh Excel


Is féidir leat an cód seo a leanas a úsáid chun na Painéil Reo a chur i bhfeidhm ar gach bileog oibre, déan na céimeanna seo a leanas le do thoil:

1. Más mian leat gach bileog oibre a reo sa suíomh céanna, roghnaigh cill is mian leat a reo sa bhileog oibre, agus ansin coinnigh í Shift eochair chun gach cluaisín bileog a roghnú.

2. Coinnigh síos an ALT + F11 eochracha, agus osclaíonn sé an Fuinneog Microsoft Visual Basic for Applications.

3. Cliceáil Ionsáigh > Modúil, agus greamaigh an cód seo a leanas sa Fuinneog an Mhodúil.

Cód VBA: Reoigh gach bileog oibre ag an am céanna in 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. Agus ansin brúigh F5 eochair chun an cód seo a rith, agus cuireadh na bileoga oibre go léir i bhfeidhm leis na painéil reo sa suíomh céanna.

Nóta: Mura roghnaítear na bileoga oibre go léir agus má tá cealla gníomhacha gach bileog oibre suite i suíomhanna difriúla, beidh na painéil reo sna háiteanna éagsúla mar a bhíonn na cealla gníomhacha.


Má tá iliomad bileoga oibre i bhfeidhm leis na painéil reo i do Excel, conas a d’fhéadfá iad a dhíspreagadh ag an am seachas iad a scaoileadh saor ceann ar cheann?

1. Seoladh do leabhar oibre na bileoga oibre a cuireadh i bhfeidhm leis na painéil reo.

2. Coinnigh síos an ALT + F11 eochracha, agus osclaíonn sé an Fuinneog Microsoft Visual Basic for Applications.

3. Cliceáil Ionsáigh > Modúil, agus greamaigh an cód seo a leanas sa Fuinneog an Mhodúil.

Cód VBA: Déan na bileoga oibre go léir a scriosadh in Excel ag an am céanna

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. Agus ansin brúigh F5 eochair chun an cód seo a rith, agus tá na bileoga oibre go léir a cuireadh i bhfeidhm leis na painéil reo gan a bheith reoite ag an am céanna.


Mura bhfuil tú eolach ar na cóid VBA, seo uirlis chumhachtach- Kutools le haghaidh Excel, a Scaipeann bileoga oibre iolracha agus Panes unfreeze bileoga oibre iolracha is féidir le fóntais cabhrú leat gach bileog oibre den leabhar oibre reatha a reo nó a reo ag an am céanna.

Nóta:Chun é seo a chur i bhfeidhm Scaipeann bileoga oibre iolracha, ar dtús, ba cheart duit an Kutools le haghaidh Excel, agus ansin an ghné a chur i bhfeidhm go tapa agus go héasca.

Tar éis a shuiteáil Kutools le haghaidh Excel, déan mar seo le do thoil:

1. Roghnaigh cill inar mian leat an phána reo a chur i bhfeidhm do gach bileog oibre, sa chás seo, cliceáil ar chill B2, féach an scáileán:

reo doc gach bileog 1-1

2. Ansin cliceáil Kutools Plus > Bileog Oibre > Scaipeann bileoga oibre iolracha, féach ar an scáileán:

3. Agus ansin cuireadh na painéil reo sa suíomh céanna i gcill B2 i ngach ceann de do bhileoga oibre.

nótaí: Más mian leat iad a dhíshuiteáil láithreach, ní gá duit ach gné na mbileog oibre iolrach panes Unfreeze a chur i bhfeidhm trí chliceáil Kutools Plus> Bileog Oibre > Panes unfreeze bileoga oibre iolracha.

Íoslódáil agus triail saor in aisce Kutools le haghaidh Excel Now!


Kutools le haghaidh Excel: le níos mó ná 300 breiseán áisiúil Excel, saor in aisce le triail gan aon teorannú i 30 lá. Íoslódáil agus triail saor in aisce Anois!

Uirlisí Táirgiúlachta Oifige is Fearr

🤖 Kutools AI Aide: anailís sonraí a réabhlóidiú bunaithe ar: Forghníomhú Chliste   |  Gin Cód  |  Cruthaigh Foirmlí Saincheaptha  |  Anailís a dhéanamh ar Sonraí agus Cairteacha a Ghin  |  Feidhmeanna Kutools a agairt...
Gnéithe Coitianta: Faigh, Aibhsigh nó Aithnigh Dúblaigh   |  Scrios Sraitheanna Bána   |  Comhcheangail Colúin nó Cealla gan Sonraí a Chailleadh   |   Babhta gan Foirmle ...
Cuardaigh Super: Ilchritéir VLookup    VLookup Illuachanna  |   VLookup Trasna Ilbhileoga   |   Amharc doiléir ....
Liosta anuas Casta: Go tapa Cruthaigh Liosta Anuas   |  Liosta anuas Cleithiúnach   |  Liosta Buail Isteach Ilroghnacha ....
Bainisteoir Colún: Cuir Líon Sonrach Colún leis  |  Colúin Bog  |  Scoránaigh Stádas Infheictheachta na gColún Ceilte  |  Déan comparáid idir Raonta & Colúin ...
Gnéithe Réadmhaoin: Fócas Eangaí   |  Amharc Dearaidh   |   Barra Mór na Foirmle    Leabhar Oibre & Bainisteoir Bileog   |  Leabharlann Acmhainní (Uaththéacs)   |  Piocálaí Dáta   |  Comhcheangail Bileoga Oibre   |  Criptigh/Díchriptigh Cealla    Seol Ríomhphost trí Liosta   |  Scagaire Super   |   Scagaire Speisialta (scagaire trom/iodálach/stailc tríd...) ...
Barr 15 Uirlisí12 Téacs uirlisí (Cuir Téacs, Bain Carachtair,...)   |   50 + Cairt cineálacha (Cairt Gantt,...)   |   40+ Praiticiúil Foirmlí (Ríomh aois bunaithe ar lá breithe,...)   |   19 Insertion uirlisí (Cuir isteach Cód QR, Ionsáigh Pictiúr ón gCosán,...)   |   12 Tiontú uirlisí (Uimhreacha le Focail, Comhshó Airgeadra,...)   |   7 Cumaisc & Scoilt uirlisí (Sraitheanna Comhcheangail Casta, Cealla Scoilt,...)   |   ... agus eile

Supercharge Do Scileanna Excel le Kutools le haghaidh Excel, agus Éifeachtúlacht Taithí Cosúil Ná Roimhe. Kutools le haghaidh Excel Tairiscintí Níos mó ná 300 Ardghnéithe chun Táirgiúlacht a Treisiú agus Sábháil Am.  Cliceáil anseo chun an ghné is mó a theastaíonn uait a fháil ...

Tuairisc


Tugann Tab Oifige comhéadan Tabbed chuig Office, agus Déan Do Obair i bhfad Níos Éasca

  • Cumasaigh eagarthóireacht agus léamh tabbed i Word, Excel, PowerPoint, Foilsitheoir, Rochtain, Visio agus Tionscadal.
  • Oscail agus cruthaigh cáipéisí iolracha i gcluaisíní nua den fhuinneog chéanna, seachas i bhfuinneoga nua.
  • Méadaíonn do tháirgiúlacht 50%, agus laghdaíonn sé na céadta cad a tharlaíonn nuair luch duit gach lá!
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