Loncat ke daftar isi utama

Dapatkan dan masukkan waktu yang dibuat dan waktu modifikasi terakhir dalam sel

Artikel ini akan membahas cara mendapatkan waktu yang dibuat dan waktu modifikasi terakhir dari informasi buku kerja saat ini, dan menyisipkan waktu yang dibuat dan waktu terakhir yang diubah dari informasi buku kerja saat ini dalam sel di Excel.

Dapatkan waktu yang dibuat dan waktu modifikasi terakhir di Excel dengan perintah Info

Dapatkan waktu yang dibuat dan waktu modifikasi terakhir di Excel dengan fungsi Properti Tingkat Lanjut

Masukkan waktu yang dibuat dan waktu modifikasi terakhir dalam sel di Excel dengan kode VBA

Masukkan waktu yang dibuat dan waktu modifikasi terakhir di sel / header / footer dengan Kutools for Excel ide bagus3


panah gelembung kanan biru Dapatkan waktu yang dibuat dan waktu modifikasi terakhir di Excel dengan perintah Info

Kami dapat mengetahui waktu pembuatan yang tepat dan waktu modifikasi terakhir dari buku kerja saat ini di tampilan belakang panggung Microsoft Excel 2010/2013.

klik File > Info, dan di sisi kanan tampilan belakang panggung itu menampilkan Tanggal Terkait informasi. Di bawah Tanggal Terkait judul, ini mencantumkan waktu terakhir diubah, waktu dibuat, dan waktu cetak terakhir. Lihat tangkapan layar berikut:

-2

 

Catatan: Cara ini hanya tersedia di Microsoft Excel 2010/2013. Ini tidak valid di Excel 2007.


panah gelembung kanan biruDapatkan waktu yang dibuat dan waktu modifikasi terakhir di Excel dengan fungsi Properti Tingkat Lanjut

Sebenarnya, kita bisa mendapatkan waktu pembuatan dan waktu modifikasi terakhir dari buku kerja saat ini di kotak dialog Properti Dokumen.
Langkah 1: Buka Properti Lanjutan kotak dialog:

Di Excel 2007, klik Office tombol> Mempersiapkan > Properties, Dan Properti Dokumen bar akan ditampilkan di bawah toolbar, klik Properti Dokumen > Properti Lanjutan, lihat tangkapan layar:

doc-masukkan-modifikasi-waktu-3-3
-1
doc-masukkan-modifikasi-waktu-4-4

 

Di Excel 2010/2013, klik File > Info > Properties > Properti Lanjutan.

doc-masukkan-modifikasi-waktu-4-4

Langkah 2: Dalam Properti Lanjutan kotak dialog, Anda akan melihat waktu yang dibuat dan waktu modifikasi terakhir di bawah tab Statistik. Lihat screenshot berikut:

doc-masukkan-modifikasi-waktu-4-4


panah gelembung kanan biru Masukkan waktu yang dibuat dan waktu modifikasi terakhir dalam sel di Excel dengan kode VBA

Makro VBA berikut akan membantu Anda memasukkan waktu yang dibuat dan waktu modifikasi terakhir dari informasi buku kerja saat ini dalam sel secara langsung.

Masukkan waktu yang dibuat dan waktu modifikasi terakhir di Excel

Langkah 1: Tahan ALT + F11 kunci, dan itu membuka jendela Microsoft Visual Basic for Applications.

Langkah 2: Klik Menyisipkan >> Modul, dan tempelkan makro berikut di Jendela Modul.

Kode VBA: Masukkan waktu yang dibuat dan waktu modifikasi terakhir di 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

Langkah 3:Tekan F5 kunci untuk menjalankan makro ini. Dan kemudian tanggal dibuat dan tanggal terakhir diubah akan dimasukkan ke dalam sel A1 dan sel A2 secara terpisah.

Note: Anda dapat memodifikasi sel tujuan di VB sesuai dengan kebutuhan Anda.

Masukkan waktu terakhir buku kerja yang dimodifikasi di Excel

Langkah 1: Tahan ALT + F11 kunci, dan itu membuka jendela Microsoft Visual Basic for Applications.

Langkah 2: Klik Menyisipkan >> Modul, dan tempelkan makro berikut di Jendela Modul.

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

Langkah 3: Lalu simpan dan tutup kode ini, dan kembali ke lembar kerja, di sel kosong, masukkan rumus = ModDate (), dan tekan tombol Enter kunci. Kemudian itu memasukkan waktu modifikasi terakhir ke dalam sel.

-2

Masukkan waktu pembuatan buku kerja di Excel

Langkah 1: Tahan ALT + F11 kunci, dan itu membuka jendela Microsoft Visual Basic for Applications.

Langkah 2: Klik Menyisipkan >> Modul, dan tempelkan makro berikut di Jendela Modul.

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

Langkah 3: Simpan dan tutup kode ini, kembali ke lembar kerja, di sel kosong, masukkan rumus = CreateDate (), dan tekan tombol Enter key. dan tanggal yang dibuat akan dimasukkan ke dalam sel seperti gambar berikut yang ditampilkan:

-2

