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

Få og indsæt den oprettede tid og sidste ændrede tid i celler

Denne artikel vil tale om måder at få den oprettede tid og den sidst ændrede tid for den aktuelle projektmappeinformation og indsætte den oprettede tid og den sidst ændrede tid for den aktuelle projektmappeinformation i celler i Excel.

Få den oprettede tid og sidst ændrede tid i Excel med Info-kommandoen

Få den oprettede tid og sidst ændrede tid i Excel med funktionen Avancerede egenskaber

Indsæt den oprettede tid og sidst ændrede tid i celler i Excel med VBA-kode

Indsæt den oprettede tid og sidst ændrede tid i celler / overskrift / sidefod med Kutools til Excel god idé3


pil blå højre boble Få den oprettede tid og sidst ændrede tid i Excel med Info-kommandoen

Vi kan finde ud af den nøjagtige oprettede tid og den sidste ændrede tid for den aktuelle projektmappe i backstage-visning af Microsoft Excel 2010/2013.

Klik på knappen filet > INFO, og i højre side af backstage-visningen viser den Relaterede datoer Information. Under Relaterede datoer titel, det viser den sidst ændrede tid, oprettet tid og sidste udskrevne tid. Se følgende skærmbillede:

-2

 

Bemærk: Denne måde er kun tilgængelig i Microsoft Excel 2010/2013. Det er ugyldigt i Excel 2007.


pil blå højre bobleFå den oprettede tid og sidst ændrede tid i Excel med funktionen Avancerede egenskaber

Faktisk kan vi få både oprettet tid og sidste ændrede tid for den aktuelle projektmappe i dialogboksen Dokumentegenskaber.
Trin 1: Åbn Avancerede egenskaber dialog boks:

Klik på i Excel 2007 Office knap> Forbered > EjendommeOg en Dokumentegenskaber bar vises under værktøjslinjen, klik Dokumentegenskaber > Avancerede egenskaber, se skærmbilleder:

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

 

I Excel 2010/2013 skal du klikke på filet > INFO > Ejendomme > Avancerede egenskaber.

doc-insert-modified-time-4-4

Trin 2: I Avancerede egenskaber i dialogboksen, vil du se den oprettede tid og den sidste ændrede tid under fanen Statistik. Se følgende skærmbillede:

doc-insert-modified-time-4-4


pil blå højre boble Indsæt den oprettede tid og sidst ændrede tid i celler i Excel med VBA-kode

Følgende VBA-makroer hjælper dig med at indsætte den oprettede tid og den sidst ændrede tid for aktuelle projektmappeoplysninger direkte i celler.

Indsæt både oprettet tid og sidst ændret tid i Excel

Trin 1: Hold nede ALT + F11 nøgler, og det åbner vinduet Microsoft Visual Basic for Applications.

Trin 2: Klik indsatte >> Moduler, og indsæt følgende makro i modulvinduet.

VBA-kode: Indsæt både oprettet tid og sidst ændret tid i 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

Trin 3: Tryk på F5 nøgle til at køre denne makro. Og derefter indsættes den oprettede dato og den sidste ændrede dato separat i celle A1 og celle A2.

Bemærk: du kan ændre destinationscellen i VB efter dine behov.

Indsæt sidst ændrede tidspunkt for projektmappen i Excel

Trin 1: Hold nede ALT + F11 nøgler, og det åbner vinduet Microsoft Visual Basic for Applications.

Trin 2: Klik indsatte >> Moduler, og indsæt følgende makro i modulvinduet.

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

Trin 3: Gem og luk derefter denne kode, og gå tilbage til regnearket, i en tom celle, indtast formlen for = ModDate (), og tryk på Indtast nøgle. Derefter indsætter den sidst ændrede tid i cellen.

-2

Indsæt oprettet tid for projektmappe i Excel

Trin 1: Hold nede ALT + F11 nøgler, og det åbner vinduet Microsoft Visual Basic for Applications.

Trin 2: Klik indsatte >> Moduler, og indsæt følgende makro i modulvinduet.

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

Trin 3: Gem og luk denne kode, vend tilbage til regnearket, indtast formlen i en tom celle = Opret dato (), og tryk på Indtast nøgle. og den oprettede dato indsættes i cellen som følgende skærmbilleder vist:

-2

Bemærk: Hvis din celle ikke er datoformat, kan den vise et mærkeligt tal. Bare formater denne celle som Dato format, vises det som en normal dato.


pil blå højre boble Indsæt den oprettede tid og sidst ændrede tid i celler / overskrift / sidefod med Kutools til Excel

