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

Ստացեք և տեղադրեք ստեղծված ժամանակը և վերջին փոփոխված ժամանակը բջիջներում

Այս հոդվածում կխոսվի ընթացիկ աշխատանքային գրքի տեղեկատվության ստեղծված ժամանակը և վերջին փոփոխված ժամանակը ստանալու եղանակների մասին և Excel- ում բջիջներում տեղադրեք ընթացիկ աշխատանքային գրքի տեղեկատվության ստեղծված ժամանակը և վերջին փոփոխված ժամանակը:

Ստացեք ստեղծված ժամանակը և վերջին փոփոխված ժամանակը Excel- ում ՝ Info հրահանգով

Ստացեք ստեղծված ժամանակն ու վերջին փոփոխված ժամանակը Excel- ում ՝ Advanced Properties գործառույթով

Տեղադրեք ստեղծված ժամանակը և վերջին փոփոխված ժամանակը Excel- ում `VBA կոդով

Տեղադրեք ստեղծված ժամանակը և վերջին փոփոխված ժամանակը բջիջներում / վերնագրում / էջատակում Kutools- ի հետ Excel- ի համար լավ գաղափար 3


նետ կապույտ աջ պղպջակ Ստացեք ստեղծված ժամանակը և վերջին փոփոխված ժամանակը Excel- ում ՝ Info հրահանգով

Microsoft Excel 2010/2013-ի կուլիսներում մենք կարող ենք պարզել ընթացիկ աշխատանքային գրքի ճշգրիտ ստեղծված ժամանակը և վերջին փոփոխված ժամանակը:

Սեղմեք է Ֆայլ > Info, և կուլիսային տեսքի աջ կողմում այն ​​ցուցադրում է Առնչվող ամսաթվերը տեղեկատվություն Համաձայն Առնչվող ամսաթվերը վերնագիր, այն նշում է վերջին փոփոխված ժամանակը, ստեղծված ժամանակը և վերջին տպված ժամանակը: Տե՛ս հետևյալ նկարը.

-2

 

Նշում: Այս եղանակը հասանելի է միայն Microsoft Excel 2010/2013-ում: Այն Excel 2007-ում անվավեր է:


նետ կապույտ աջ պղպջակՍտացեք ստեղծված ժամանակն ու վերջին փոփոխված ժամանակը Excel- ում ՝ Advanced Properties գործառույթով

Փաստորեն, Փաստաթղթի հատկությունները երկխոսության դաշտում մենք կարող ենք ստանալ ինչպես ստեղծված, այնպես էլ ընթացիկ աշխատանքային գրքի վերջին փոփոխված ժամանակը:
Քայլ 1Բացել Ընդլայնված հատկություններ երկխոսության տուփ:

Excel 2007-ում կտտացրեք Գրասենյակ կոճակ> Պատրաստել > ՀատկություններԵւ Փաստաթղթերի հատկությունները բարը կցուցադրվի գործիքագոտու տակ, կտտացրեք Փաստաթղթերի հատկությունները > Ընդլայնված հատկություններ, տես սքրինշոթեր.

doc- ներդիր-փոփոխված-ժամանակ -3-3
-1
doc- ներդիր-փոփոխված-ժամանակ -4-4

 

Excel 2010/2013-ում կտտացրեք Ֆայլ > Info > Հատկություններ > Ընդլայնված հատկություններ.

doc- ներդիր-փոփոխված-ժամանակ -4-4

Քայլ 2: Մեջ Ընդլայնված հատկություններ երկխոսության տուփ, դուք կտեսնեք ստեղծված ժամանակը և վերջին փոփոխված ժամանակը Վիճակագրություն էջանիշի տակ: Տե՛ս հետևյալ նկարը.

doc- ներդիր-փոփոխված-ժամանակ -4-4


նետ կապույտ աջ պղպջակ Տեղադրեք ստեղծված ժամանակը և վերջին փոփոխված ժամանակը Excel- ում `VBA կոդով