Catatan: Jika sel Anda bukan format tanggal, itu mungkin menampilkan angka aneh. Format saja sel ini sebagai Tanggal format, itu akan ditampilkan sebagai tanggal normal.


panah gelembung kanan biru Masukkan waktu yang dibuat dan waktu modifikasi terakhir di sel / header / footer dengan Kutools for Excel

Izinkan saya memperkenalkan Anda alat yang berguna--Kutools untuk Excel mana yang mencakup lebih dari 300 fungsi berguna yang dapat meningkatkan efisiensi kerja Anda? Dengan itu Masukkan Informasi Buku Kerja fungsi, Anda dapat dengan cepat memasukkan jalur buku kerja, nama buku kerja / lembar kerja, nama pengguna atau waktu yang dibuat dan waktu terakhir diubah ke dalam sel atau header atau footer.

Kutools untuk Excel, dengan lebih dari 300 fungsi praktis, membuat pekerjaan Anda lebih mudah. 

Setelah pemasangan gratis Kutools for Excel, lakukan seperti di bawah ini:

1. klik Kutools Ditambah > Buku catatan > Masukkan Informasi Buku Kerja. Lihat tangkapan layar:
doc terakhir mengubah name2

2. Kemudian di Masukkan Informasi Buku Kerja dialog, periksa informasi yang ingin Anda masukkan dari bagian Informasi, lalu pergi untuk menentukan lokasi yang ingin Anda sisipkan, Anda dapat memilih sel, footer (footer kiri, footer tengah, footer kanan) atau header (header kiri, header tengah, header kanan). Lihat tangkapan layar:
doc memasukkan waktu yang diubah dibuat 1

3. klik Ok, dan informasi yang Anda periksa telah dimasukkan ke lokasi yang Anda tentukan.

Ketik. Jika Anda ingin mencoba fungsi Sisipkan Informasi Buku Kerja, silakan buka unduh gratis Kutools for Excel pertama, lalu lanjutkan untuk menerapkan operasi sesuai langkah di atas.

panah gelembung kanan biru Masukkan Informasi Buku Kerja


Alat Produktivitas Kantor Terbaik

馃 Kutools AI Ajudan: Merevolusi analisis data berdasarkan: Eksekusi Cerdas   |  Hasilkan Kode  |  Buat Rumus Khusus  |  Analisis Data dan Hasilkan Grafik  |  Aktifkan Fungsi Kutools...
Fitur Populer: Temukan, Sorot, atau Identifikasi Duplikat   |  Hapus Baris Kosong   |  Gabungkan Kolom atau Sel tanpa Kehilangan Data   |   Putaran tanpa Formula ...
Pencarian Super: VLookup Beberapa Kriteria    VLookup Nilai Berganda  |   VLookup di Beberapa Lembar   |   Pencarian Fuzzy ....
Daftar Drop-down Lanjutan: Buat Daftar Drop Down dengan Cepat   |  Daftar Drop Down yang Bergantung   |  Multi-pilih Drop Down List ....
Manajer Kolom: Tambahkan Jumlah Kolom Tertentu  |  Pindahkan Kolom  |  Alihkan Status Visibilitas Kolom Tersembunyi  |  Bandingkan Rentang & Kolom ...
Fitur Unggulan: Fokus Kisi   |  Tampilan Desain   |   Bar Formula Besar    Manajer Buku Kerja & Lembar   |  Perpustakaan Sumberdaya (Teks otomatis)   |  Pemetik tanggal   |  Gabungkan Lembar Kerja   |  Enkripsi/Dekripsi Sel    Kirim Email berdasarkan Daftar   |  Filter Super   |   Filter Khusus (filter tebal/miring/coret...) ...
15 Perangkat Teratas12 Teks Tools (Tambahkan Teks, Hapus Karakter, ...)   |   50 + Grafik jenis (Gantt Chart, ...)   |   40+ Praktis Rumus (Hitung usia berdasarkan ulang tahun, ...)   |   19 Insersi Tools (Masukkan Kode QR, Sisipkan Gambar dari Jalur, ...)   |   12 Konversi Tools (Angka ke Kata, Konversi Mata Uang, ...)   |   7 Gabungkan & Pisahkan Tools (Lanjutan Gabungkan Baris, Pisahkan Sel, ...)   |   ... dan banyak lagi

Tingkatkan Keterampilan Excel Anda dengan Kutools for Excel, dan Rasakan Efisiensi yang Belum Pernah Ada Sebelumnya. Kutools for Excel Menawarkan Lebih dari 300 Fitur Lanjutan untuk Meningkatkan Produktivitas dan Menghemat Waktu.  Klik Di Sini untuk Mendapatkan Fitur yang Paling Anda Butuhkan...

Deskripsi Produk


Tab Office Membawa antarmuka Tab ke Office, dan Membuat Pekerjaan Anda Jauh Lebih Mudah

  • Aktifkan pengeditan dan pembacaan tab di Word, Excel, PowerPoint, Publisher, Access, Visio, dan Project.
  • Buka dan buat banyak dokumen di tab baru di jendela yang sama, bukan di jendela baru.
  • Meningkatkan produktivitas Anda sebesar 50%, dan mengurangi ratusan klik mouse untuk Anda setiap hari!
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