Sut i gydamseru holl daflenni gwaith y llyfr gwaith gyda'r un ystod wedi'i ddewis yn Excel?

Pan ddefnyddiwn lyfr gwaith excel, weithiau, mae angen i ni ddewis yr un ystodau o daflenni gwaith lluosog mewn llyfr gwaith a'u cydamseru i edrych ar y wybodaeth yn hawdd ac yn gyfleus. Bydd y dulliau canlynol yn gwneud ichi gydamseru taflenni gwaith i gael yr un ystodau mewn llyfr gwaith yn gyflym ac yn hawdd.

Dewiswch yr un ystodau ym mhob taflen waith gyda Select All Sheets;

Defnyddio cod VBA i gydamseru taflenni gwaith;

Cydamserwch yr holl daflenni gwaith o'r un ystod yn gyflym ag un clic.

---

Dewiswch yr un ystodau ym mhob taflen waith gyda Select All Sheets

Gallwch wneud i bob taflen waith gael yr un ystod wedi'i dewis mewn llyfr gwaith fel a ganlyn:

1. Dewiswch ystod yn y daflen waith weithredol rydych chi am ei dewis ym mhob taflen waith. Er enghraifft yr ystod A103: C112

2. Yna cliciau dde ar y tab taflen waith, a dewis Dewiswch Pob Dalen o'r ddewislen. Gweler y screenshot:

3. Bydd yr un ystod yn cael ei dewis yn yr holl daflenni gwaith yn y llyfr gwaith.

Nodyn: i ddewis yr un amrediad ym mhob taflen waith gyda'r ffordd hon, dim ond yr un amrediad ym mhob taflen waith y gall ei ddewis, ond ni all arddangos yr holl ystodau a ddewiswyd yn yr un safle â'r ffenestr.

---

Defnyddio cod VBA i gydamseru taflenni gwaith

Gan ddefnyddio'r cod VBA canlynol, gallwch chi wneud yn gyflym i bob taflen waith gael yr un amrediad wedi'i dewis ac arddangos yr ystod a ddewiswyd yn yr un safle â'r ffenestr.

1. Dewiswch ystod mewn un daflen waith, ac yna cliciwch Datblygwr >Visual Basic, Newydd Microsoft Visual Basic ar gyfer ffenestr cymwysiadau yn cael ei arddangos,

2. cliciwch Mewnosod > Modiwlau, ac yna copïo a gludo'r codau canlynol yn y modiwl:

VBA: cydamseru holl daflenni gwaith llyfr gwaith

Sub SynchSheets()
'Update 20130912
Dim WorkShts As Worksheet
Dim sht As Worksheet
Dim Top As Long
Dim Left As Long
Dim RngAddress As String
Application.ScreenUpdating = False
Set WorkShts = Application.ActiveSheet
Top = Application.ActiveWindow.ScrollRow
Left = Application.ActiveWindow.ScrollColumn
RngAddress = Application.ActiveWindow.RangeSelection.Address
For Each sht In Application.Worksheets
    If sht.Visible Then
        sht.Activate
        sht.Range(RngAddress).Select
        ActiveWindow.ScrollRow = Top
        ActiveWindow.ScrollColumn = Left
    End If
Next sht
WorkShts.Activate
Application.ScreenUpdating = True
End Sub

3. Yna cliciwch  botwm neu F5 yn allweddol i weithredu'r cod, bydd yr un ystod yn cael ei dewis ym mhob un o'r taflenni gwaith ac yn arddangos yr ystodau a ddewiswyd yn yr un safle ffenestr.

---

Cydamserwch yr holl daflenni gwaith yn gyflym i'r un ystod ag un clic

Os ydych chi wedi gosod Kutools ar gyfer Excel, gallwch chi ddefnyddio'r Cydamseru Taflenni Gwaith nodwedd i gydamseru pob taflen waith yn hawdd i gael yr un ystod â'r canlynol:

Kutools ar gyfer Excel: gyda mwy na 300 o ychwanegiadau Excel defnyddiol, am ddim i geisio heb unrhyw gyfyngiad mewn 30 diwrnod. Get it Now

1. Gweithredwch daflen waith a dewiswch yr ystod rydych chi am ei defnyddio.

2. Cliciwch Menter > Offer Taflen Waith > Cydamseru Taflenni Gwaith, gweler y screenshot:

3. A bydd blwch prydlon yn galw allan i'ch atgoffa y bydd gan bob taflen waith yn y llyfr gwaith yr un amrediad dethol a chell chwith uchaf.

4. Yna cliciwch OK, mae'r holl daflenni gwaith wedi'u cydamseru, pan fyddwch chi'n llywio rhwng yr holl daflenni gwaith, mae gan bob taflen waith yr un ystod. Gweler sgrinluniau:

Nodyn: Os gwiriwch Peidiwch â dangos i mi y tro nesaf yn y Cydamseru Taflenni Gwaith blwch prydlon, ni fydd y blwch hwn yn ymddangos pan fyddwch chi'n defnyddio'r nodwedd hon y tro nesaf.

Am wybodaeth fanylach am Cydamseru Taflenni Gwaith, Ewch i yma.