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

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.


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 (4)
Dim sgôr eto. Byddwch y cyntaf i sgorio!
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Helo roeddwn i'n meddwl tybed a oedd unrhyw ffordd i wneud iddo fewnbynnu'r dyddiad yn y golofn cyn y data, fel pe bawn i'n teipio B mae'r dyddiad yn ymddangos yn A, hefyd yn bwysicach, os oedd unrhyw ffordd i gymhwyso'r cod i golofnau lluosog ar unwaith
Lleihawyd y sylw hwn gan y safonwr ar y wefan
sylw étendre ce code VBA sur plusieurs colonnes en même temps ?

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

DIOLCH
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Helo, laurent

I gymhwyso'r cod hwn i ystodau lluosog, defnyddiwch y cod isod:
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


Awgrymiadau: Os oes mwy o ystodau rydych chi am eu defnyddio, does ond angen i chi eu defnyddio Or i ymuno â hyn Ddim yn Croestorri (Targed, Ystod ("A2: A15") sgript. Newid y cyfeirnod cell A2:A15 i gyfeirnod amrediad arall.

Ceisiwch, gobeithio y gall eich helpu!
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Merci pour ta réponse je l'essaye et je vous tiens au courant
Nid oes unrhyw sylwadau wedi'u postio yma eto
Gadewch eich sylwadau
Postio fel Gwestai
×
Graddiwch y swydd hon:
0   Cymeriadau
Lleoliadau a Awgrymir