Må jeg introducere dig et praktisk værktøj--Kutools til Excel hvilke inklusive mere end 300 nyttige funktioner kan forbedre din arbejdseffektivitet? Med sin Indsæt projektmappeoplysninger funktion kan du hurtigt indsætte projektmappesti, projektmappe / regnearknavn, brugernavn eller oprettet tid og sidst ændrede tid i celler eller sidehoved eller sidefod.

Kutools til Excel, med mere end 300 praktiske funktioner, der gør dine job lettere. 

Efter gratis installation Kutools til Excel, gør venligst som nedenfor:

1. klik Kutools Plus > Workbook > Indsæt projektmappeoplysninger. Se skærmbillede:
doc sidst ændre navn2

2. Derefter i Indsæt projektmappeoplysninger dialog, tjek de oplysninger, du vil indsætte fra informationsafsnittet, og gå derefter til at specificere den placering, du vil indsætte til, du kan vælge celler, sidefod (venstre sidefod, midterste sidefod, højre sidefod) eller sidehoved (venstre sidehoved, centerhoved, højre overskrift). Se skærmbillede:
doc insert oprettet ændret tid 1

3. klik Ok, og de oplysninger, du kontrollerer, er indsat på det sted, du angiver.

Tip. Hvis du vil have en gratis prøveversion af funktionen Indsæt projektmappe, gå til gratis download Kutools til Excel først, og gå derefter til for at anvende handlingen i henhold til ovenstående trin.

pil blå højre boble Indsæt projektmappeoplysninger



De bedste Office-produktivitetsværktøjer

Kutools til Excel løser de fleste af dine problemer og øger din produktivitet med 80%

  • Genbruge: Indsæt hurtigt komplekse formler, diagrammer og alt, hvad du har brugt før; Krypter celler med adgangskode Opret postliste og send e-mails ...
  • Super formel bar (let redigere flere linjer med tekst og formel); Læsning Layout (let at læse og redigere et stort antal celler); Indsæt til filtreret rækkevidde...
  • Flet celler / rækker / kolonner uden at miste data; Split celler indhold; Kombiner duplikerede rækker / kolonner... Forhindre duplikerede celler; Sammenlign områder...
  • Vælg Duplicate eller Unique Rækker; Vælg tomme rækker (alle celler er tomme); Super Find og Fuzzy Find i mange arbejdsbøger; Tilfældig valg ...
  • Præcis kopi Flere celler uden at ændre formelreference; Auto Opret referencer til flere ark; Indsæt kugler, Afkrydsningsfelter og mere ...
  • Uddrag tekst, Tilføj tekst, Fjern efter position, Fjern mellemrum; Opret og udskriv personsøgningssubtotaler; Konverter mellem celler indhold og kommentarer...
  • Superfilter (gem og anvend filterskemaer på andre ark); Avanceret sortering efter måned / uge / dag, hyppighed og mere; Specielt filter af fed, kursiv ...
  • Kombiner arbejdsbøger og arbejdsark; Fletabeller baseret på nøglekolonner; Opdel data i flere ark; Batch Konverter xls, xlsx og PDF...
  • Mere end 300 kraftfulde funktioner. Understøtter Office / Excel 2007-2021 og 365. Understøtter alle sprog. Nem implementering i din virksomhed eller organisation. Fuld funktioner 30-dages gratis prøveperiode. 60 dages pengene tilbage garanti.
kte-fane 201905

Fanen Office bringer en grænseflade til et kontor med Office, og gør dit arbejde meget lettere

  • Aktiver redigering og læsning af faner i Word, Excel, PowerPoint, Publisher, Access, Visio og Project.
  • Åbn og opret flere dokumenter i nye faner i det samme vindue snarere end i nye vinduer.
  • Øger din produktivitet med 50 % og reducerer hundredvis af museklik for dig hver dag!
officetab bund
Sorter kommentarer efter
Kommentarer (21)
Ingen vurderinger endnu. Vær den første til at bedømme!
Denne kommentar blev minimeret af moderatoren på webstedet
Nyttig information... :-)
Denne kommentar blev minimeret af moderatoren på webstedet
Dette var perfekt. Præcis hvad jeg ledte efter. Tusind tak!!
Denne kommentar blev minimeret af moderatoren på webstedet
Mange tak for hjælpen, det er det vi har brug for. koderne fungerer korrekt, men uden opdatering, betyder, at du ikke opdaterer ændringsdatoen, når jeg først har gemt. har du en løsning på dette? Jeg prøvede mange gange, gem, luk og åbn igen, uden opdatering til datoen.
Denne kommentar blev minimeret af moderatoren på webstedet
Hej Khalid,

