Note: The other languages of the website are Google-translated. Back to English

Sut i gofnodi dyddiad ac amser yn awtomatig pan fydd celloedd yn newid?

Mae'n hawdd i ni fewnosod dyddiad ac amser statig â llaw neu fewnosod dyddiad deinamig sy'n newid gydag amser y system gyda fformiwla. Os ydych chi am gofnodi'r dyddiad a'r amser yn awtomatig pan fyddwch chi'n newid neu'n nodi gwerthoedd, gall y broblem hon fod ychydig yn wahanol i ddelio â hi. Ond, yn yr erthygl hon, gallwch ddatrys y dasg hon gyda'r camau canlynol.

Cofnodi dyddiad ac amser yn awtomatig pan fydd celloedd yn newid gyda chod VBA

Tab Swyddfa Galluogi Golygu a Pori Tabbed yn y Swyddfa, a Gwneud Eich Gwaith yn Haws Orau ...
Mae Kutools for Excel yn Datrys y rhan fwyaf o'ch Problemau, ac yn Cynyddu Eich Cynhyrchedd 80%
  • Ailddefnyddio Unrhyw beth: Ychwanegwch y fformwlâu, siartiau ac unrhyw beth arall a ddefnyddir fwyaf cymhleth i'ch ffefrynnau, a'u hailddefnyddio'n gyflym yn y dyfodol.
  • Mwy nag 20 o nodweddion testun: Rhif Detholiad o Llinyn Testun; Tynnu neu Dynnu Rhan o Testunau; Trosi Rhifau ac Arian Cyfred yn Eiriau Saesneg.
  • Uno Offer: Llyfrau Gwaith a Thaflenni Lluosog yn Un; Uno Celloedd Lluosog / Rhesi / Colofnau Heb Golli Data; Uno Rhesi a Swm Dyblyg.
  • Hollti Offer: Rhannwch Ddata yn Daflenni Lluosog Yn Seiliedig ar Werth; Un Llyfr Gwaith i Ffeiliau Lluosog Excel, PDF neu CSV; Un Golofn i Golofnau Lluosog.
  • Gludo Sgipio Rhesi Cudd / Hidlo; Cyfrif A Swm yn ôl Lliw Cefndir; Anfon E-byst wedi'u Personoli at Dderbynwyr Lluosog mewn Swmp.
  • Hidlo Gwych: Creu cynlluniau hidlo datblygedig a'u cymhwyso i unrhyw daflenni; Trefnu yn yn ôl wythnos, dydd, amlder a mwy; Hidlo gan feiddgar, fformwlâu, sylw ...
  • Mwy na 300 o nodweddion pwerus; Yn gweithio gyda'r Swyddfa 2007-2019 a 365; Yn cefnogi pob iaith; Defnydd hawdd yn eich menter neu sefydliad.

swigen dde glas saeth Cofnodi dyddiad ac amser yn awtomatig pan fydd celloedd yn newid gyda chod VBA


Er enghraifft, mae gen i ystod o werthoedd, a nawr, pan fyddaf yn newid neu'n teipio gwerthoedd newydd yng Ngholofn B, rwyf am y bydd yn cofnodi dyddiad ac amser cyfredol yng Ngholofn C yn awtomatig fel y llun a ddangosir:

doc-update-amser-gwerth-newidiadau-1

Gallwch chi orffen y dasg hon gyda'r cod VBA canlynol. Gwnewch fel hyn:

1. Daliwch i lawr y ALT + F11 allweddi i agor y Ffenestr Microsoft Visual Basic for Applications.

2. Yna dewiswch eich taflen waith ail-law o'r chwith Archwiliwr Prosiect, cliciwch ddwywaith arno i agor y Modiwlau, ac yna copïo a gludo gan ddilyn y cod VBA i'r Modiwl gwag:

Cod VBA: Cofnodi dyddiad ac amser yn awtomatig pan fydd celloedd yn newid