Հետևյալ VBA մակրոները կօգնեն ձեզ ուղղակիորեն ներմուծել ստեղծված աշխատանքային ժամանակը և ընթացիկ աշխատանքային գրքի վերջին փոփոխված ժամանակը `բջիջներում:

Տեղադրեք ինչպես ստեղծված ժամանակը, այնպես էլ վերջին փոփոխված ժամանակը Excel- ում

Քայլ 1Պահեք պահեք ALT + F11 ստեղները, և այն բացում է Microsoft Visual Basic կիրառական ծրագրերի պատուհանը:

Քայլ 2: Սեղմել Տեղադրել >> Մոդուլներ, և տեղադրեք հետևյալ մակրոը Մոդուլի պատուհանում:

VBA կոդ. Excel- ում տեղադրեք ինչպես ստեղծված ժամանակը, այնպես էլ վերջին փոփոխված ժամանակը

Sub Workbook_Open()
Range("A1").Value = Format(ThisWorkbook.BuiltinDocumentProperties("Creation Date"), "short date")
Range("A2").Value = Format(ThisWorkbook.BuiltinDocumentProperties("Last Save Time"), "short date")
End Sub

Քայլ 3: Սեղմեք F5 այս մակրո գործարկման բանալին: Եվ ապա ստեղծված ամսաթիվը և վերջին փոփոխված ամսաթիվը կտեղադրվեն A1 և A2 բջիջների մեջ առանձին:

ՆշումԴուք կարող եք փոփոխել նպատակակետի բջիջը VB- ում ՝ ըստ ձեր կարիքների:

Տեղադրեք աշխատանքային գրքի վերջին փոփոխված ժամանակը Excel- ում

Քայլ 1Պահեք պահեք ALT + F11 ստեղները, և այն բացում է Microsoft Visual Basic կիրառական ծրագրերի պատուհանը:

Քայլ 2: Սեղմել Տեղադրել >> Մոդուլներ, և տեղադրեք հետևյալ մակրոը Մոդուլի պատուհանում:

Public Function ModDate()
ModDate = Format(FileDateTime(ThisWorkbook.FullName), "m/d/yy h:n ampm")
End Function

Քայլ 3Հետո պահեք և փակեք այս կոդը և վերադառնաք աշխատաթերթ, դատարկ վանդակում, մուտքագրեք բանաձևը = ModDate (), եւ սեղմեք Մտնել բանալի. Այնուհետեւ այն ներմուծում է վերջին փոփոխված ժամանակը բջիջում:

-2

Տեղադրեք աշխատանքային գրքի Excel- ը

Քայլ 1Պահեք պահեք ALT + F11 ստեղները, և այն բացում է Microsoft Visual Basic կիրառական ծրագրերի պատուհանը:

Քայլ 2: Սեղմել Տեղադրել >> Մոդուլներ, և տեղադրեք հետևյալ մակրոը Մոդուլի պատուհանում:

Function CreateDate() As Date
CreateDate = ActiveWorkbook.BuiltinDocumentProperties("Creation Date")
End Function

Քայլ 3Փրկեք և փակեք այս կոդը, վերադարձեք աշխատաթերթ, դատարկ վանդակում, մուտքագրեք բանաձևը = Ստեղծել ամսաթիվ (), եւ սեղմեք Մտնել ստեղնը: և ստեղծված ամսաթիվը կտեղադրվի խցում, ինչպես ցույց են տրված հետևյալ նկարները.

-2

Նշում: Եթե ​​ձեր բջիջը ամսաթվի ձևաչափ չէ, այն կարող է ցույց տալ տարօրինակ թիվ: Պարզապես ձևաչափեք այս բջիջը որպես Ամսաթիվ ձևաչափը, այն կցուցադրվի որպես սովորական ամսաթիվ:


նետ կապույտ աջ պղպջակ Տեղադրեք ստեղծված ժամանակը և վերջին փոփոխված ժամանակը բջիջներում / վերնագրում / էջատակում Kutools- ի հետ Excel- ի համար

Կարո՞ղ եմ ձեզ ներկայացնել մի հարմար գործիք -Excel- ի համար նախատեսված գործիքներ որը, ներառելով ավելի քան 300 օգտակար գործառույթներ, կարող է բարձրացնել ձեր աշխատանքային արդյունավետությունը: Իր հետ Տեղադրեք աշխատանքային գրքի տեղեկատվությունը գործառույթը, դուք կարող եք արագորեն ներդնել աշխատանքային գրքի ուղին, աշխատանքային գրքի / աշխատանքային թերթի անունը, օգտվողի անունը կամ ստեղծված ժամանակը և վերջին փոփոխված ժամանակը բջիջների կամ վերնագրի կամ տողատակերի մեջ:

Excel- ի համար նախատեսված գործիքներ, ավելի քան 300 հարմար գործառույթներ, ավելի հեշտացնում է ձեր գործերը: 

Այն բանից հետո անվճար տեղադրում Excel- ի համար նախատեսված գործիքներ, խնդրում ենք վարվել ինչպես ստորև ՝

1: սեղմեք Kutools Plus > Աշխատանքային տետր > Տեղադրեք աշխատանքային գրքի տեղեկատվությունը, Տեսեք,
doc վերջին փոփոխել անունը 2

2. Հետո Տեղադրեք աշխատանքային գրքի տեղեկատվությունը երկխոսություն, ստուգեք Տեղեկատվության բաժնից այն տեղեկատվությունը, որը ցանկանում եք զետեղել, այնուհետև գնացեք նշելու վայրը, որը ցանկանում եք տեղադրել, կարող եք ընտրել բջիջներ, տողատակ (ձախ ստորագիր, կենտրոն էջատակ, աջ էջ) կամ վերնագիր (ձախ վերնագիր, կենտրոն վերնագիր, աջ վերնագիր): Տեսեք,
doc ներդիրը ստեղծեց փոփոխված ժամանակը 1

3: սեղմեք Ok, և ձեր ստուգած տեղեկությունները տեղադրվել են ձեր կողմից նշված վայրում:

Հուշում Եթե ​​ցանկանում եք անվճար տեղադրել Տեղադրեք աշխատանքային գրքույկ տեղեկատվության գործառույթը, խնդրում ենք անցնել անվճար ներբեռնելու համար Kutools Excel- ի համար նախ և ապա անցեք գործողությունը կիրառելու համար ՝ համաձայն վերը նշված քայլերի:

նետ կապույտ աջ պղպջակ Տեղադրեք աշխատանքային գրքի տեղեկատվությունը


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

🤖 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 (21)
No ratings yet. Be the first to rate!
This comment was minimized by the moderator on the site
I LOOOOOOOOVE YOU!!!! TKSSSSSSS
This comment was minimized by the moderator on the site
I want to automatically create a space between each customer in excel how do i do this??
This comment was minimized by the moderator on the site
Hi Team, I need your help. I am having an excel file, there i want to find the modified date of a particular cell. Please help me with the coding here, if possible. Thanks in advance.
This comment was minimized by the moderator on the site
I learned why "Last Save Time" was not working for me. I put my function in my .XLA file, and "ThisWorkbook" was referring to the .XLA file itself. Therefore I needed to get Application.ActiveWorkbook (presumably the location of the function call), ending up with: Function DocumentProperty(PropertyName As String) ' 'You can refer to document properties either by index value or by name. The following list shows the available built-in document property names: 'Title Subject Author 'Keywords Comments Template 'Last Author Revision Number Application Name 'Last Print Date Creation Date Last Save Time 'Total Editing Time Number of Pages Number of Words 'Number of Characters Security Category 'Format Manager Company 'Number of Bytes Number of Lines Number of Paragraphs 'Number of Slides Number of Notes Number of Hidden Slides 'Number of Multimedia Clips Hyperlink Base Number of Characters (with spaces) Call Application.Volatile(True) Dim ActiveUserWorkbook On Error Resume Next Set ActiveUserWorkbook = Application.ActiveWorkbook If Err.Number 0 Then DocumentProperty = "!!! Error getting Application.ActiveWorkbook: " & Err.Description Exit Function End If DocumentProperty = ActiveUserWorkbook.BuiltinDocumentProperties(PropertyName) If Err.Number 0 Then DocumentProperty = "!!! Unknown Property Name !!!" Exit Function End If End Function
This comment was minimized by the moderator on the site
I see that "Last Save Time" is only referenced ONCE in the code. I'm using Excel 2010.When I put "Last Save Time" into a function, even with Application.Volatile(true), the value never updates. Then I noticed that the value returned by "Last Save Time" does not appear in the Excel 2010 "Properties" page NOR any of the tabs in the "Advanced Properties" dialog. Could "Last Save Time" be some relic?
This comment was minimized by the moderator on the site
Thanks for the help, but I also had a problem with the cell not updating after a save without having to first close and reopen the workbook. I added the following code to the workbook which refreshes after a save event: Private Sub Workbook_AfterSave(ByVal Success As Boolean) If Success Then ActiveSheet.Calculate End If End Sub That did the trick for me. Hope it helps.
This comment was minimized by the moderator on the site
Could this be modified to display the Created Date of other closed files? I'd like to compare the Created Date of a file on my Desktop to a file on a public web server. I could create the formula to use your functions...CreateDate() of local file to CreateDate() of web file...and alert me to a change. I appreciate your help. Bruce
This comment was minimized by the moderator on the site
very very very very very very very very helpful thanks
This comment was minimized by the moderator on the site
Hiya Love love love this but sadly the date only is appearing in USA and in Australia we have dd/mm/yy I've tired changing it to this format using the "Date" section but have not had any luck. Any ideas?
This comment was minimized by the moderator on the site
Julie - in the VBA code use "dd/mm/yy hh:n" instead. That'll put the date in the "right" order! :lol:
This comment was minimized by the moderator on the site
Hey this was awesome. Is it possible to insert the created date and last modified date of a different workbook? I'm looking to create an index file that tells me when other documents were last updated. Thanks!!
There are no comments posted here yet
Load More
Please leave your comments in English
Posting as Guest
×
Rate this post:
0   Characters
Suggested Locations