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

Sut i boblogi dyddiad yn y gell pan fydd cell gyfagos yn cael ei diweddaru yn Excel?

Weithiau, wrth ddiweddaru cell mewn colofn benodol, efallai yr hoffech chi nodi'r dyddiad diweddaraf am y diweddariad. Bydd yr erthygl hon yn argymell dull VBA i ddatrys y broblem hon. Pan fydd y gell yn cael ei diweddaru, bydd y gell gyfagos yn cael ei phoblogi'n awtomatig gyda'r dyddiad cyfredol ar unwaith.

Auto poblogi'r dyddiad cyfredol yn y gell pan fydd cell gyfagos yn cael ei diweddaru gyda chod VBA


Auto poblogi'r dyddiad cyfredol yn y gell pan fydd cell gyfagos yn cael ei diweddaru gyda chod VBA

Gan gyflenwi'r data sydd ei angen arnoch i ddiweddaru lleoliadau yng ngholofn B, a phan fydd cell yng ngholofn B yn cael ei diweddaru, bydd y dyddiad cyfredol yn cael ei boblogi yng nghell gyfagos colofn A. Gweler y screenshot:

Gallwch chi redeg y cod VBA canlynol i ddatrys y broblem hon.

1. De-gliciwch y tab dalen sydd ei angen arnoch i boblogi dyddiad yn seiliedig ar y gell wedi'i diweddaru gyfagos, ac yna cliciwch Gweld y Cod o'r ddewislen clicio ar y dde.

2. Yn ffenestr Microsoft Visual Basic for Applications, copïwch a gludwch y cod VBA isod i mewn i'r ffenestr Cod.

Cod VBA: awto poblogi'r dyddiad cyfredol mewn cell pan fydd y gell gyfagos yn cael ei diweddaru

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

Nodiadau:

1). Yn y cod, mae B: B yn golygu bod y data wedi'i ddiweddaru yng ngholofn B.
2). Mae -1 yn nodi y bydd y dyddiad cyfredol yn cael ei boblogi ar un chwith colofn B. Os ydych chi am i'r dyddiad cyfredol boblogi yng ngholofn C, newidiwch -1 i 1.

3. Gwasgwch Alt + Q allweddi ar yr un pryd i gau'r Microsoft Visual Basic ar gyfer Ceisiadau ffenestr.

O hyn ymlaen, wrth ddiweddaru celloedd yng ngholofn B, bydd y gell gyfagos yng ngholofn A yn cael ei phoblogi â'r dyddiad cyfredol ar unwaith. Gweler y screenshot:


Erthyglau cysylltiedig:


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 (40)
Dim sgôr eto. Byddwch y cyntaf i sgorio!
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Diolch. Roedd hyn wedi helpu llawer. Ond pan fyddaf yn dileu rhes neu'n ychwanegu rhes mae hyn yn rhoi gwall Run-time 13 Math diffyg cyfatebiaeth. Sut i fynd i'r afael â'r mater hwn. Disgwyl dychwelyd cyn gynted â phosibl.
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Annwyl Jishnu,
Nid yw'r broblem a grybwyllwyd gennych yn ymddangos yn fy achos i. A fyddech cystal â darparu eich fersiwn Office?
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Mae gen i set o daflenni gwaith Excel o'r enw dydd Llun, dydd Mawrth, dydd Mercher, ac ati. Mae angen i mi roi'r dyddiad dechrau ddydd Llun yng nghell a1, a chael iddo lenwi'r dyddiadau dilynol ar gyfer dydd Mawrth i ddydd Gwener yng nghell a1 ar bob un o'r taflenni hynny. Nid wyf yn llythrennog o ran cod o gwbl, felly mae angen i mi wybod beth yw'r fformiwla syml y gallaf ei rhoi ynddi. :) Diolch!
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Annwyl leah,
Mae'n rhaid i chi ddefnyddio'r fformiwla = dydd Llun!A1+1 ar ddydd Mawrth llen, = dydd Mawrth!A1+1 ar ddalen dydd Mercher ac ati...
Lleihawyd y sylw hwn gan y safonwr ar y wefan
A ellir cyflawni hyn ar gell sy'n cynnwys fformiwla?
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Annwyl Tammy,
Mae'r cod wedi'i ddiweddaru. Gellir ei gyflawni ar gell sy'n cynnwys fformiwla nawr. Diolch i chi am eich sylw.
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Diolch mae'n gweithio'n iawn, ond pan ddaw i gau ac arbed rwy'n cael gwall na ellir cadw'r nodwedd "Prosiect VB" mewn llyfr gwaith di-facro. Rhowch wybod
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Diolch mae'n gweithio'n iawn, ond pan ddaw i gau ac arbed rwy'n cael gwall na ellir cadw'r nodwedd "Prosiect VB" mewn llyfr gwaith di-facro. Rhowch wybod
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Y cyfan sydd angen i chi ei wneud yw "arbed fel" llyfr gwaith macro-alluogi Excel....
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Ydych chi'n gallu defnyddio'r ffwythiant hwn ddwywaith ar yr un ddalen? hy os hoffwn wneud cofnodion yng ngholofn B i golofn stamp amser A A rhowch gofnodion yng ngholofn D i golofn C. Diolch!
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Cefais hwn i weithio trwy wneud y canlynol:


