Skip i'r prif gynnwys

Sut i nodi dyddiad yn awtomatig pan fydd data'n cael ei nodi mewn colofn?

dyddiad auto doc wrth fewnbynnu data 1

Wrth weithio ar daflen waith, rydych chi am i'r dyddiad a'r amser cyfredol gael eu nodi yng ngholofn B yn awtomatig wrth fewnbynnu data yng ngholofn A fel y dangosir y llun a ganlyn. Yn Excel, sut allech chi geisio datrys y swydd hon gyda datrysiad hawdd a chyflym?

Rhowch y dyddiad yn awtomatig pan fydd data'n cael ei gofnodi mewn colofn gyda chod VBA

swigen dde glas saeth Rhowch y dyddiad yn awtomatig pan fydd data'n cael ei gofnodi mewn colofn gyda chod VBA

Efallai, nid oes unrhyw ffordd uniongyrchol inni ddelio â'r swydd hon yn Excel, ond, gall y cod VBA canlynol eich helpu, gwnewch fel a ganlyn:

1. Dewiswch y tab dalen yr ydych am fewnosod dyddiad yn awtomatig, yna cliciwch ar y dde, dewiswch Gweld y Cod o'r ddewislen testun, yna yn eh popped allan Microsoft Visual Basic ar gyfer Ceisiadau ffenestr, copïwch a gludwch y cod canlynol i'r Modiwl:

Cod VBA: Rhowch y dyddiad yn awtomatig wrth fewnbynnu data mewn colofn arall:

Private Sub Worksheet_Change(ByVal Target As Range)
    If Target.Cells.Count > 1 Then Exit Sub
    If Not Intersect(Target, Range("A2:A15")) Is Nothing Then
        With Target(1, 2)
        .Value = Date & " " & Time
        .EntireColumn.AutoFit
        End With
    End If
End Sub

dyddiad auto doc wrth fewnbynnu data 2

2. Yna arbedwch a chau y ffenestr god hon, ewch yn ôl i'r daflen waith, nawr, pan fyddwch chi'n mewnbynnu data yng Ngholofn A, bydd y gell gyfatebol yng Ngholofn B yn nodi'r dyddiad a'r amser cyfredol yn awtomatig ar unwaith.

Nodyn: Yn y cod uchod, A2: A15 yw'r celloedd rydych chi am nodi gwerthoedd.

Offer Cynhyrchiant Swyddfa Gorau

🤖 Kutools AI Aide: Chwyldro dadansoddi data yn seiliedig ar: Cyflawniad Deallus   |  Cynhyrchu Cod  |  Creu Fformiwlâu Personol  |  Dadansoddi Data a Chynhyrchu Siartiau  |  Invoke Swyddogaethau Kutools...
Nodweddion Poblogaidd: Darganfod, Amlygu neu Adnabod Dyblygiadau   |  Dileu Rhesi Gwag   |  Cyfuno Colofnau neu Gelloedd heb Colli Data   |   Rownd heb Fformiwla ...
Super-edrych: VLookup Meini Prawf Lluosog  |   VLookup Gwerth Lluosog  |   VLookup Ar Draws Taflenni Lluosog   |   Edrych Niwlog ....
Rhestr gwympo Uwch: Creu Rhestr Gollwng yn Gyflym   |  Rhestr Gollwng Dibynnol   |  Rhestr Gollwng Aml-ddewis ....
Rheolwr Colofn: Ychwanegu Nifer Penodol o Golofnau  |  Symud Colofnau  |  Toglo Statws Gwelededd Colofnau Cudd  |  Cymharwch Ystodau a Cholofnau ...
Nodweddion dan Sylw: Ffocws ar y Grid   |  Golwg Dylunio   |   Bar Fformiwla Mawr   |  Rheolwr Llyfr Gwaith a Thaflen   |  Llyfrgell Adnoddau (Testun Auto)   |  Dewiswr Dyddiad   |  Cyfuno Taflenni Gwaith   |  Amgryptio/Dadgryptio Celloedd   |  Anfon E-byst trwy Restr   |  Hidlo Super   |   Hidlo Arbennig (hidlo mewn print trwm/italig/strikethrough...) ...
15 Set Offer Gorau:  12 Testun offer (Ychwanegu Testun, Dileu Cymeriadau,...)   |   50 + Siart Mathau (Siart Gantt,...)   |   40+ Ymarferol Fformiwlâu (Cyfrifwch oedran yn seiliedig ar ben-blwydd,...)   |   19 mewnosod offer (Mewnosod Cod QR, Mewnosod Llun o'r Llwybr,...)   |   12 Trosi offer (Rhifau i Eiriau, Trosi arian cyfred,...)   |   7 Uno a Hollti offer (Rhesi Cyfuno Uwch, Celloedd Hollt,...)   |   ... a mwy

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...

Disgrifiad

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!
Comments (5)
No ratings yet. Be the first to rate!
Maira
Maira
This comment was minimized by the moderator on the site
Hola como fijo fecha cuando inserte un dato especifico en otro celda. por ejemplo cuando en la celda A Inserte Cerrado, en la celda B se fije la fecha actual.
Reply
0
0
laurent
laurent
This comment was minimized by the moderator on the site
comment étendre ce code VBA sur plusieurs colonnes en même temps ?

exemple conne A -> B et F->G et m ->N

MERCI
Reply
0
0
skyyang
skyyang     laurent
This comment was minimized by the moderator on the site
Hello, laurent

To apply this code to multiple ranges, please use the below code:
Private Sub Worksheet_Change(ByVal Target As Range)
'Updateby Extendoffice
    If Target.Cells.Count > 1 Then Exit Sub
    If (Not Intersect(Target, Range("A2:A15")) Is Nothing) Or (Not Intersect(Target, Range("F2:F15")) Is Nothing) Or (Not Intersect(Target, Range("M2:M15")) Is Nothing) Then
        With Target(1, 2)
        .Value = Date & " " & Time
        .EntireColumn.AutoFit
        End With
    End If
End Sub


Tips: If there are more ranges you want to use, you just need to use Or to join this Not Intersect(Target, Range("A2:A15") script. Change the cell reference A2:A15 to other range reference.

Please try, hope it can help you!
Reply
Report
0
0
laurent
laurent     skyyang
This comment was minimized by the moderator on the site
Merci pour ta réponse je l'essaye et je vous tiens au courant
Reply
0
0
Will
Will
This comment was minimized by the moderator on the site
Hi i was wondering if there was any way to make it input the date in the column before the data, like if i type in B the date appears in A, also more importantly, if there was any way to apply the code to multiple columns at once
Reply
0
0
There are no comments posted here yet
Please leave your comments in English
Guest
Posting as Guest
×
Rate this post:
Reset
0   Characters
Suggested Locations