Bagaimana cara merekam tanggal dan waktu secara otomatis saat sel berubah?
Mudah bagi kita untuk memasukkan tanggal dan waktu statis secara manual atau memasukkan tanggal dinamis yang berubah dengan waktu sistem dengan rumus. Jika Anda ingin merekam tanggal dan waktu secara otomatis saat Anda mengubah atau memasukkan nilai, masalah ini mungkin agak berbeda untuk ditangani. Namun, dalam artikel ini, Anda dapat menyelesaikan tugas ini dengan langkah-langkah berikut.
Catat tanggal dan waktu secara otomatis saat sel berubah dengan kode VBA
Catat tanggal dan waktu secara otomatis saat sel berubah dengan kode VBA
Misalnya, saya memiliki berbagai nilai, dan sekarang, ketika saya mengubah atau mengetik nilai baru di Kolom B, saya ingin di sana secara otomatis akan mencatat tanggal dan waktu saat ini di Kolom C seperti gambar berikut yang ditampilkan:
Anda dapat menyelesaikan tugas ini dengan mengikuti kode VBA. Harap lakukan seperti ini:
1. Tahan ALT + F11 kunci untuk membuka Jendela Microsoft Visual Basic for Applications.
2. Kemudian pilih lembar kerja bekas Anda dari kiri Penjelajah Proyek, klik dua kali untuk membuka file Modul, lalu salin dan tempel kode VBA berikut ke dalam modul kosong:
Kode VBA: Catat tanggal dan waktu secara otomatis saat sel berubah
Private Sub Worksheet_Change(ByVal Target As Range)
'Update 20140722
Dim WorkRng As Range
Dim Rng As Range
Dim xOffsetColumn As Integer
Set WorkRng = Intersect(Application.ActiveSheet.Range("B:B"), Target)
xOffsetColumn = 1
If Not WorkRng Is Nothing Then
Application.EnableEvents = False
For Each Rng In WorkRng
If Not VBA.IsEmpty(Rng.Value) Then
Rng.Offset(0, xOffsetColumn).Value = Now
Rng.Offset(0, xOffsetColumn).NumberFormat = "dd-mm-yyyy, hh:mm:ss"
Else
Rng.Offset(0, xOffsetColumn).ClearContents
End If
Next
Application.EnableEvents = True
End If
End Sub
3. Kemudian simpan dan tutup kode ini untuk kembali ke lembar kerja, sekarang ketika Anda mengubah nilai sel atau mengetik data baru di Kolom B, tanggal dan waktu akan direkam secara otomatis di Kolom C.
Catatan:
1. Pada kode di atas, Anda dapat mengubah "B: B"Ke kolom lain yang ingin Anda ubah nilai selnya di skrip ini: Set WorkRng = Intersect (Application.ActiveSheet.Range ("B: B"), Target).
2. Dengan ini xOffsetKolom = 1 script, Anda dapat memasukkan dan memperbarui tanggal dan waktu ke kolom pertama di sebelah kolom nilai Anda yang berubah, Anda dapat mengubah angka 1 ke angka lain, seperti 2,3,4,5 ... itu berarti tanggal akan dimasukkan kolom kedua, ketiga, keempat atau kelima di samping kolom nilai yang Anda ubah.
3. Jika Anda menghapus nilai di kolom yang diubah, tanggal dan waktu juga akan dihapus.
Alat Produktivitas Kantor Terbaik
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...
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!