Skip i'r prif gynnwys

Sut i ddiweddaru neu fewnosod dyddiad ac amser (cyfredol) gan Botwm Gorchymyn yn Excel?

Fel rheol, mae llawer o ddefnyddwyr Excel yn tueddu i fewnosod stamp amser gyda'r fformiwla = NAWR (). Gyda'r fformiwla hon, bydd y stamp amser a fewnosodir yn cael ei ddiweddaru'n awtomatig bob tro y byddwch chi'n agor y llyfr gwaith. Ar gyfer diweddaru dyddiad ac amser â llaw mewn taflen waith ar unrhyw adeg, sut i'w gyflawni? Bydd yr erthygl hon yn dangos dull i chi o ddiweddaru'r dyddiad a'r amser cyfredol trwy glicio Botwm Gorchymyn yn Excel.

Diweddaru'r dyddiad a'r amser gan Botwm Gorchymyn gyda chod VBA


Diweddaru'r dyddiad a'r amser gan Botwm Gorchymyn gyda chod VBA

Gwnewch fel a ganlyn i ddiweddaru dyddiad ac amser gan Botwm Gorchymyn yn Excel.

1. Mewnosodwch Botwm Gorchymyn trwy glicio Datblygwr > Mewnosod > Botwm Gorchymyn (Rheoli ActiveX). Gweler y screenshot:

2. De-gliciwch y Botwm Gorchymyn wedi'i fewnosod, yna cliciwch Gweld y Cod o'r ddewislen clicio ar y dde.

3. Yn y popping up Microsoft Visual Basic ar gyfer Ceisiadau ffenestr, disodli'r cod gwreiddiol gyda'r cod VBA isod.

Cod VBA: Diweddaru'r dyddiad a'r amser gan Botwm Gorchymyn yn Excel

Private Sub CommandButton1_Click()
    Range("A2").Value = Now()
End Sub

Nodyn: Yn y cod, CommandButton1 yw enw'ch Botwm Gorchymyn a fewnosodwyd. Ac A2 yw'r gell y bydd y dyddiad a'r amser diweddaru yn cael ei harddangos. Newidiwch nhw yn ôl yr angen.

4. Diffoddwch y Modd Dylunio o dan y tab Datblygwr. Cliciwch ar y Botwm Gorchymyn, yna rhoddir y dyddiad a'r amser cyfredol yng nghell A2.

A phob tro pan fyddwch chi'n clicio ar y Botwm Gorchymyn, bydd y dyddiad a'r amser yng nghell A2 yn cael eu diweddaru ar unwaith.


Erthyglau perthnasol:

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 Gorau12 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 (7)
No ratings yet. Be the first to rate!
This comment was minimized by the moderator on the site
How do i update the code to put the time/date stamp in the cell NEXT to the button so it applies to each row thereon
This comment was minimized by the moderator on the site
I have a question. There is a workbook that we keep on a share drive for the whole team to access. I want to add this macro to it so anytime changes are made, we can simply pres the button and the time and date will auto populate at a click. Now here is the question, from this workbook, data is pulled to other workbooks if I save a new file as "Macro-Enabled" and delete the old "Non-Macro" workbook, will the data continue to pull from this new workbook or will I need to fix all the other workbooks.
This comment was minimized by the moderator on the site
Hi Michelle,
After saving the workbook as an Macro-Enabled Excel workbook, the code still works fine.
This comment was minimized by the moderator on the site
Awesome! Thanks for this tutorial.


However, how do i insert ONLY the date in DD/MM/YYYY format?
This comment was minimized by the moderator on the site
Hi,
You can format the output cell as Short Date formatting to solve the problem.
This comment was minimized by the moderator on the site
Hi there.. this is really good basic info..


One question - how do you modify the code to put the datestamp into the NEXT row below, each time the button is pressed? (keeping the data previously written above?)


Thank you so much!
This comment was minimized by the moderator on the site
Hi,
The below VBA code will work on selected cell. When you want to insert timestampe to a cell, just select it and press the button.

Private Sub CommandButton1_Click()
Dim xRg As Range
On Error Resume Next
Set xRg = Selection
xRg.Value = Now()
End Sub
There are no comments posted here yet
Please leave your comments in English
Posting as Guest
×
Rate this post:
0   Characters
Suggested Locations