Բաց թողնել հիմնական բովանդակությունը

Ինչպե՞ս թարմացնել կամ տեղադրել (ընթացիկ) ամսաթիվը և ժամանակը Excel- ում հրամանի կոճակի միջոցով:

Սովորաբար, Excel- ի շատ օգտվողներ հակված են ժամանակային դրոշմ մտցնել = NOW () բանաձևով: Այս բանաձևով տեղադրված ժամանակային դրոշմը ավտոմատ կթարմացվի ամեն անգամ, երբ աշխատանքային գիրքը բացեք: Dateանկացած ժամանակ աշխատաթերթում ամսաթիվը և ժամանակը ձեռքով թարմացնելու համար ինչպե՞ս հասնել դրան: Այս հոդվածը ցույց կտա ձեզ Excel- ում հրամանի կոճակը կտտացնելով ընթացիկ ամսաթիվը և ժամանակը թարմացնելու եղանակը:

Թարմացրեք ամսաթիվը և ժամանակը VBA կոդով հրամանի կոճակի միջոցով

Թարմացրեք ամսաթիվը և ժամանակը VBA կոդով հրամանի կոճակի միջոցով

Excel- ում հրամանի կոճակի միջոցով ամսաթիվը և ժամանակը թարմացնելու համար կատարեք հետևյալ կերպ.

1. Տեղադրեք հրամանի կոճակ ՝ կտտացնելով Երեվակիչ > Տեղադրել > Հրամանի կոճակ (ActiveX կառավարման), Տեսեք,

2. Աջ կտտացրեք տեղադրված հրամանի կոճակին, ապա կտտացրեք Դիտել կոդը աջ կտտացնելու ցանկից:

3. Պատուհանման մեջ Microsoft Visual Basic հավելվածների համար պատուհան, խնդրում ենք փոխարինել բնօրինակ կոդը հետևյալ VBA կոդով:

VBA կոդ. Excel- ում հրամանի կոճակի միջոցով թարմացրեք ամսաթիվը և ժամանակը

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

Նշում: Կոդում CommandButton1- ը ձեր տեղադրված հրամանի կոճակի անունն է: Իսկ A2- ը այն բջիջն է, որը կցուցադրվի թարմացման ամսաթիվը և ժամանակը: Խնդրում ենք փոխել դրանք, ինչպես ձեզ հարկավոր է:

4. Անջատեք Դիզայնի ռեժիմը erրագրավորող ներդիրի տակ: Կտտացրեք Հրահանգի կոճակին, ապա ընթացիկ ամսաթիվը և ժամանակը տեղադրվում են A2 բջիջում:

Եվ ամեն անգամ, երբ կտտացնում եք Հրահանգի կոճակը, A2 բջիջում ամսաթիվն ու ժամանակը անմիջապես թարմացվում են:

Առնչվող հոդվածներ:

Գրասենյակի արտադրողականության լավագույն գործիքները

🤖 Kutools AI օգնականՀեղափոխություն կատարել տվյալների վերլուծության հիման վրա՝ Խելացի կատարում   |  Ստեղծեք ծածկագիր  |  Ստեղծեք հատուկ բանաձևեր  |  Վերլուծել տվյալները և ստեղծել գծապատկերներ  |  Invoke Kutools-ի գործառույթները...
Հանրաճանաչ հատկություններ: Գտեք, ընդգծեք կամ նույնականացրեք կրկնօրինակները   |  Deleteնջել դատարկ շարքերը   |  Միավորել սյունակները կամ բջիջները՝ առանց տվյալների կորստի   |   Կլոր առանց բանաձևի ...
Super Փնտրել: Բազմաթիվ չափանիշների VLookup  |   Բազմակի արժեք VLookup  |   VLookup բազմաթիվ թերթերում   |   Fuzzy Փնտրել ....
Ընդլայնված բացվող ցուցակ: Արագ ստեղծեք բացվող ցուցակը   |  Կախված բացվող ցուցակ   |  Բազմակի ընտրություն Drop Down ցուցակ ....
Սյունակի կառավարիչ: Ավելացրեք որոշակի քանակությամբ սյունակներ  |  Տեղափոխել սյունակները  |  Փոխարկել թաքնված սյունակների տեսանելիության կարգավիճակը  |  Համեմատեք միջակայքերը և սյունակները ...
Առանձնահատկություններ: Ցանցի կենտրոնացում   |  Դիզայնի տեսք   |   Մեծ Formula Bar   |  Աշխատանքային գրքույկի և թերթիկների կառավարիչ   |  Ռեսուրսների գրադարան (Ավտոմատ տեքստ)   |  Ամսաթիվ ընտրող   |  Միավորել աշխատանքային թերթերը   |  Գաղտնագրել/գաղտնազերծել բջիջները   |  Ուղարկեք նամակներ ըստ ցանկի   |  Սուպեր զտիչ   |   Հատուկ զտիչ (զտել թավ/շեղ/շեղված...) ...
Լավագույն 15 գործիքների հավաքածու:  12 Տեքստ Գործիքներ (Ավելացրեք տեքստ, Հեռացնել նիշերը, ...)   |   50+ Աղյուսակ Տեսակներ (Գանտի աղյուսակը, ...)   |   40+ Գործնական Բանաձեւեր (Հաշվարկել տարիքը ՝ ելնելով ծննդյան տարեդարձից, ...)   |   19 միացում Գործիքներ (Տեղադրեք QR կոդ, Տեղադրեք նկար ուղուց, ...)   |   12 Փոխարկում Գործիքներ (Բառեր համարներ, Արտարժույթի փոխակերպումը, ...)   |   7 Միաձուլում և պառակտում Գործիքներ (Ընդլայնված կոմբինատ տողեր, Պառակտված բջիջներ, ...)   |   ... եւ ավելին

Լրացրեք ձեր Excel-ի հմտությունները Kutools-ի հետ Excel-ի համար և փորձեք արդյունավետությունը, ինչպես երբեք: Kutools-ը Excel-ի համար առաջարկում է ավելի քան 300 առաջադեմ առանձնահատկություններ՝ արտադրողականությունը բարձրացնելու և ժամանակ խնայելու համար:  Սեղմեք այստեղ՝ Ձեզ ամենաշատ անհրաժեշտ հատկանիշը ստանալու համար...

Նկարագրություն

Office Tab- ը Tabbed ինտերֆեյսը բերում է Office, և ձեր աշխատանքը շատ ավելի դյուրին դարձրեք

  • Միացնել ներդիրներով խմբագրումը և ընթերցումը Word, Excel, PowerPoint- ով, Հրատարակիչ, Access, Visio և Project:
  • Բացեք և ստեղծեք բազմաթիվ փաստաթղթեր նույն պատուհանի նոր ներդիրներում, այլ ոչ թե նոր պատուհաններում:
  • Բարձրացնում է ձեր արտադրողականությունը 50%-ով և նվազեցնում մկնիկի հարյուրավոր սեղմումները ձեզ համար ամեն օր:
Comments (7)
No ratings yet. Be the first to rate!
Rhonda
Rhonda
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
Reply
0
0
Michelle
Michelle
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.
Reply
0
0
crystal
crystal     Michelle
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.
Reply
Report
0
0
raph
raph
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?
Reply
0
0
crystal
crystal     raph
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.
Reply
Report
0
0
joeywarren27@gmail.com
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!
Reply
Report
0
0
crystal
crystal    
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
Reply
Report
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