Kako sinhronizirati vse delovne liste delovnega zvezka z enakim obsegom, izbranim v Excelu?

Ko uporabljamo excelov delovni zvezek, moramo včasih v delovnem zvezku izbrati enake obsege več delovnih listov in jih sinhronizirati, da si lahko informacije olajšamo in prikladno. Naslednji načini vam bodo omogočili hitro in enostavno sinhronizacijo delovnih listov, da bodo v delovnem zvezku enaki obsegi.

Izberite enake obsege na vseh delovnih listih z možnostjo Izberi vse liste;

Uporaba kode VBA za sinhronizacijo delovnih listov;

Hitro sinhronizirajte vse delovne liste istega obsega z enim klikom.

---

Izberite enake obsege na vseh delovnih listih z možnostjo Izberi vse liste

Na vseh delovnih listih lahko v delovnem zvezku izberete enak obseg, kot sledi:

1. Na aktivnem delovnem listu izberite obseg, ki ga želite izbrati na vseh delovnih listih. Na primer obseg A103: C112

2. Nato z desno miškino tipko kliknite zavihek delovnega lista in izberite Izberite Vse liste v meniju. Oglejte si posnetek zaslona:

3. Na vseh delovnih listih v delovnem zvezku bo izbran enak obseg.

Opomba: če želite na ta način izbrati isti obseg na vseh delovnih listih, lahko na vseh delovnih listih izbere isti obseg, ne more pa prikazati vseh izbranih obsegov na istem položaju okna.

---

Uporaba kode VBA za sinhronizacijo delovnih listov

Z naslednjo kodo VBA lahko hitro naredite, da imajo vsi delovni listi izbrani enak obseg in izbrani obseg prikažejo v istem položaju okna.

1. Na enem delovnem listu izberite obseg in kliknite Razvojni >Visual Basic, Novo Microsoft Visual Basic za okno aplikacij bo prikazano,

2. kliknite Vstavi > Moduliin nato v modul kopirajte in prilepite naslednje kode:

VBA: sinhronizirajte vse delovne liste delovnega zvezka

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. Nato kliknite  gumb ali F5 tipka za izvajanje kode, bodo vsi delovni listi izbrani v enakem obsegu in bodo prikazali izbrane obsege v istem položaju okna.

---

Z enim klikom hitro sinhronizirajte vse delovne liste v isti obseg

Če ste namestili Kutools za Excel, lahko uporabite Sinhronizirajte delovne liste funkcija za enostavno sinhronizacijo vseh delovnih listov, da imajo enak obseg, kot sledi:

Kutools za Excel: z več kot 300 priročnimi dodatki za Excel, brezplačno preizkusite brez omejitev v 30 dneh. Get it now

1. Aktivirajte delovni list in izberite obseg, ki ga želite uporabiti.

2. Kliknite Podjetje > Orodja za delovne liste > Sinhronizirajte delovne liste, glej posnetek zaslona:

3. Pojavi se pozivno polje, ki vas opomni, da bodo vsi delovni listi v delovnem zvezku imeli enak izbrani obseg in zgornjo levo celico.

4. Nato kliknite OK, vsi delovni listi so sinhronizirani; pri krmarjenju med vsemi delovni listi bodo izbrani vsi delovni listi istega obsega. Oglejte si posnetke zaslona:

Opombe: Če preverite Ne pokaži mi naslednjič v Sinhronizirajte delovne liste polje, se to polje ne bo pojavilo, ko boste to funkcijo uporabili naslednjič.

Za podrobnejše informacije o Sinhronizirajte delovne liste, Obiščite tukaj.