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

Pobierz i wstaw czas utworzenia i ostatniej modyfikacji w komórkach

W tym artykule omówiono sposoby uzyskania czasu utworzenia i czasu ostatniej modyfikacji aktualnych informacji ze skoroszytu oraz wstawienia czasu utworzenia i czasu ostatniej modyfikacji aktualnych informacji ze skoroszytu w komórkach w programie Excel.

Uzyskaj czas utworzenia i czas ostatniej modyfikacji w programie Excel za pomocą polecenia Informacje

Uzyskaj czas utworzenia i czas ostatniej modyfikacji w programie Excel dzięki funkcji Właściwości zaawansowane

Wstaw czas utworzony i czas ostatniej modyfikacji w komórkach w Excelu z kodem VBA

Wstaw utworzony czas i czas ostatniej modyfikacji w komórkach / nagłówku / stopce za pomocą Kutools for Excel dobry pomysł 3


strzałka niebieski prawy bąbelek Uzyskaj czas utworzenia i czas ostatniej modyfikacji w programie Excel za pomocą polecenia Informacje

Dokładny czas utworzenia i ostatniej modyfikacji bieżącego skoroszytu możemy sprawdzić w widoku backstage programu Microsoft Excel 2010/2013.

Kliknij filet > Informacia, a po prawej stronie widoku za kulisami wyświetla plik Powiązane daty Informacja. Pod Powiązane daty tytuł, wyświetla czas ostatniej modyfikacji, czas utworzenia i czas ostatniego wydruku. Zobacz poniższy zrzut ekranu:

-2

 

Uwaga: Ta metoda jest dostępna tylko w programie Microsoft Excel 2010/2013. Jest nieprawidłowy w programie Excel 2007.


strzałka niebieski prawy bąbelekUzyskaj czas utworzenia i czas ostatniej modyfikacji w programie Excel dzięki funkcji Właściwości zaawansowane

W rzeczywistości możemy uzyskać zarówno czas utworzenia, jak i czas ostatniej modyfikacji bieżącego skoroszytu w oknie dialogowym Właściwości dokumentu.
Krok 1: Otworzyć Właściwości zaawansowane Okno dialogowe:

W programie Excel 2007 kliknij plik Biuro przycisk> Przygotować > WłaściwościI Właściwości dokumentu pasek zostanie wyświetlony poniżej paska narzędzi, kliknij Właściwości dokumentu > Właściwości zaawansowanezobacz zrzuty ekranu:

czas-wstaw-modyfikacji-dokumentu-dokumentu-3-3
-1
czas-wstaw-modyfikacji-dokumentu-dokumentu-4-4

 

W programie Excel 2010/2013 kliknij plik filet > Informacia > Właściwości > Właściwości zaawansowane.

czas-wstaw-modyfikacji-dokumentu-dokumentu-4-4

Krok 2: W Właściwości zaawansowane w oknie dialogowym, zobaczysz czas utworzenia i czas ostatniej modyfikacji w zakładce Statystyki. Zobacz poniższy zrzut ekranu:

czas-wstaw-modyfikacji-dokumentu-dokumentu-4-4


strzałka niebieski prawy bąbelek Wstaw czas utworzony i czas ostatniej modyfikacji w komórkach w Excelu z kodem VBA

Poniższe makra VBA pomogą Ci wstawić czas utworzenia i czas ostatniej modyfikacji aktualnych informacji ze skoroszytu bezpośrednio do komórek.

Wstaw czas utworzenia i czas ostatniej modyfikacji w programie Excel

Krok 1: Przytrzymaj ALT + F11 keys i otwiera okno Microsoft Visual Basic for Applications.

Krok 2: Kliknij wstawka >> Modułi wklej następujące makro w oknie modułu.

Kod VBA: Wstaw czas utworzenia i czas ostatniej modyfikacji w programie 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

Krok 3:Wciśnij F5 klucz do uruchomienia tego makra. Następnie data utworzenia i data ostatniej modyfikacji zostaną wstawione osobno do komórki A1 i A2.

Uwagi: możesz zmodyfikować komórkę docelową w VB zgodnie ze swoimi potrzebami.

