Conas liostaí anuas a shioncronú i mbileoga oibre iolracha in Excel?
Cuir i gcás go bhfuil liostaí anuas agat ar roinnt bileoga oibre i leabhar oibre ina bhfuil go díreach na míreanna anuas céanna. Anois, ba mhaith leat na liostaí anuas a shioncronú thar bileoga oibre ionas go mbeidh na liostaí anuas i mbileoga oibre eile sioncrónaithe go huathoibríoch nuair a roghnaíonn tú mír ó liosta anuas i mbileog oibre amháin. Soláthraíonn an t-alt seo cód VBA chun cabhrú leat an fhadhb seo a réiteach.
Sioncrónaigh liostaí anuas i mbileoga oibre iolracha le cód VBA
Sioncrónaigh liostaí anuas i mbileoga oibre iolracha le cód VBA
Mar shampla, tá na liostaí anuas i gcúig bhileog oibre ainmnithe Bileog 1, Bileog 2, ..., Bileog 5, chun na liostaí anuas i mbileoga oibre eile a shioncronú de réir an roghnúcháin anuas i mBileog1, cuir an cód VBA seo a leanas i bhfeidhm chun é a dhéanamh.
1. Oscail Bileog 1, cliceáil ar dheis ar an táb bileog agus roghnaigh Féach an cód ón roghchlár cliceáil ar dheis.
2. Sa Microsoft Visual Basic d’Fheidhmchláir fhuinneog, greamaigh an cód VBA seo a leanas isteach sa Bileog 1 (Cód) fhuinneog.
Cód VBA: Sioncrónaigh liosta anuas i mbileoga oibre iolracha
Private Sub Worksheet_Change(ByVal Target As Range)
'Updated by Extendoffice 20220815
Dim tSheet1 As Worksheet
Dim tRange As Range
Dim xRangeStr As String
On Error Resume Next
If Target.Count > 1 Then Exit Sub
xRangeStr = "A2:A11"
Set tRange = Intersect(Target, Range(xRangeStr))
If Not tRange Is Nothing Then
xRangeStr = tRange.Address
Application.EnableEvents = False
Set tSheet1 = ActiveWorkbook.Worksheets("Sheet2")
tSheet1.Range(xRangeStr).Value = Target.Value
Set tSheet1 = ActiveWorkbook.Worksheets("Sheet3")
tSheet1.Range(xRangeStr).Value = Target.Value
Set tSheet1 = ActiveWorkbook.Worksheets("Sheet4")
tSheet1.Range(xRangeStr).Value = Target.Value
Set tSheet1 = ActiveWorkbook.Worksheets("Sheet5")
tSheet1.Range(xRangeStr).Value = Target.Value
Application.EnableEvents = True
End If
End Sub
Nótaí:
3. Brúigh an Eile + Q eochracha chun an Microsoft Visual Basic d’Fheidhmchláir fhuinneog.
As seo amach, nuair a roghnaíonn tú mír ón liosta anuas i Bileog 1, déanfar na liostaí anuas sna bileoga oibre sonraithe a shioncronú go huathoibríoch chun an rogha céanna a bheith acu. Féach ar an taispeántas thíos.
Taispeántas: Sioncrónaigh Liostaí Anuas i mBileoga Oibre Il In Excel
Uirlisí Táirgiúlachta Oifige is Fearr
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 ...
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á!