Jeg havde det samme problem, og jeg tilføjede linjen "Application.Volatile" til koden, og når jeg trykker på F9 vil den opdatere oplysningerne.
Jeg så det i videoen "Lær Excel - "Funktion til sidst sparede tid": Podcast #1725 " af Bill Jelen.
@Bill: Mange tak for videoen!

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

Hilsen,
Alex
Denne kommentar blev minimeret af moderatoren på webstedet
Hej: Jeg gjorde dette på en anden måde, men også ved at kode. Siden jeg tilføjede kode, får jeg mig til at gemme projektmappen med makroer og dermed som en *.XLSM. Det er fint, men mange steder tillader ikke makroer som denne. Er der en måde at få dette (eller gemme projektmappen med ændringen) til en normal .XLS? Jeg antager også, at det vil bede nogen om at "Aktiver makroer", hvis de har denne indstilling slået til (jeg er konsulent, og de fleste steder, hvor jeg arbejder, får det mig til at slå makroer til, når det er relevant efter at have åbnet en projektmappe). FYI: Her er, hvordan jeg gjorde det i en makro (ikke bedre, bare anderledes). Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, _ Cancel As Boolean) Cancel = False With ActiveSheet.PageSetup ' .LeftHeader = "" ' .CenterHeader = "" ' .RightHeader = "Sidste opdatering " & Format(Nu(), "mm /dd/åååå") .RightHeader = "" .RightFooter = "Sidst opdateret " & Format(Nu(), "mm/dd/åååå") End With End Sub
Denne kommentar blev minimeret af moderatoren på webstedet
Denne information er meget nyttig for mig. tak bekymring
Denne kommentar blev minimeret af moderatoren på webstedet
tak for denne info
Denne kommentar blev minimeret af moderatoren på webstedet
[quote]Hej: Jeg gjorde dette på en anden måde, men også ved at kode. Siden jeg tilføjede kode, får jeg mig til at gemme projektmappen med makroer og dermed som en *.XLSM. Det er fint, men mange steder tillader ikke makroer som denne. Er der en måde at få dette (eller gemme projektmappen med ændringen) til en normal .XLS? Jeg antager også, at det vil bede nogen om at "Aktiver makroer", hvis de har denne indstilling slået til (jeg er konsulent, og de fleste steder, hvor jeg arbejder, får det mig til at slå makroer til, når det er relevant efter at have åbnet en projektmappe). FYI: Her er, hvordan jeg gjorde det i en makro (ikke bedre, bare anderledes). Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, _ Cancel As Boolean) Cancel = False With ActiveSheet.PageSetup ' .LeftHeader = "" ' .CenterHeader = "" ' .RightHeader = "Sidste opdatering " & Format(Nu(), "mm /dd/åååå") .RightHeader = "" .RightFooter = "Sidst opdateret " & Format(Nu(), "mm/dd/åååå") End With End SubAf Larry S. Peteet[/quote] Hej, jeg har indsat den sidste ændrede dato og klokkeslæt, men den opdateres ikke, når du gemmer og genåbner projektmappen. Venligst hjælp her ...... jeg ved ikke om kodning, så jeg kopierer stort set alle oplysninger, der gives på sådanne fora. Tak Swaran
Denne kommentar blev minimeret af moderatoren på webstedet
Ja, jeg har samme problem - det fungerede perfekt i går, men i dag ville det ikke ændre sig, når det blev gemt.
Denne kommentar blev minimeret af moderatoren på webstedet
Hjælp venligst!!! skal returnere sidst ændrede dato og klokkeslæt for en lukket fil, og returnere denne info i en celle i den åbne fil
Denne kommentar blev minimeret af moderatoren på webstedet
Hej det var fantastisk. Er det muligt at indsætte oprettelsesdatoen og sidst ændrede dato for en anden projektmappe? Jeg søger at oprette en indeksfil, der fortæller mig, hvornår andre dokumenter sidst blev opdateret. Tak!!
Denne kommentar blev minimeret af moderatoren på webstedet
Hiya Love love elsker dette, men desværre vises datoen kun i USA og i Australien har vi dd/mm/åå. Jeg har været træt af at ændre den til dette format ved at bruge "Dato"-sektionen, men har ikke haft held. Nogle ideer?
Denne kommentar blev minimeret af moderatoren på webstedet
Julie - i VBA-koden skal du bruge "dd/mm/åå tt:n" i stedet for. Det vil sætte datoen i den "rigtige" rækkefølge! :lol:
Denne kommentar blev minimeret af moderatoren på webstedet
meget meget meget meget meget meget hjælpsom tak
Denne kommentar blev minimeret af moderatoren på webstedet
Kunne dette ændres til at vise oprettelsesdatoen for andre lukkede filer? Jeg vil gerne sammenligne oprettelsesdatoen for en fil på mit skrivebord med en fil på en offentlig webserver. Jeg kunne oprette formlen til at bruge dine funktioner...CreateDate() af lokal fil til CreateDate() af webfil...og advare mig om en ændring. Jeg værdsætter din hjælp. Bruce
Denne kommentar blev minimeret af moderatoren på webstedet
Tak for hjælpen, men jeg havde også et problem med, at cellen ikke blev opdateret efter en lagring uden først at skulle lukke og genåbne projektmappen. Jeg tilføjede følgende kode til projektmappen, som opdateres efter en lagringsbegivenhed: Private Sub Workbook_AfterSave(ByVal Success As Boolean) If Success Then ActiveSheet.Calculate End If End Sub Det gjorde tricket for mig. Håber det hjælper.
Denne kommentar blev minimeret af moderatoren på webstedet
Jeg kan se, at "Sidste sparetid" kun refereres EN gang i koden. Jeg bruger Excel 2010. Når jeg sætter "Sidste sparetid" ind i en funktion, selv med Application.Volatile(true), opdateres værdien aldrig. Så bemærkede jeg, at værdien returneret af "Sidste lagringstid" ikke vises på Excel 2010-siden "Egenskaber" OG heller ikke nogen af ​​fanerne i dialogboksen "Avancerede egenskaber". Kunne "Last Save Time" være et levn?
Denne kommentar blev minimeret af moderatoren på webstedet
Jeg lærte, hvorfor "Last Save Time" ikke virkede for mig. Jeg satte min funktion i min .XLA-fil, og "ThisWorkbook" henviste til selve .XLA-filen. Derfor var jeg nødt til at få Application.ActiveWorkbook (formodentlig placeringen af ​​funktionskaldet), som ender med: Funktion DocumentProperty(PropertyName As String) ' 'Du kan referere til dokumentegenskaber enten ved indeksværdi eller ved navn. Følgende liste viser de tilgængelige indbyggede dokumentegenskabsnavne: 'Titel Emne Forfatter' Nøgleord Kommentarskabelon 'Sidste forfatter Revisionsnummer Ansøgningsnavn 'Sidste udskriftsdato Oprettelsesdato Sidste lagringstid 'Samlet redigeringstid Antal sider Antal ord 'Antal Tegn Sikkerhedskategori 'Format Manager Virksomhed 'Antal bytes Antal linjer Antal afsnit 'Antal dias Antal noter Antal skjulte dias 'Antal multimedieklip Hyperlink Base Antal tegn (med mellemrum) Kald Application.Volatile(True) Dim ActiveUserWorkbook Ved fejl Genoptag næste sæt ActiveUserWorkbook = Application.ActiveWorkbook Hvis Err.Number 0 Then DocumentProperty = "!!! Fejl ved hentning af Application.ActiveWorkbook: " & Err.Description Afslut funktion End If DocumentProperty = ActiveUserWorkment.Builtin.Properties(N.PropertyName) 0 Så DocumentProperty = "!!! Ukendt egenskabsnavn !!!" Afslut funktion Afslut hvis Afslut funktion
Denne kommentar blev minimeret af moderatoren på webstedet
Hej team, jeg har brug for jeres hjælp. Jeg har en excel-fil, der vil jeg finde den ændrede dato for en bestemt celle. Hjælp mig venligst med kodningen her, hvis det er muligt. Tak på forhånd.
Denne kommentar blev minimeret af moderatoren på webstedet
Jeg vil automatisk oprette et mellemrum mellem hver kunde i excel hvordan gør jeg det??
Denne kommentar blev minimeret af moderatoren på webstedet
JEG ELSKER DIG!!!! TKSSSSSSS
Der er endnu ingen kommentarer her
Efterlad dine kommentarer
Sender som gæst
×
Bedøm dette indlæg:
0   Tegn
Foreslåede steder

Følg os

Copyright © 2009 - www.extendoffice.com. | Alle rettigheder forbeholdes. Drevet af ExtendOffice. | | Sitemap
Microsoft og Office-logoet er varemærker eller registrerede varemærker tilhørende Microsoft Corporation i USA og / eller andre lande.
Beskyttet af Sectigo SSL