Wstaw czas ostatniej modyfikacji skoroszytu w programie Excel

Krok 1: Przytrzymaj ALT + F11 keys i otwiera okno Microsoft Visual Basic for Applications.

Krok 2: Kliknij wstawka >> Modułi wklej następujące makro w oknie modułu.

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

Krok 3: Następnie zapisz i zamknij ten kod i wróć do arkusza roboczego, w pustej komórce wprowadź formułę = ModDate ()i naciśnij Wchodzę klucz. Następnie wstawia czas ostatniej modyfikacji w komórce.

-2

Wstaw utworzony czas skoroszytu w programie Excel

Krok 1: Przytrzymaj ALT + F11 keys i otwiera okno Microsoft Visual Basic for Applications.

Krok 2: Kliknij wstawka >> Modułi wklej następujące makro w oknie modułu.

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

Krok 3: Zapisz i zamknij ten kod, wróć do arkusza, w pustej komórce wprowadź formułę = CreateDate ()i naciśnij Wchodzę key. a data utworzenia zostanie wstawiona do komórki, jak pokazano na poniższych zrzutach ekranu:

-2

Uwaga: Jeśli komórka nie ma formatu daty, może wyświetlać dziwną liczbę. Po prostu sformatuj tę komórkę jako Data format, będzie wyświetlana jako normalna data.


strzałka niebieski prawy bąbelek Wstaw utworzony czas i czas ostatniej modyfikacji w komórkach / nagłówku / stopce za pomocą Kutools for Excel

Czy mogę przedstawić przydatne narzędzie -Kutools dla programu Excel które z ponad 300 przydatnych funkcji mogą zwiększyć Twoją wydajność pracy? Z jego Wstaw informacje ze skoroszytu możesz szybko wstawić ścieżkę do skoroszytu, nazwę skoroszytu / arkusza, nazwę użytkownika lub czas utworzenia i czas ostatniej modyfikacji do komórek lub nagłówka lub stopki.

Kutools dla programu Excel, ponad 300 przydatne funkcje, ułatwiają pracę. 

Po bezpłatna instalacja Kutools dla programu Excel, wykonaj poniższe czynności:

1. kliknij Kutools Plus > skoroszyt > Wstaw informacje ze skoroszytu. Zobacz zrzut ekranu:
ostatnia modyfikacja dokumentu nazwa2

2. Następnie w Wstaw informacje ze skoroszytu w oknie dialogowym zaznacz informacje, które chcesz wstawić w sekcji Informacje, a następnie przejdź do określenia lokalizacji, do której chcesz wstawić, możesz wybrać komórki, stopkę (lewa stopka, środkowa stopka, prawa stopka) lub nagłówek (lewy nagłówek, środkowy nagłówek, prawy nagłówek). Zobacz zrzut ekranu:
doc insert utworzony zmodyfikowany czas 1

3. kliknij Ok, a sprawdzane informacje zostały wstawione do określonej lokalizacji.

Wskazówka. Jeśli chcesz mieć bezpłatną wersję próbną funkcji Wstaw informacje ze skoroszytu, przejdź do bezpłatnego pobrania Kutools for Excel najpierw, a następnie przejdź do wykonania operacji zgodnie z powyższymi krokami.

strzałka niebieski prawy bąbelek Wstaw informacje ze skoroszytu



Najlepsze narzędzia biurowe