Is-daflen waith breifat_Change(ByVal Target As Excel.Range)
'Diweddarwyd gan Extendoffice 2017/10/12
Dim xRg Fel Ystod, xCell Fel Ystod
Ar Ail-ddechrau Gwall Nesaf
Os (Target.Count = 1) Yna
Os (Not Application.Intersect(Targed, Me.Range("B:B"))) Yn Dim) Yna _
Target.Offset(0, -1) = Dyddiad
Application.EnableEvents = Gau
Gosod xRg = Application.Intersect(Target.Dependents, Me.Range("B:B"))
Os (Nid xRg Yw Dim) Yna
Am Bob xCell Mewn xRg
xCell.Offset(0, -1) = Dyddiad
Digwyddiadau
Gorffennwch Os
Application.EnableEvents = Gwir
Gorffennwch Os


Ar Ail-ddechrau Gwall Nesaf
Os (Target.Count = 1) Yna
Os (Not Application.Intersect(Targed, Me.Range("D:D"))) Yn Dim) Yna _
Target.Offset(0, -1) = Dyddiad
Application.EnableEvents = Gau
Gosod xRg = Application.Intersect(Target.Dependents, Me.Range("D:D"))
Os (Nid xRg Yw Dim) Yna
Am Bob xCell Mewn xRg
xCell.Offset(0, -1) = Dyddiad
Digwyddiadau
Gorffennwch Os
Application.EnableEvents = Gwir
Gorffennwch Os
Is-End
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Heia,

A all unrhyw un awgrymu cod ar gyfer pan fyddaf yn mewnbynnu rhif yng ngholofn A a Cholofn B ac yng Ngholofn CI cadw fformiwla fel Colofn A + Colofn B. Nawr mae angen cod vba arnaf a all roi amser a dyddiad yng Ngholofn D pryd bynnag y bydd Colofn C yn newid nid wrth fewnosod rhifau yng ngholofnau A a B.
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Diwrnod da,
Unrhyw gwestiwn am Excel, peidiwch ag oedi cyn postio yn ein fforwm: https://www.extendoffice.com/forum.html.
Byddwch yn cael mwy o gefnogaeth am Excel gan ein gweithiwr Excel proffesiynol.
Lleihawyd y sylw hwn gan y safonwr ar y wefan
HI - newydd i VBA - rwyf am ddolennu'r cod - cod VBA: awto poblogi dyddiad cyfredol mewn cell pan fydd y gell gyfagos yn cael ei diweddaru fel bod ar ôl i gell gael ei diweddaru gyda dyddiad, yna symud ymlaen i ddweud "J:J" a diweddaru K gyda dyddiad ac yna gwneud 2 waith arall. Ddim yn siŵr os yw'n ddolen neu ar gyfer? Diolch
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Byth...mi geisiais ymateb John isod ac mae'n gweithio - diolch!
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Defnyddiais y cod hwn i lenwi colofn yn awtomatig ac yn awr hoffwn lenwi mwy o golofnau'n awtomatig yn seiliedig ar y dyddiad a roddwyd yng ngholofn H. Mewn geiriau eraill, unwaith y bydd dyddiad wedi'i nodi, a allaf i lenwi colofnau'n awtomatig i ychwanegu dyddiad 90, 60, a 30 diwrnod allan ?
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Helo Tracey,
Gall y cod VBA canlynol eich helpu i ddatrys y probem. Rhowch gynnig arni.

