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

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

Rhowch Baneli Rhewi / Dadrewi ar 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 Now!


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!

Yr Offer Cynhyrchedd Swyddfa Gorau

Mae Kutools for Excel yn Datrys y rhan fwyaf o'ch Problemau, ac yn Cynyddu Eich Cynhyrchedd 80%

  • Ailddefnyddio: Mewnosod yn gyflym fformwlâu cymhleth, siartiau ac unrhyw beth rydych chi wedi'i ddefnyddio o'r blaen; Amgryptio Celloedd gyda chyfrinair; Creu Rhestr Bostio ac anfon e-byst ...
  • Bar Fformiwla Gwych (golygu llinellau lluosog o destun a fformiwla yn hawdd); Cynllun Darllen (darllen a golygu nifer fawr o gelloedd yn hawdd); Gludo i'r Ystod Hidlo...
  • Uno Celloedd / Rhesi / Colofnau heb golli Data; Cynnwys Celloedd Hollt; Cyfuno Rhesi / Colofnau Dyblyg... Atal Celloedd Dyblyg; Cymharwch y Meysydd...
  • Dewiswch Dyblyg neu Unigryw Rhesi; Dewiswch Blank Rows (mae pob cell yn wag); Darganfyddiad Gwych a Darganfyddiad Niwlog mewn Llawer o Lyfrau Gwaith; Dewis ar Hap ...
  • Copi Union Celloedd Lluosog heb newid cyfeirnod fformiwla; Auto Creu Cyfeiriadau i Daflenni Lluosog; Mewnosod Bwledi, Blychau Gwirio a mwy ...
  • Testun Detholiad, Ychwanegu Testun, Tynnu yn ôl Swydd, Tynnwch y Gofod; Creu ac Argraffu Subtotals Paging; Trosi rhwng Cynnwys a Sylwadau Celloedd...
  • Hidlo Super (arbed a chymhwyso cynlluniau hidlo i ddalenni eraill); Trefnu Uwch yn ôl mis / wythnos / dydd, amlder a mwy; Hidlo Arbennig gan feiddgar, italig ...
  • Cyfuno Llyfrau Gwaith a Thaflenni Gwaith; Uno Tablau yn seiliedig ar golofnau allweddol; Rhannwch Ddata yn Daflenni Lluosog; Trosi Swp xls, xlsx a PDF...
  • Mwy na 300 o nodweddion pwerus. Yn cefnogi Swyddfa / Excel 2007-2019 a 365. Yn cefnogi pob iaith. Defnydd hawdd yn eich menter neu sefydliad. Nodweddion llawn treial am ddim 30 diwrnod. Gwarant arian yn ôl 60 diwrnod.
tab kte 201905

Mae Tab Office yn Dod â rhyngwyneb Tabbed i'r Swyddfa, a 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!
gwaelod officetab
sylwadau (6)
Dim sgôr eto. Byddwch y cyntaf i sgorio!
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Annwyl bawb, mae gen i brawf yn fy llyfr gwaith, mae gennych nodyn da, cyn i chi gymhwyso'r macro hwn, symudwch y llygoden i'r gell y mae angen i chi wneud cais cwarel rhewi yn y daflen. mae'n help mawr. y wybodaeth hon yw'r hyn yr wyf yn edrych amdano. diolch yn fawr iawn Lan
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Rhoddais gynnig ar hyn yn fy llyfr gwaith ac fe weithiodd yn dda iawn. diolch
Lleihawyd y sylw hwn gan y safonwr ar y wefan
eisiau gallu rhewi rhes uchaf ar daflenni gwaith lluosog
Lleihawyd y sylw hwn gan y safonwr ar y wefan
A yw'n bosibl ei wneud ar daflenni gwaith dethol yn unig?

beth fyddai angen i mi ei newid yn y cod.
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Helo, Fernando,

I roi'r cwarel rhewi ar ddalennau dethol, defnyddiwch y cod canlynol:



Is-rewi()

'Updateby Extendoffice

Dim Ws Fel Taflen Waith

Dim xArrName Fel Amrywiad

Dim xS

xArrName = Array("Taflen2", "Taflen3") 'Newid enwau'r dalennau i'ch angen

Application.ScreenUpdating = Anghywir

Am Bob xS Yn xArrName

Gosod Ws = Taflenni Gwaith(xS)

If Not Ws Ydy Dim Yna

Ws.Activate

Gyda Cais.ActiveWindow

.FreezePanes = Gwir

Diwedd Gyda

Gorffennwch Os

Digwyddiadau

Application.ScreenUpdating = Gwir

Is-End



Rhowch gynnig arni, diolch!
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Byddai hyn yn gweithio ond byddai angen i mi newid bob tro rwy'n ceisio ei redeg mewn llyfr gwaith gwahanol.

A yw'n bosibl i'r macro gael ei addasu i'r dalennau a ddewisaf yn y prif cwarel trwy glicio ar un a phwyso shift a dewis y rhai eraill?
Nid oes unrhyw sylwadau wedi'u postio yma eto
Gadewch eich sylwadau
Postio fel Gwestai
×
Graddiwch y swydd hon:
0   Cymeriadau
Lleoliadau a Awgrymir