Kutools dla programu Excel rozwiązuje większość problemów i zwiększa produktywność o 80%

  • Ponowne użycie: Szybko włóż złożone wzory, wykresy i wszystko, czego używałeś wcześniej; Szyfruj komórki z hasłem; Utwórz listę mailingową i wysyłaj e-maile ...
  • Pasek Super Formula (łatwo edytować wiele wierszy tekstu i formuły); Układ do czytania (łatwe odczytywanie i edytowanie dużej liczby komórek); Wklej do filtrowanego zakresu...
  • Scal komórki / wiersze / kolumny bez utraty danych; Podziel zawartość komórek; Połącz zduplikowane wiersze / kolumny... Zapobiegaj zduplikowanym komórkom; Porównaj zakresy...
  • Wybierz Duplikat lub Unikalny Wydziwianie; Wybierz puste wiersze (wszystkie komórki są puste); Super Find i Fuzzy Find w wielu zeszytach ćwiczeń; Losowy wybór ...
  • Dokładna kopia Wiele komórek bez zmiany odwołania do formuły; Automatyczne tworzenie odniesień do wielu arkuszy; Wstaw punktory, Pola wyboru i nie tylko ...
  • Wyodrębnij tekst, Dodaj tekst, Usuń według pozycji, Usuń przestrzeń; Tworzenie i drukowanie podsumowań stronicowania; Konwertuj zawartość komórek i komentarze...
  • Super filtr (zapisz i zastosuj schematy filtrów do innych arkuszy); Zaawansowane sortowanie według miesiąca / tygodnia / dnia, częstotliwości i innych; Specjalny filtr pogrubieniem, kursywą ...
  • Połącz skoroszyty i arkusze robocze; Scal tabele na podstawie kluczowych kolumn; Podziel dane na wiele arkuszy; Konwersja wsadowa xls, xlsx i PDF...
  • Ponad 300 zaawansowanych funkcji. Obsługuje Office / Excel 2007-2021 i 365. Obsługuje wszystkie języki. Łatwe wdrażanie w przedsiębiorstwie lub organizacji. Pełne funkcje 30-dniowa bezpłatna wersja próbna. 60-dniowa gwarancja zwrotu pieniędzy.
karta kte 201905

Karta Office wprowadza interfejs z zakładkami do pakietu Office i znacznie ułatwia pracę

  • Włącz edycję i czytanie na kartach w programach Word, Excel, PowerPoint, Publisher, Access, Visio i Project.
  • Otwieraj i twórz wiele dokumentów w nowych kartach tego samego okna, a nie w nowych oknach.
  • Zwiększa produktywność o 50% i redukuje setki kliknięć myszką każdego dnia!
officetab dół
Sortuj komentarze według
Komentarze (21)
Brak ocen. Oceń jako pierwszy!
Ten komentarz został zminimalizowany przez moderatora na stronie
Pomocna informacja.... :-)
Ten komentarz został zminimalizowany przez moderatora na stronie
To było idealne. Dokładnie to, czego szukałem. Dzięki wielkie!!
Ten komentarz został zminimalizowany przez moderatora na stronie
Bardzo dziękujemy za pomoc, to czego potrzebujemy. kody działają poprawnie, ale bez aktualizacji, czyli nie aktualizuj daty modyfikacji po zapisaniu. czy masz na to jakieś rozwiązanie? Próbowałem wiele razy, zapisz, zamknij, a następnie ponownie otwórz, bez aktualizacji daty.
Ten komentarz został zminimalizowany przez moderatora na stronie
Cześć Khalidzie,

Miałem ten sam problem i dodałem do kodu linię "Application.Volatile" i po naciśnięciu F9 zaktualizuje informacje.
Widziałem to w filmie Billa Jelena „Naucz się Excela – „Funkcja dla ostatniego zaoszczędzonego czasu”: Podcast #1725.
@Bill: Dziękuję bardzo za film!

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

