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

Obțineți și introduceți ora creată și ultima dată modificată în celule

Acest articol va vorbi despre modalități de a obține ora creată și ultima modificare a informațiilor actuale din registrul de lucru și se introduce ora creată și ultima modificare a informațiilor actuale din registrul de lucru în celule în Excel.

Obțineți ora creată și ultima dată modificată în Excel cu comanda Info

Obțineți ora creată și ultima dată modificată în Excel cu funcția Proprietăți avansate

Introduceți ora creată și ultima dată modificată în celulele din Excel cu cod VBA

Introduceți ora creată și ultima dată modificată în celule / antet / subsol cu ​​Kutools pentru Excel idee bună3


săgeată albastru dreapta balon Obțineți ora creată și ultima dată modificată în Excel cu comanda Info

Putem afla ora exactă creată și ultima modificare a registrului de lucru curent în vizualizarea din culise a Microsoft Excel 2010/2013.

Apasă pe Fișier > Informație, iar în partea dreaptă a vizualizării din culise afișează Date conexe informație. Sub Date conexe titlu, enumeră ultima oră modificată, ora creată și ultima oră tipărită. Vedeți următoarea captură de ecran:

-2

 

Notă: Acest mod este disponibil numai în Microsoft Excel 2010/2013. Nu este valid în Excel 2007.


săgeată albastru dreapta balonObțineți ora creată și ultima dată modificată în Excel cu funcția Proprietăți avansate

De fapt, putem obține atât ora creată, cât și ultima modificare a registrului de lucru curent în caseta de dialog Proprietăți document.
Etapa 1: Deschide Proprietăți avansate căsuță de dialog:

În Excel 2007, faceți clic pe Birou buton> Pregăti > Proprietăţi, Precum și o Proprietatile documentului bara va fi afișată sub bara de instrumente, faceți clic pe Proprietatile documentului > Proprietăți avansate, vezi capturi de ecran:

doc-insert-modified-time-3-3
-1
doc-insert-modified-time-4-4

 

În Excel 2010/2013, faceți clic pe Fișier > Informație > Proprietăţi > Proprietăți avansate.

doc-insert-modified-time-4-4

Etapa 2: În Proprietăți avansate caseta de dialog, veți vedea ora creată și ultima dată modificată în fila Statistici. Vedeți următoarea captură de ecran:

doc-insert-modified-time-4-4


săgeată albastru dreapta balon Introduceți ora creată și ultima dată modificată în celulele din Excel cu cod VBA

Următoarele macrocomenzi VBA vă vor ajuta să introduceți direct ora creată și ultima modificare a informațiilor actuale din registrul de lucru în celule.

Introduceți atât ora creată, cât și ultima dată modificată în Excel

Etapa 1: Țineți apăsat butonul ALT + F11 și deschide fereastra Microsoft Visual Basic pentru aplicații.

Etapa 2: Faceți clic pe Insera >> Moduleși lipiți următoarea macro în fereastra modulului.

Cod VBA: introduceți atât ora creată, cât și ultima dată modificată în 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

Etapa 3:Apasă pe F5 tasta pentru a rula această macro. Și apoi data creată și ultima dată modificată vor fi inserate separat în celula A1 și celula A2.

notițe: puteți modifica celula de destinație în VB în funcție de nevoile dvs.

Introduceți ultima oră modificată a registrului de lucru în Excel

Etapa 1: Țineți apăsat butonul ALT + F11 și deschide fereastra Microsoft Visual Basic pentru aplicații.

Etapa 2: Faceți clic pe Insera >> Moduleși lipiți următoarea macro în fereastra modulului.

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

Etapa 3: Apoi salvați și închideți acest cod și reveniți la foaia de lucru, într-o celulă goală, introduceți formula = ModDate ()și apăsați tasta Intrați cheie. Apoi introduce ultima dată modificată în celulă.

-2

Introduceți ora creată a registrului de lucru în Excel

Etapa 1: Țineți apăsat butonul ALT + F11 și deschide fereastra Microsoft Visual Basic pentru aplicații.

Etapa 2: Faceți clic pe Insera >> Moduleși lipiți următoarea macro în fereastra modulului.

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

Etapa 3: Salvați și închideți acest cod, reveniți la foaia de lucru, într-o celulă goală, introduceți formula = CreateDate ()și apăsați tasta Intrați cheie.și data creată va fi inserată în celulă după cum se arată în următoarele capturi de ecran:

-2

Notă: Dacă celula dvs. nu are formatul de dată, poate afișa un număr ciudat. Formatați doar această celulă ca Data format, se va afișa ca o dată normală.


săgeată albastru dreapta balon Introduceți ora creată și ultima dată modificată în celule / antet / subsol cu ​​Kutools pentru Excel