Private Sub Worksheet_Change(ByVal Target As Range)
'Update 20140722
Dim WorkRng As Range
Dim Rng As Range
Dim xOffsetColumn As Integer
Set WorkRng = Intersect(Application.ActiveSheet.Range("B:B"), Target)
xOffsetColumn = 1
If Not WorkRng Is Nothing Then
    Application.EnableEvents = False
    For Each Rng In WorkRng
        If Not VBA.IsEmpty(Rng.Value) Then
            Rng.Offset(0, xOffsetColumn).Value = Now
            Rng.Offset(0, xOffsetColumn).NumberFormat = "dd-mm-yyyy, hh:mm:ss"
        Else
            Rng.Offset(0, xOffsetColumn).ClearContents
        End If
    Next
    Application.EnableEvents = True
End If
End Sub

doc-update-amser-gwerth-newidiadau-1

3. Yna arbedwch a chau'r cod hwn i ddychwelyd i'r daflen waith, nawr pan fyddwch chi'n newid gwerth y gell neu'n teipio data newydd yng Ngholofn B, bydd y dyddiad a'r amser yn cael eu cofnodi'n awtomatig yng Ngholofn C.

Nodiadau:

1. Yn y cod uchod, gallwch addasu'r “B: B.”I unrhyw golofn arall rydych chi am newid gwerthoedd y gell yn y sgript hon: Gosod WorkRng = Croestorri (Application.ActiveSheet.Range ("B: B"), Targed).

2. Gyda hyn xOffsetColumn = 1 sgript, gallwch fewnosod a diweddaru'r dyddiad a'r amser i'r golofn gyntaf wrth ymyl eich colofn gwerth newidiol, gallwch newid y rhif 1 i rifau eraill, megis 2,3,4,5 ... mae hynny'n golygu y bydd y dyddiad yn cael ei fewnosod y ail, trydydd, pedwaredd neu bumed golofn ar wahân i'ch colofn gwerthoedd newidiol.

3. Pan fyddwch yn dileu gwerth yn y golofn wedi'i newid, bydd y dyddiad a'r amser yn cael eu dileu hefyd.


Yr Offer Cynhyrchedd Swyddfa Gorau

Mae Kutools for Excel yn Datrys y rhan fwyaf o'ch Problemau, ac yn Cynyddu Eich Cynhyrchedd 80%

  • Ailddefnyddio: Mewnosod yn gyflym fformwlâu cymhleth, siartiau ac unrhyw beth rydych chi wedi'i ddefnyddio o'r blaen; Amgryptio Celloedd gyda chyfrinair; Creu Rhestr Bostio ac anfon e-byst ...
  • Bar Fformiwla Gwych (golygu llinellau lluosog o destun a fformiwla yn hawdd); Cynllun Darllen (darllen a golygu nifer fawr o gelloedd yn hawdd); Gludo i'r Ystod Hidlo...
  • Uno Celloedd / Rhesi / Colofnau heb golli Data; Cynnwys Celloedd Hollt; Cyfuno Rhesi / Colofnau Dyblyg... Atal Celloedd Dyblyg; Cymharwch y Meysydd...
  • Dewiswch Dyblyg neu Unigryw Rhesi; Dewiswch Blank Rows (mae pob cell yn wag); Darganfyddiad Gwych a Darganfyddiad Niwlog mewn Llawer o Lyfrau Gwaith; Dewis ar Hap ...
  • Copi Union Celloedd Lluosog heb newid cyfeirnod fformiwla; Auto Creu Cyfeiriadau i Daflenni Lluosog; Mewnosod Bwledi, Blychau Gwirio a mwy ...
  • Testun Detholiad, Ychwanegu Testun, Tynnu yn ôl Swydd, Tynnwch y Gofod; Creu ac Argraffu Subtotals Paging; Trosi rhwng Cynnwys a Sylwadau Celloedd...
  • Hidlo Super (arbed a chymhwyso cynlluniau hidlo i ddalenni eraill); Trefnu Uwch yn ôl mis / wythnos / dydd, amlder a mwy; Hidlo Arbennig gan feiddgar, italig ...
  • Cyfuno Llyfrau Gwaith a Thaflenni Gwaith; Uno Tablau yn seiliedig ar golofnau allweddol; Rhannwch Ddata yn Daflenni Lluosog; Trosi Swp xls, xlsx a PDF...
  • Mwy na 300 o nodweddion pwerus. Yn cefnogi Swyddfa / Excel 2007-2019 a 365. Yn cefnogi pob iaith. Defnydd hawdd yn eich menter neu sefydliad. Nodweddion llawn treial am ddim 30 diwrnod. Gwarant arian yn ôl 60 diwrnod.
