Conas an dáta a uathoibriú i gcill nuair a dhéantar cill in aice láimhe a nuashonrú in Excel?
Uaireanta, nuair a dhéantar cill a nuashonrú i gcolún áirithe, b’fhéidir gur mhaith leat an dáta is déanaí faoin nuashonrú a mharcáil. Molfaidh an t-alt seo modh VBA chun an fhadhb seo a réiteach. Nuair a dhéantar an chill a nuashonrú, déanfar an chill reatha a dhaonraú go huathoibríoch leis an dáta reatha láithreach.
Auto dáta an dáta reatha sa chill nuair a dhéantar an chill in aice láimhe a nuashonrú le cód VBA
Auto dáta an dáta reatha sa chill nuair a dhéantar an chill in aice láimhe a nuashonrú le cód VBA
Ag soláthar na sonraí a theastaíonn uait chun suíomhanna a nuashonrú i gcolún B, agus nuair a dhéantar an chill i gcolún B a nuashonrú, déanfar an dáta reatha a dhaonra sa chill in aice láimhe de cholún A. Féach an scáileán:
Féadfaidh tú an cód VBA seo a leanas a rith chun an fhadhb seo a réiteach.
1. Cliceáil ar dheis ar an táb bileog a theastaíonn uait chun an dáta a ríomh go huathoibríoch bunaithe ar an gcill nuashonraithe in aice láimhe, agus ansin cliceáil Féach an cód ón roghchlár cliceáil ar dheis.
2. I bhfuinneog Microsoft Visual Basic for Applications, cóipeáil agus greamaigh an cód VBA thíos i bhfuinneog an Chóid.
Cód VBA: déan an dáta reatha a uathoibriú i gcill nuair a dhéantar an chill in aice láimhe a nuashonrú
Private Sub Worksheet_Change(ByVal Target As Excel.Range)
'Updated by Extendoffice 2017/10/12
Dim xRg As Range, xCell As Range
On Error Resume Next
If (Target.Count = 1) Then
If (Not Application.Intersect(Target, Me.Range("B:B")) Is Nothing) Then _
Target.Offset(0, -1) = Date
Application.EnableEvents = False
Set xRg = Application.Intersect(Target.Dependents, Me.Range("B:B"))
If (Not xRg Is Nothing) Then
For Each xCell In xRg
xCell.Offset(0, -1) = Date
Next
End If
Application.EnableEvents = True
End If
End Sub
nótaí:
3. Brúigh Eile + Q eochracha ag an am céanna chun an Microsoft Visual Basic d’Fheidhmchláir fhuinneog.
As seo amach, agus cealla i gcolún B á nuashonrú, líonfar an chill reatha in aice láimhe i gcolún A leis an dáta reatha láithreach. Féach an pictiúr:
Earraí gaolmhara:
- Conas cealla eile a daonra go huathoibríoch agus luachanna á roghnú ar liosta anuas Excel?
- Conas a bheith autocomplete agus tú ag clóscríobh liosta anuas 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á!