Să vă prezint un instrument la îndemână ...Kutools pentru Excel care, care include mai mult de 300 de funcții utile, vă poate îmbunătăți eficiența de lucru? Cu al ei; cu al lui Introduceți informații despre registrul de lucru funcție, puteți insera rapid calea registrului de lucru, numele registrului de lucru / foaie de lucru, numele utilizatorului sau ora creată și ora modificată ultima dată în celule sau antet sau subsol.

Kutools pentru Excel, cu mai mult de 300 funcții la îndemână, vă face munca mai ușoară. 

După instalare gratuită Kutools pentru Excel, faceți următoarele:

1. clic Kutools Plus > Workbook > Introduceți informații despre registrul de lucru. Vedeți captura de ecran:
doc ultima modificare name2

2. Apoi în Introduceți informații despre registrul de lucru dialog, verificați informațiile pe care doriți să le inserați din secțiunea Informații, apoi mergeți pentru a specifica locația în care doriți să inserați, puteți alege celule, subsol (subsol stâng, subsol central, subsol drept) sau antet (antet stâng, antet central, antet dreapta). Vedeți captura de ecran:
doc insert a creat ora modificată 1

3. clic Ok, iar informațiile pe care le verificați au fost inserate în locația specificată.

Bacsis. Dacă doriți să aveți o perioadă de încercare gratuită a funcției Inserare informații de registru de lucru, vă rugăm să accesați descărcarea gratuită Kutools pentru Excel mai întâi, apoi mergeți pentru a aplica operația conform pașilor de mai sus.

săgeată albastru dreapta balon Introduceți informații despre registrul de lucru



Cele mai bune instrumente de productivitate Office

Kutools pentru Excel vă rezolvă majoritatea problemelor și vă crește productivitatea cu 80%

  • reutilizarea: Introduceți rapid formule complexe, diagrame și orice ai folosit anterior; Criptați celulele cu parola; Creați o listă de corespondență și trimiteți e-mailuri ...
  • Super Formula Bar (editați cu ușurință mai multe linii de text și formulă); Layout de citire (citiți și editați cu ușurință un număr mare de celule); Lipiți la interval filtrat...
  • Merge celule / rânduri / coloane fără a pierde date; Conținut de celule divizate; Combinați rânduri / coloane duplicate... Prevenirea celulelor duplicate; Comparați gamele...
  • Selectați Duplicat sau Unic Rânduri; Selectați Rânduri goale (toate celulele sunt goale); Super Find și Fuzzy Find în multe cărți de lucru; Selectare aleatorie ...
  • Copie exactă Mai multe celule fără modificarea referinței formulelor; Creați automat referințe la foi multiple; Introduceți gloanțe, Casete de selectare și multe altele ...
  • Extrageți textul, Adăugați text, eliminați după poziție, Eliminați spațiul; Creați și imprimați subtotaluri de paginare; Convertiți conținutul dintre celule și comentarii...
  • Super Filtru (salvați și aplicați scheme de filtrare altor foi); Sortare avansată după lună / săptămână / zi, frecvență și multe altele; Filtru special cu bold, italic ...
  • Combinați cărți de lucru și foi de lucru; Merge Tables pe baza coloanelor cheie; Împărțiți datele în mai multe foi; Conversia în loturi xls, xlsx și PDF...
  • Peste 300 de funcții puternice. Suportă Office / Excel 2007-2021 și 365. Acceptă toate limbile. Implementare ușoară în întreprinderea sau organizația dvs. Funcții complete Probă gratuită de 30 de zile. Garanție de returnare a banilor de 60 de zile.
fila kte 201905

Fila Office aduce interfața cu file în Office și vă face munca mult mai ușoară

  • Activați editarea și citirea cu file în Word, Excel, PowerPoint, Publisher, Access, Visio și Project.
  • Deschideți și creați mai multe documente în filele noi ale aceleiași ferestre, mai degrabă decât în ​​ferestrele noi.
  • Vă crește productivitatea cu 50% și reduce sute de clicuri de mouse pentru dvs. în fiecare zi!
fundul officetab
Comentarii (21)
Încă nu există evaluări. Fii primul care evaluează!
Acest comentariu a fost redus la minimum de moderatorul de pe site
Informații utile.... :-)
Acest comentariu a fost redus la minimum de moderatorul de pe site
Asta a fost perfect. Exact ceea ce căutam. Multumesc mult!!
Acest comentariu a fost redus la minimum de moderatorul de pe site
Vă mulțumim foarte mult pentru ajutor, de asta avem nevoie. codurile funcționează corect, dar fără actualizare, înseamnă că nu actualizați data modificării odată ce salvez. ai vreo solutie pentru asta? Am încercat de multe ori, salvează, închid apoi redeschid, fără nicio actualizare pentru dată.
Acest comentariu a fost redus la minimum de moderatorul de pe site
Bună Khalid,

