Sut i fewnosod y stamp amser cyfredol pan fydd data mewn cell arall yn newid yn Excel?
Gan dybio eich bod yn derbyn taflen waith sydd angen i chi addasu data mewn colofn benodol. Ac ar ôl addasu'r daflen waith, mae angen i chi fewnosod y stamp amser wedi'i addasu i adael i eraill wybod pa gelloedd sydd wedi'u newid. Sut i ddelio ag ef? Bydd yr erthygl hon yn dangos dull i chi o fewnosod y stamp amser cyfredol pan fydd data mewn cell arall yn newid yn Excel fel y dangosir isod y screenshot.
Mewnosodwch y stamp amser cyfredol pan fydd data mewn cell arall yn newid gyda chod VBA
Mewnosodwch y stamp amser cyfredol pan fydd data mewn cell arall yn newid gyda chod VBA
Fel y dangosir isod y llun, mae angen i chi boblogi'r stamp amser yng ngholofn E os yw celloedd cyfatebol yng ngholofn C yn cael eu newid. Gwnewch fel a ganlyn.
1. Yn y daflen waith mae angen i chi addasu a marcio gyda stamp amser, cliciwch ar y dde ar y tab dalen ac yna cliciwch Gweld y Cod o'r ddewislen clicio ar y dde.
2. Yna copïwch a gludwch y cod VBA isod i'r Côd ffenestr y Microsoft Visual Basic ar gyfer Ceisiadau ffenestr. Gweler y screenshot:
Cod VBA: Mewnosodwch y stamp amser cyfredol pan fydd data mewn cell arall yn newid
Private Sub Worksheet_Change(ByVal Target As Range)
'Updated by Extendoffice 20180830
Dim xCellColumn As Integer
Dim xTimeColumn As Integer
Dim xRow, xCol As Integer
Dim xDPRg, xRg As Range
xCellColumn = 3
xTimeColumn = 5
xRow = Target.Row
xCol = Target.Column
If Target.Text <> "" Then
If xCol = xCellColumn Then
Cells(xRow, xTimeColumn) = Now()
Else
On Error Resume Next
Set xDPRg = Target.Dependents
For Each xRg In xDPRg
If xRg.Column = xCellColumn Then
Cells(xRg.Row, xTimeColumn) = Now()
End If
Next
End If
End If
End Sub
Nodyn: Yn y cod, mae rhif 3 yn golygu eich bod yn mynd i addasu data yng ngholofn C, ac mae 5 yn nodi y bydd y stamp amser yn cael ei boblogi i golofn E. Newidiwch nhw ar sail eich anghenion.
3. Gwasgwch y Alt + Q allweddi i gau'r Microsoft Visual Basic ar gyfer Ceisiadau ffenestr.
O hyn ymlaen, wrth newid data yng ngholofn C, bydd y stamp amser yn cael ei boblogi i gelloedd cyfatebol yng ngholofn E fel y dangosir y llun isod.
Awgrym. Dewiswr Dyddiad. Mae Mewnosod Dyddiad cyfleustodau Kutools ar gyfer Excel yn eich helpu i fewnosod dyddiad gyda fformat dyddiad penodol yn gyflym mewn cell benodol.
Dadlwythwch a rhowch gynnig arni nawr! (llwybr am ddim 30 diwrnod)
Erthyglau perthnasol:
- Sut i fewnosod neu arddangos y stamp amser a arbedwyd ddiwethaf ar y daflen waith yn Excel?
- Sut i fewnosod stamp amser mewn cell benodol pan fydd macro yn cael ei redeg yn Excel?
Offer Cynhyrchiant Swyddfa Gorau
Supercharge Eich Sgiliau Excel gyda Kutools ar gyfer Excel, a Phrofiad Effeithlonrwydd Fel Erioed Erioed. Kutools ar gyfer Excel Yn Cynnig Dros 300 o Nodweddion Uwch i Hybu Cynhyrchiant ac Arbed Amser. Cliciwch Yma i Gael Y Nodwedd Sydd Ei Angen Y Mwyaf...
Mae Office Tab yn dod â rhyngwyneb Tabbed i Office, ac yn 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!