tab kte 201905

Mae Tab Office yn Dod â rhyngwyneb Tabbed i'r Swyddfa, a 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!
gwaelod officetab
sylwadau (108)
Dim sgôr eto. Byddwch y cyntaf i sgorio!
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Sut ydych chi'n ysgrifennu'r cod i wneud hyn sawl gwaith ar un dudalen Ex. testun yng ngholofn B, dyddiad yn C a thestun yn D, dyddiad yn E?
Lleihawyd y sylw hwn gan y safonwr ar y wefan
[dyfyniad]Sut ydych chi'n ysgrifennu'r cod i wneud hyn sawl gwaith ar un dudalen Ex. testun yng ngholofn B, dyddiad yn C a thestun yn D, dyddiad yn E?Gan Hilary[/dyfyniad] Rwy'n gwybod bod hwn yn hen ond, y ffordd hir, ond hawdd, yw copïo'r datganiadau newidyn a chreu newidynnau newydd (hy WorkRng1 ac Rng1). Mae'n rhaid i chi hefyd gopïo'r datganiad "os" a newid y newidynnau i'r enwau newidyn newydd.
Lleihawyd y sylw hwn gan y safonwr ar y wefan
[dyfyniad]Sut ydych chi'n ysgrifennu'r cod i wneud hyn sawl gwaith ar un dudalen Ex. testun yng ngholofn B, dyddiad yn C a thestun yn D, dyddiad yn E?Gan Hilary[/quote] Dyma'r cod: Is-daflen Waith Breifat_Change(ByVal Target As Range) 'Diweddariad 20140722 Dim WorkRng As Range Dim Rng As Range Dim xOffsetColumn As Integer 'Newid yr Ystod i ddewis y golofn rydych yn ei diweddaru, hy ("A: A") neu ("B:B") Set WorkRng = Intersect(Application.ActiveSheet.Range("E:E"), Target) xOffsetColumn = 1 'Am y stamp ail amser 'Creu enwau newidyn newydd, megis WorkRng1, Rng1, etc. Dim WorkRng1 Fel Ystod Dim Rng1 Fel Ystod Dim xOffsetColumn1 Fel Set gyfanrif WorkRng1 = Croestorri(Cais.ActiveSheet.Range("G:G"), Targed) xOffsetColumn1 = 1 'Am y stamp tro cyntaf Os Nad yw WorkRng yn Dim Yna Application.EnableEvents = Gau Ar Gyfer Pob Rng Mewn WorkRng Os Ddim VBA.IsEmpty(Rng.Value) Yna Rng.Offset(0, xOffsetColumn).Value = Nawr Rng.Offset(0, xOffsetColumn).NumberFormat = "mm/dd/ yyyy" Arall Rng.Offset(0, xOffsetColumn).ClearContents End If Next Application.EnableEvents = Gwir Diwedd Os 'Am y stamp ail amser Os Nad yw WorkRng1 Yn Dim Yna Application.EnableEve nts = Gau ar gyfer Pob Rng1 Mewn WorkRng1 Os Na VBA.IsEmpty(Rng1.Value) Yna Rng1.Offset(0, xOffsetColumn1).Gwerth = Nawr Rng1.Offset(0, xOffsetColumn1).NumberFormat = "mm/dd/bbbb" Arall Rng1.Offset(0, xOffsetColumn1).ClearContents End If Next Application.EnableEvents = Diwedd Gwir Os Diwedd Is
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Beth os ydw i am wneud hyn ar gyfer ystod o golofnau?
Lleihawyd y sylw hwn gan y safonwr ar y wefan
newidiwch yr amrediad (B:B) fel hyn: (10:20) ar gyfer colofnau 10 i 20 (D5:D40) ar gyfer colofnau 5 i 40 ar res D Gobeithio ei fod yn helpu.
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Mae'n ddrwg gennyf, rwy'n cyfnewid colofnau â rhesi, ond mae'n dal i weithio. (D:P) O golofn D i P (D5:D5) o golofn D i P ar res 5
Lleihawyd y sylw hwn gan y safonwr ar y wefan
pan fyddaf yn ei arbed yn gweithio ond pan fyddaf yn ailagor nid yw'n gweithio
Lleihawyd y sylw hwn gan y safonwr ar y wefan
[dyfyniad] pan fyddaf yn arbed ei waith ond pan fyddaf yn ailagor nid yw'n gweithioGan Aarif[/quote] Yr un broblem ag Aarif... Gweithiodd wledd hanner awr yn ôl, a nawr dyw e ddim... hefyd, dim ond yr amser roeddwn i eisiau nid y dyddiad AC amser, felly fe wnes i olygu'r ".NumberFormat" i fod dim ond hh: mm: ss, arbed, ei brofi ... dim gwahanol ... yn dal i roi'r dyddiad a'r amser...? agorodd y VB eto, a theipio i mewn rhywfaint o destun amffiniedig, arbed eto, dal yn dda i ddim, yna fe'i gwnes y trydydd tro, a gwnaeth y fformat fel y dywedwyd wrtho ac yn sydyn cefais yr amser. Rhyfedd IAWN Rwyf wedi meddwl ers tro bod ysbryd Excell, byth ers i mi ddefnyddio'r swyddogaeth CHWILIO am y tro cyntaf, gan chwilio am werth mewn cell y gallwn ei weld â'm llygaid fy hun, ond mynnodd Excel nad oedd yn bodoli!? Unrhyw gurus Excel neu exorcists a all helpu? pam ei fod yn anwybyddu fy VB ac NID stampio amser fel y gwnaeth...? diolch :cry:
Lleihawyd y sylw hwn gan y safonwr ar y wefan
[dyfyniad]Sut ydych chi'n ysgrifennu'r cod i wneud hyn sawl gwaith ar un dudalen Ex. testun yng ngholofn B, dyddiad yn C a thestun yn D, dyddiad yn E?Gan Hilary[/dyfyniad] beth yw'r ateb i'r dyfyniad
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Beth os ydw i eisiau i hyn redeg ond nad ydw i ar ddalen weithredol, felly rhedeg yn y cefndir a diweddaru pryd bynnag mae cofnod i golofn B?
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Beth os yw'r golofn sy'n effeithio ar y golofn stamp amser yn gyfanswm o golofnau lluosog eraill? Er enghraifft... Colofn H yw = Swm(E+F+G) a hoffwn i stamp amser gael ei wneud yng Ngholwm I bob tro mae Colofn H wedi'i newid, neu yn ei hanfod pan fydd Colofnau E, F, neu G wedi'u newid . Allwch chi helpu os gwelwch yn dda??
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Dwi angen help os gwelwch yn dda! Rwy'n ceisio cael stamp amser wedi'i wneud bob tro y bydd un o dair cell yn cael ei newid. Yn ddelfrydol hoffwn wneud hyn pan fydd swm y celloedd hyn wedi'i newid. Er enghraifft. Bydd celloedd E, F, G yn cael eu newid a Cell H fydd SUM y tair cell hynny. Pan fydd Cell H wedi'i newid hoffwn i Cell I gael stamp amser. Ydy hyn yn bosibl?? Diolch yn fawr iawn
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Yr wyf yn ceisio rhedeg y cod uchod; fodd bynnag, mae'r gell sy'n newid yr wyf am ei gofnodi wedi'i gysylltu â blwch ticio ac felly naill ai'n "WIR" neu'n "FALSE". Am ryw reswm, ni fydd y cod yn gweithio pan fydd y gell yn newid. Fodd bynnag, os byddaf yn mewnosod dweud "ie" â llaw, mae'r cod yn gweithio'n iawn. Unrhyw ateb i'r mater hwn yr ydych yn ymwybodol ohono? Diolch!
Lleihawyd y sylw hwn gan y safonwr ar y wefan
A yw'n bosibl gwneud hyn ar gyfer data hanesyddol? Os gwnes i newidiadau i gell ddoe neu fis yn ôl, a allaf ddefnyddio ffurf o'r cod hwn i adalw'r dyddiadau hynny?
Lleihawyd y sylw hwn gan y safonwr ar y wefan
A oes ffordd i stamp amser yn seiliedig ar newid penodol? Er enghraifft, mae gen i daenlen gyda cholofn o opsiynau cwymplen gan gynnwys bod yn wag, 'Iawn', a 'Gweithredu'. Pan fydd y dasg wedi'i chwblhau, defnyddir y gwymplen â llaw i ddewis 'Iawn'. Hoffwn i'r stamp dyddiad gael ei glymu wrth ddewis 'Iawn', ond nid pan fydd 'Act' yn cael ei ddewis. Mae'r opsiwn 'Gweithredu' yn y gwymplen yn cael ei ddefnyddio pan fydd tasg wedi dod i ben, ond dim ond ceisio olrhain pan fydd eitem wedi'i chwblhau ydw i mewn gwirionedd. A oes ffordd i gyflawni hyn gyda'r cod uchod? Diolch!
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Oeddech chi'n gallu datrys hyn?
Lleihawyd y sylw hwn gan y safonwr ar y wefan
mae'n gwestiwn da iawn. ydych chi wedi ei ddatrys, a allech chi rannu'r ffordd os gwelwch yn dda?
diolch
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Gallaf newid yr amrediad i fod ("A:Q") ond mae angen y dyddiad a'r amser arnaf i fynd i mewn "S" os yw'r data mewn unrhyw gell AQ yn cael ei newid / tynnu. Rwy'n VBA her. Gwerthfawrogir unrhyw help yn fawr!
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Sori, dwi newydd bostio cwestiwn a dwi angen yr ateb i hwn...mae'n rhaid mod i wedi methu'r sylw yma...gobeithio gall rhywun helpu!
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Sut ydw i'n ei newid fel mai dim ond dyddiad y gell gyfagos sy'n newid?
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Sut mae cael y stamp amser i gofnodi mewn cell benodol, yn lle'r gell wrth ymyl yr un gafodd ei newid. Rwy'n ceisio rhoi stamp amser ar res o gelloedd pan fydd newid yn digwydd yn unrhyw un o'r celloedd hynny, hoffwn i'r stamp amser gofnodi mewn un gell benodol...all unrhyw un helpu gyda hyn? Diolch!
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Helo, Diolch yn garedig am hyn gan ei fod yn wych ar gyfer gallu archwilio WB. A oes ffordd o newid hyn er mwyn i'r dyddiad/amser gael ei gofnodi rhywle ar y WB pryd bynnag y bydd sylw'n cael ei ychwanegu neu ei addasu? Gwn fod hwn yn gwestiwn cyffredinol, ond nid wyf yn siŵr a yw'n bosibl (yn anffodus ar gyfer MS 2010, nid yw'r eiddo .comment yn dal eiddo dyddiad i nodi pryd y'i cofnodwyd. Mike
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Sut alla i ffurfweddu i ddarllen y golofn A:A a rhoi stamp amser yn B:B dim ond pan roddir rhif 14 digid ynddi?
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Helo, mae angen rhywfaint o help codio VBA arnaf. Rwy'n creu taenlen gydag achosion a fydd yn cael eu neilltuo i bobl ac sydd â statws achos. Bydd yr aseinai yn Col H ac mae angen stamp dyddiad arnaf yn Col I pan fydd y gell yn Col H yn cael ei diweddaru neu ei newid gydag enw. Yn yr un modd bydd gennyf statws achos yng Nghyrnol J a bydd angen stamp dyddiad yn Col K pan fydd statws yn cael ei fewnbynnu neu ei newid. hefyd pan nad oes enw na statws yr aseinai mae angen i'r stamp dyddiad yng Nghol I a K fod yn wag. Byddai unrhyw help yn cael ei werthfawrogi. Diolch
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Deuthum o hyd i'r cod hwn yn rhywle arall a'i addasu i'm defnydd. Os caiff ei wneud yn iawn, nid oes angen i chi boeni am fynd i mewn i swyddogaeth mewn cell neu'r ffeil yn newid y dyddiadau i ddyddiad y diwrnod hwnnw bob tro y caiff ei hagor. - agor Excel - pwyswch "Alt + F11" - Cliciwch ddwywaith ar y daflen waith yr ydych am gymhwyso'r newid iddi (a restrir ar y chwith) - copïwch / gludwch y cod isod - addaswch y mewnbwn Ystod (_: _) i gyfateb i'r golofn y byddwch chi'n ei diweddaru - addaswch y mewnbwn Offset(0,_) i gyfateb i'r golofn lle hoffech chi weld y dyddiad (yn y fersiwn isod rydw i'n gwneud diweddariadau i golofn D ac rydw i eisiau gweld y dyddiad yng ngholofn F, felly cofnod mewnbwn "2" ar gyfer 2 golofn drosodd o golofn D) - tarwch arbed - ailadroddwch y camau uchod os oes taflenni gwaith eraill yn eich llyfr gwaith sydd angen yr un cod - efallai y bydd yn rhaid i chi newid fformat rhif y golofn sy'n dangos y dyddiad i "Cyffredinol" a chynyddwch lled y golofn os yw'n dangos "####" ar ôl i chi wneud cofnod wedi'i ddiweddaru Copïwch/Gludwch y Cod isod: ____________________________________________________________ Is-daflen Waith Breifat_Newid(Targed ByVal Fel Ystod) Os Croestorri(Targed, Ystod(" D:D")) Oes Dim Yna Gadael Is Darged.Offset(0, 2) = Dyddiad Gorffen Is ___ _________________________________________________________ Pob lwc...
Lleihawyd y sylw hwn gan y safonwr ar y wefan
bydd y cod hwn yn dangos dyddiad ar y clic mae'n ymddangos, a yw'n bosibl dangos dyddiad dim ond pan fydd cynnwys yn y gell yn cael ei newid, os mai dim ond clicio a dim byd wedi newid, yna nid yw'r dyddiad yn dangos neu mae dyddiad a gofnodwyd yn flaenorol yn aros?
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Pan fyddaf yn cofnodi yn macro fformiwla vloocup felly sut y gallaf wneud y dyddiad hwnnw newid yn awtomatig i 1 diwrnod i fyny Fel ei 21/07/2017 yna diwrnod nesaf ei newid i 22/07/2017 Awtomatig pls rhannu os oes unrhyw god vba.
Lleihawyd y sylw hwn gan y safonwr ar y wefan
disodli'r llinell hon
Rng.Offset(0, xOffsetColumn).Value = Nawr

i
Rng.Offset(0, xOffsetColumn).Value = Nawr+1
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Diolch yn fawr iawn am y cod! Yn union yr hyn roeddwn i'n edrych amdano !!
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Diolch am eich help :-)
Nid oes unrhyw sylwadau wedi'u postio yma eto
Llwytho mwy o
Gadewch eich sylwadau
Postio fel Gwestai
×
Graddiwch y swydd hon:
0   Cymeriadau
Lleoliadau a Awgrymir