Am avut aceeași problemă și am adăugat linia „Application.Volatile” la cod și când apăs pe F9 va actualiza informațiile.
L-am văzut în videoclipul „Learn Excel – „Function for Last Saved Time”: Podcast #1725” al lui Bill Jelen.
@Bill: Mulțumesc mult pentru videoclip!

https://www.youtube.com/watch?v=KnSA6xdmc2Q

Salutari,
Alex
Acest comentariu a fost redus la minimum de moderatorul de pe site
Bună: Am făcut asta într-un mod diferit, dar și prin codificare. Din moment ce am adăugat cod, mă face să salvez registrul de lucru cu Macro-uri și, în consecință, ca *.XLSM. Este în regulă, dar multe locuri nu vor permite Macro-uri ca acesta. Există o modalitate de a obține acest lucru (sau de a salva registrul de lucru cu modificarea) într-un .XLS normal? De asemenea, presupun că va cere pe cineva să „Activeze macrocomenzi” dacă are acea setare activată (sunt consultant și în majoritatea locurilor în care lucrez, mă face să activez macrocomenzi atunci când este cazul după deschiderea unui registru de lucru). FYI: Iată cum am făcut-o într-o macro (nu mai bine; doar diferit). Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, _ Cancel As Boolean) Cancel = False With ActiveSheet.PageSetup ' .LeftHeader = "" ' .CenterHeader = "" ' .RightHeader = "Ultima actualizare" & Format(Now(), "mm /dd/aaaa") .RightHeader = "" .RightFooter = "Ultima actualizare" & Format(Acum(), "mm/zz/aaaa") Se termină cu End Sub
Acest comentariu a fost redus la minimum de moderatorul de pe site
Aceste informații sunt foarte utile pentru mine. mulțumesc îngrijorare
Acest comentariu a fost redus la minimum de moderatorul de pe site
mulțumiri pentru aceste informații
Acest comentariu a fost redus la minimum de moderatorul de pe site
[citat]Bună ziua: Am făcut asta într-un mod diferit, dar și prin codificare. Din moment ce am adăugat cod, mă face să salvez registrul de lucru cu Macro și, în consecință, ca *.XLSM. Este în regulă, dar multe locuri nu vor permite Macro-uri ca acesta. Există o modalitate de a obține acest lucru (sau de a salva registrul de lucru cu modificarea) într-un .XLS normal? De asemenea, presupun că va cere pe cineva să „Activeze macrocomenzi” dacă are acea setare activată (sunt consultant și în majoritatea locurilor în care lucrez, mă face să activez macrocomenzi atunci când este cazul după deschiderea unui registru de lucru). FYI: Iată cum am făcut-o într-o macro (nu mai bine; doar diferit). Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, _ Cancel As Boolean) Cancel = False With ActiveSheet.PageSetup ' .LeftHeader = "" ' .CenterHeader = "" ' .RightHeader = "Ultima actualizare" & Format(Now(), "mm /zz/aaaa") .RightHeader = "" .RightFooter = "Ultima actualizare" & Format(Acum(), "mm/zz/aaaa") Termină cu End SubDe Larry S. Peteet[/quote] Bună, am inserat cu succes Data și ora ultimei modificări, dar nu se actualizează când salvați și redeschideți registrul de lucru. Vă rugăm să ajutați aici... nu știu despre codificare, așa că practic copiez orice informații sunt oferite pe astfel de forumuri. Mulțumesc Swaran
Acest comentariu a fost redus la minimum de moderatorul de pe site
Da, am aceeași problemă - a funcționat perfect ieri, dar astăzi nu s-a schimbat la salvare.
Acest comentariu a fost redus la minimum de moderatorul de pe site
Te rog ajuta-ma!!! trebuie să returnați data și ora ultimei modificări ale unui fișier închis și să returnați aceste informații într-o celulă din fișierul deschis
Acest comentariu a fost redus la minimum de moderatorul de pe site
Hei, asta a fost minunat. Este posibil să inserați data creării și data ultimei modificări a unui alt registru de lucru? Caut să creez un fișier index care să-mi spună când au fost actualizate ultima dată alte documente. Mulțumiri!!
Acest comentariu a fost redus la minimum de moderatorul de pe site
Hiya Love love love this, dar din păcate doar data apare în SUA și în Australia avem zz/ll/aa. Am obosit să-l schimb în acest format folosind secțiunea „Data”, dar nu am avut noroc. Vreo idee?
Acest comentariu a fost redus la minimum de moderatorul de pe site
Julie - în codul VBA folosește în schimb „zz/ll/aa hh:n”. Asta va pune data în ordinea „corectă”! :laugh out loud:
Acest comentariu a fost redus la minimum de moderatorul de pe site
foarte foarte foarte foarte foarte foarte foarte foarte util multumesc
Acest comentariu a fost redus la minimum de moderatorul de pe site
Ar putea fi modificat pentru a afișa data de creare a alte fisiere inchise? Aș dori să compar data de creare a unui fișier de pe desktop-ul meu cu un fișier de pe un server web public. Aș putea crea formula pentru a utiliza funcțiile dvs.... CreateDate() din fișierul local la CreateDate() din fișierul web... și să mă avertizeze la o schimbare. Apreciez ajutorul vostru. Bruce
Acest comentariu a fost redus la minimum de moderatorul de pe site
Mulțumesc pentru ajutor, dar am avut și o problemă cu celula care nu se actualizează după o salvare fără a fi nevoie mai întâi să închid și să redeschid registrul de lucru. Am adăugat următorul cod la registrul de lucru care se reîmprospătează după un eveniment de salvare: Private Sub Workbook_AfterSave(ByVal Success As Boolean) If Success Then ActiveSheet.Calculate End If End Sub Asta a făcut trucul pentru mine. Sper ca ajuta.
Acest comentariu a fost redus la minimum de moderatorul de pe site
Văd că „Last Save Time” este referită doar O dată în cod. Folosesc Excel 2010. Când pun „Last Save Time” într-o funcție, chiar și cu Application.Volatile(true), valoarea nu se actualizează niciodată. Apoi am observat că valoarea returnată de „Last Save Time” nu apare în pagina „Proprietăți” din Excel 2010 NI nicio filă din dialogul „Proprietăți avansate”. Ar putea „Last Save Time” să fie o relicvă?
Acest comentariu a fost redus la minimum de moderatorul de pe site
Am învățat de ce „Last Save Time” nu funcționează pentru mine. Mi-am pus funcția în fișierul meu .XLA, iar „ThisWorkbook” se referea la fișierul .XLA în sine. Prin urmare, trebuia să obțin Application.ActiveWorkbook (probabil locația apelului funcției), ajungând cu: Function DocumentProperty(PropertyName As String) ' 'Puteți face referire la proprietățile documentului fie prin valoarea indexului, fie după nume. Următoarea listă arată numele de proprietăți încorporate ale documentului disponibile: „Titlu Subiect Autor „Cuvinte cheie Comentarii Șablon „Ultimul autor Număr revizuire Nume aplicație „Ultimei date de tipărire Data creării Ultima salvare „Timp total de editare Număr de pagini Număr de cuvinte „Număr de Caractere Categoria de securitate „Format Manager Companie „Număr de octeți Număr de linii Număr de paragrafe „Număr de diapozitive Număr de note Număr de diapozitive ascunse „Număr de clipuri multimedia Hyperlink Baza Număr de caractere (cu spații) Aplicație de apelare.Volatil (adevărat) Dim ActiveUserWorkbook La eroare Reluare Următorul Set ActiveUserWorkbook = Application.ActiveWorkbook If Err.Number 0 Then DocumentProperty = "!!! Eroare la obținerea Application.ActiveWorkbook: " & Err.Description Exit Function End If DocumentProperty = ActiveUserWorkbook.BuiltinDocumentProperties)(Property. 0 Apoi DocumentProperty = "!!! Nume de proprietate necunoscut !!!" Ieșire Funcție End If End Function
Acest comentariu a fost redus la minimum de moderatorul de pe site
Bună echipă, am nevoie de ajutorul tău. Am un fișier Excel, acolo vreau să găsesc data modificată a unei anumite celule. Vă rog să mă ajutați cu codificarea aici, dacă este posibil. Mulțumesc anticipat.
Acest comentariu a fost redus la minimum de moderatorul de pe site
Vreau să creez automat un spațiu între fiecare client în Excel. Cum fac asta?
Acest comentariu a fost redus la minimum de moderatorul de pe site
TE IUBESC LOOOOOO!!!! TKSSSSSSS
Nu există comentarii postate aici încă
Lăsa comentarii
Postare ca invitat
×
Evaluează această postare:
0   Caractere
Locații sugerate

Urmărește-ne

Copyright © 2009 - www.extendoffice.com. | Toate drepturile rezervate. Cu sprijinul ExtendOffice. | Harta site-ului
Microsoft și sigla Office sunt mărci comerciale sau mărci comerciale înregistrate ale Microsoft Corporation în Statele Unite și / sau în alte țări.
Protejat de Sectigo SSL