Pozdrowienia,
Alex
Ten komentarz został zminimalizowany przez moderatora na stronie
Witam: Zrobiłem to w inny sposób, ale także przez kodowanie. Ponieważ dodałem kod, zapiszę skoroszyt z makrami, a co za tym idzie jako *.XLSM. To jest w porządku, ale wiele miejsc nie pozwala na takie makra. Czy istnieje sposób, aby to (lub zapisać skoroszyt ze zmianą) do normalnego .XLS? Zakładam również, że poprosi kogoś o „Włącz makra”, jeśli ma włączone to ustawienie (jestem konsultantem i w większości miejsc, w których pracuję, włączam makra, gdy ma to zastosowanie, po otwarciu skoroszytu). FYI: Oto jak zrobiłem to w Makro (nie lepiej; po prostu inaczej). Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, _ Cancel As Boolean) Cancel = False With ActiveSheet.PageSetup ' .LeftHeader = "" ' .CenterHeader = "" ' .RightHeader = "Ostatnia aktualizacja" & Format(Now(), "mm /dd/rrrr") .RightHeader = "" .RightFooter = "Ostatnia aktualizacja" & Format(Now(), "mm/dd/rrrr") Zakończ z końcem Sub
Ten komentarz został zminimalizowany przez moderatora na stronie
Ta informacja jest dla mnie bardzo pomocna. dzięki trosce
Ten komentarz został zminimalizowany przez moderatora na stronie
Dzięki tej informacji
Ten komentarz został zminimalizowany przez moderatora na stronie
[cytat]Cześć: Zrobiłem to w inny sposób, ale także przez kodowanie. Ponieważ dodałem kod, zapiszę skoroszyt z makrami, a co za tym idzie jako *.XLSM. To jest w porządku, ale wiele miejsc nie pozwala na takie makra. Czy istnieje sposób, aby to (lub zapisać skoroszyt ze zmianą) do normalnego .XLS? Zakładam również, że poprosi kogoś o „Włącz makra”, jeśli ma włączone to ustawienie (jestem konsultantem i w większości miejsc, w których pracuję, włączam makra, gdy ma to zastosowanie, po otwarciu skoroszytu). FYI: Oto jak zrobiłem to w Makro (nie lepiej; po prostu inaczej). Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, _ Cancel As Boolean) Cancel = False With ActiveSheet.PageSetup ' .LeftHeader = "" ' .CenterHeader = "" ' .RightHeader = "Ostatnia aktualizacja" & Format(Now(), "mm /dd/rrrr") .RightHeader = "" .RightFooter = "Ostatnia aktualizacja" & Format(Now(), "mm/dd/rrrr") Zakończ z końcem SubAutor: Larry S. Peteet[/quote] Cześć Pomyślnie wstawiłem datę i godzinę ostatniej modyfikacji, ale nie aktualizuje się ona po zapisaniu i ponownym otwarciu skoroszytu. Proszę o pomoc tutaj ...... nie wiem o kodowaniu, więc w zasadzie kopiuję wszelkie informacje podane na takich forach Dzięki Swaran
Ten komentarz został zminimalizowany przez moderatora na stronie
Tak, mam ten sam problem - wczoraj działał idealnie, ale dzisiaj nie zmieni się po zapisaniu.
Ten komentarz został zminimalizowany przez moderatora na stronie
Proszę pomóż!!! trzeba zwrócić datę i godzinę ostatniej modyfikacji zamkniętego pliku i zwrócić te informacje w komórce w otwartym pliku
Ten komentarz został zminimalizowany przez moderatora na stronie
Hej, to było niesamowite. Czy można wstawić datę utworzenia i datę ostatniej modyfikacji innego skoroszytu? Chcę utworzyć plik indeksu, który powie mi, kiedy inne dokumenty zostały ostatnio zaktualizowane. Dzięki!!
Ten komentarz został zminimalizowany przez moderatora na stronie
Hiya Love kocham to uwielbiam, ale niestety data pojawia się tylko w USA, aw Australii mamy dd/mm/rr. Zmęczyło mnie zmienianie tego formatu na ten format za pomocą sekcji "Data", ale nie miałem szczęścia. Jakieś pomysły?
Ten komentarz został zminimalizowany przez moderatora na stronie
Julie - w kodzie VBA użyj zamiast tego „dd/mm/rr gg:n”. To ustawi datę we „właściwej” kolejności! :kupa śmiechu:
Ten komentarz został zminimalizowany przez moderatora na stronie
bardzo, bardzo, bardzo, bardzo, bardzo, bardzo, bardzo pomocny dzięki
Ten komentarz został zminimalizowany przez moderatora na stronie
Czy można to zmodyfikować, aby wyświetlić datę utworzenia z inny zamknięte pliki? Chciałbym porównać datę utworzenia pliku na moim pulpicie z plikiem na publicznym serwerze sieciowym. Mógłbym utworzyć formułę, aby użyć twoich funkcji...CreateDate() pliku lokalnego do CreateDate() pliku internetowego...i ostrzegaj mnie o zmianie. Doceniam twoją pomoc. Bruce
Ten komentarz został zminimalizowany przez moderatora na stronie
Dzięki za pomoc, ale miałem też problem z brakiem aktualizacji komórki po zapisie bez konieczności wcześniejszego zamknięcia i ponownego otwarcia skoroszytu. Dodałem następujący kod do skoroszytu, który odświeża się po zdarzeniu zapisu: Private Sub Workbook_AfterSave(ByVal Success As Boolean) If Success then ActiveSheet.Calculate End If End Sub To załatwiło sprawę. Mam nadzieję, że to pomoże.
Ten komentarz został zminimalizowany przez moderatora na stronie
Widzę, że w kodzie odwołuje się do „czasu ostatniego zapisania” tylko RAZ. Używam programu Excel 2010. Kiedy umieszczam "Czas ostatniego zapisania" w funkcji, nawet z Application.Volatile(true), wartość nigdy nie jest aktualizowana. Potem zauważyłem, że wartość zwrócona przez „Czas ostatniego zapisu” nie pojawia się na stronie „Właściwości” programu Excel 2010 ANI na żadnej z zakładek w oknie dialogowym „Właściwości zaawansowane”. Czy "Last Save Time" może być jakimś reliktem?
Ten komentarz został zminimalizowany przez moderatora na stronie
Dowiedziałem się, dlaczego „Last Save Time” nie działa dla mnie. Umieściłem swoją funkcję w moim pliku .XLA, a „ThisWorkbook” odnosił się do samego pliku .XLA. Dlatego musiałem pobrać Application.ActiveWorkbook (prawdopodobnie lokalizację wywołania funkcji), kończąc na: Function DocumentProperty(PropertyName As String) ' 'Możesz odwoływać się do właściwości dokumentu za pomocą wartości indeksu lub nazwy. Poniższa lista przedstawia dostępne wbudowane nazwy właściwości dokumentu: 'Tytuł Temat Autor 'Szablon komentarzy słów kluczowych 'Numer poprawki ostatniego autora Nazwa aplikacji 'Data ostatniego wydruku Data utworzenia Czas ostatniego zapisu 'Całkowity czas edycji Liczba stron Liczba słów 'Liczba Znaki Kategoria zabezpieczeń „Menedżer formatu Firma” Liczba bajtów Liczba wierszy Liczba akapitów Liczba slajdów Liczba notatek Liczba ukrytych slajdów Liczba klipów multimedialnych Podstawa hiperłącza Liczba znaków (ze spacjami) Wywołanie Aplikacja. ActiveUserWorkbook W przypadku błędu Wznów Dalej Ustaw ActiveUserWorkbook = Application.ActiveWorkbook If Err.Number 0 Then DocumentProperty = "!!! Błąd podczas pobierania Application.ActiveWorkbook: " & Err.Description Zakończ funkcję End If DocumentProperty = ActiveUserWorkbook.BuiltinDocumentProperties(PropertyName) If Err.Number 0 Następnie DocumentProperty = "!!! Nieznana nazwa właściwości !!!" Zakończ funkcję Zakończ, jeśli Zakończ funkcję
Ten komentarz został zminimalizowany przez moderatora na stronie
Cześć zespół, potrzebuję twojej pomocy. Mam plik Excela, chcę znaleźć datę modyfikacji konkretnej komórki. Proszę o pomoc w kodowaniu tutaj, jeśli to możliwe. Z góry dziękuję.
Ten komentarz został zminimalizowany przez moderatora na stronie
Chcę automatycznie utworzyć przestrzeń między każdym klientem w programie Excel, jak to zrobić?
Ten komentarz został zminimalizowany przez moderatora na stronie
KOCHAM CIEBIE!!!! TKSSSSSSS
Nie ma tu jeszcze żadnych komentarzy
Zostaw swój komentarz
Publikowanie jako gość
×
Oceń ten post:
0   Postacie
Sugerowane lokalizacje

Bądż na bieżąco

Prawa autorskie © 2009 - www.extendoffice.com. | Wszelkie prawa zastrzeżone. Zasilany przez ExtendOffice, | Mapa strony
Microsoft i logo Office są znakami towarowymi lub zastrzeżonymi znakami towarowymi Microsoft Corporation w Stanach Zjednoczonych i / lub innych krajach.
Chronione przez Sectigo SSL