Is-daflen waith breifat_Change(ByVal Target As Excel.Range)
Dim xRg Fel Ystod, xCell Fel Ystod
Dim xRgAddress Fel Llinyn
xRgAddress = "H:H"
Ar Ail-ddechrau Gwall Nesaf
Os (Target.count = 1) Yna
Os (Not Application.Intersect(Targed, Me.Range(xRgAddress))) Yn Dim) Yna
Target.Offset(0, 1) = Dyddiad + 90
Target.Offset(0, 2) = Dyddiad + 60
Target.Offset(0, 3) = Dyddiad + 30
Gorffennwch Os
Application.EnableEvents = Gau
Gosod xRg = Application.Intersect(Target.Dependents, Me.Range(xRgAddress))
Os (Nid xRg Yw Dim) Yna
Am Bob xCell Mewn xRg
xCell.Offset(0, 1) = Dyddiad + 90
xCell.Offset(0, 2) = Dyddiad + 60
xCell.Offset(0, 3) = Dyddiad + 30
Digwyddiadau
Gorffennwch Os
Application.EnableEvents = Gwir
Gorffennwch Os
Is-End
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Helo. Rwy'n ceisio defnyddio'r "Auto Poblogi Dyddiad Cyfredol Mewn Cell Pan fydd Cell Gerllaw yn cael ei Diweddaru Gyda Chod VBA". Mae hyn yn gweithio ar Daflen 1, ond mae gen i 11 tudalen arall rydw i angen y cod i weithio arno. Rhowch wybod. Dydw i ddim yn VBA saavy o gwbl felly rwy'n gwerthfawrogi unrhyw help y gallaf ei gael!

Diolch.
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Helo Gwen,
Ailadroddwch y camau i gopïo'r cod i ddalennau eraill. Efallai ei fod yn ddiflas, ond mae'n gweithio.
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Helo, dwi angen rhywfaint o help. Rwy'n ceisio llenwi'r dyddiad cyfredol yng ngholofn A os caiff unrhyw gelloedd B trwy N eu haddasu. Mae'r gwrthbwyso yn fy nhaflu i ffwrdd. A ellir ysgrifennu'r cod hwn i lenwi'r dyddiad yng Ngholofn A yn benodol yn awtomatig?
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Helo Joe,
Gall y cod VBA isod eich helpu i ddatrys y broblem. Ceisiwch ddiolch i chi am eich sylw.

Is-daflen waith breifat_Change(ByVal Target As Excel.Range)
'Diweddarwyd gan Extendoffice 20190924
Dim xRg Fel Ystod, xCell Fel Ystod
Dim xInt Fel Cyfanrif
Ar Ail-ddechrau Gwall Nesaf
Os (Target.Count = 1) Yna
Os (Not Application.Intersect(Targed, Me.Range("B:N"))) Yn Dim) Yna
Application.EnableEvents = Gau
xInt = Targed.Row
Me.Range("A" & xInt).Value = Dyddiad
Application.EnableEvents = Gwir
Gorffennwch Os
Gorffennwch Os
Is-End
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Helo, A allaf osod y dyddiad a'r amser i boblogi?
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Helo Abaty,
Yn y cod uchod, disodlwch y llinell hon
"xCell.Offset(0, -1) = Dyddiad"
gyda
"xCell.Offset(0, -1) = Fformat(Nawr(), "bbbb-MM-dd hh:mm:ss")".
Gobeithio y gallaf helpu. Diolch i chi am eich sylw.
Lleihawyd y sylw hwn gan y safonwr ar y wefan
wnaeth hyn ddim ychwanegu'r amser i mewn... oes ffordd arall?
Lleihawyd y sylw hwn gan y safonwr ar y wefan
mae'n rhaid i chi ei newid mewn 2 le, os gwelwch y cod gwreiddiol, mae'r dyddiad mewn 2 le, newidiwch y ddau gyda Fformat(Nawr(), "bbbb-MM-dd hh:mm:ss")
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Helo, a oes ffordd i wneud colofn (A) yn cael ei llenwi'n awtomatig â dyddiad wrth nodi gwerth mewn unrhyw gell yn yr un rhes?
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Helo Harry,
Gall y cod VBA isod eich helpu i ddatrys y broblem. Nodwch yr ystod cymaint â phosibl yn y cod. Diolch i chi am eich sylw.

Is-daflen waith breifat_Change(ByVal Target As Excel.Range)
'Diweddarwyd gan Extendoffice 20191017
Dim xRg Fel Ystod, xCell Fel Ystod
Dim xInt Fel Cyfanrif
Ar Ail-ddechrau Gwall Nesaf
Os (Target.Count = 1) Yna
Os (Not Application.Intersect(Targed, Me.Range("B:BP"))) Yn Dim) Yna
Application.EnableEvents = Gau
xInt = Targed.Row
Me.Range("A" & xInt).Value = Dyddiad
Application.EnableEvents = Gwir
Gorffennwch Os
Gorffennwch Os
Is-End
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Rwy'n meddwl bod angen newid llinell 7 hefyd...
Lleihawyd y sylw hwn gan y safonwr ar y wefan
A oes unrhyw un yn gwybod a oes ffordd i awto-boblogi a chloi i atal mewnbynnu rhag newid y dyddiad? Pan fyddaf yn cloi'r celloedd ac yn amddiffyn y ddogfen yna nid yw'r celloedd yn poblogi o gwbl.
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Nid wyf am nodi dyddiad ond gwerth cyson yn y gell, ee: rhif neu linyn testun. awgrymwch y newidiadau cod ar gyfer yr un peth.
diolch
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Helo, Os ydych chi am nodi rhif, disodli'r testun dyddiad gyda'r nifer yn uniongyrchol yn y cod. Ar gyfer teipio llinyn testun, rhowch y testun yn ei le dyddiad yn y cod gyda "llinyn testun chi" (mae'r dyfyniadau dwbl wedi'u cynnwys).
Is-daflen waith breifat_Change(ByVal Target As Excel.Range)
'Diweddarwyd gan Extendoffice 2020/09/28
Dim xRg Fel Ystod, xCell Fel Ystod
Ar Ail-ddechrau Gwall Nesaf
Os (Target.Count = 1) Yna
Os (Not Application.Intersect(Targed, Me.Range("B:B"))) Yn Dim) Yna _
Target.Offset(0, -1) = "llinyn testun" 'Neu rhowch rif yn uniongyrchol
Application.EnableEvents = Gau
Gosod xRg = Application.Intersect(Target.Dependents, Me.Range("B:B"))
Os (Nid xRg Yw Dim) Yna
Am Bob xCell Mewn xRg
xCell.Offset(0, -1) = "llinyn testun" 'Neu rhowch rif yn uniongyrchol
Digwyddiadau
Gorffennwch Os
Application.EnableEvents = Gwir
Gorffennwch Os
Is-End
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Rwy'n mewnbynnu'r cod hwn yn fy llyfr gwaith excel ac nid oes dim yn digwydd. A all unrhyw un helpu os gwelwch yn dda? Yn ddelfrydol, hoffwn pan fydd rhywbeth yn cael ei roi yng ngholofn A, byddai amser yn cael ei roi yng ngholofn B.
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Helo chapo, Rhowch gynnig ar y cod isod. Gobeithio y gallaf helpu. Is-daflen waith breifat_Change(ByVal Target As Excel.Range)
'Diweddarwyd gan Extendoffice 2020/10/12
Dim xRg Fel Ystod, xCell Fel Ystod
Ar Ail-ddechrau Gwall Nesaf
Os (Target.Count = 1) Yna
Os (Not Application.Intersect(Targed, Me.Range("A:A"))) Yn Dim) Yna _
Target.Offset(0, 1) = Amser
Application.EnableEvents = Gau
Gosod xRg = Application.Intersect(Target.Dependents, Me.Range("A:A"))
Os (Nid xRg Yw Dim) Yna
Am Bob xCell Mewn xRg
xCell.Offset(0, 1) = Amser
Digwyddiadau
Gorffennwch Os
Application.EnableEvents = Gwir
Gorffennwch Os
Is-End
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Helo, rwy'n defnyddio'ch cod fel cyfeiriad. Rwyf am ofyn a yw'n bosibl cael y canlynol: 1. Atal cofnodion dyddiad dyblyg2. Cael y 2 fewnbwn macro ar yr un pryd : Target.Offset(0,-1), Target, Offset(0,1)3. Posib mewnosod delwedd yn awtomatig i'r gell?
Roeddwn yn ceisio darganfod fy hun ond ni allaf ddod o hyd i unrhyw adnoddau ar-lein a all fy helpu
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Helo, mae'r fformiwla hon yn gweithio'n wych. Fodd bynnag, a oes ffordd i'w osod mai dim ond os yw'n wag y mae'n diweddaru'r gell yng ngholofn A?  
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Helo Matt, Mae'n ddrwg gennyf, nid wyf yn deall yn iawn beth rydych chi'n ei olygu. A allwch geisio bod yn fwy penodol am eich cwestiwn, neu ddarparu sgrinlun o'r hyn yr ydych yn ceisio ei wneud?
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