Bagaimana cara memasukkan cap waktu saat ini ketika data di sel lain berubah di Excel?
Misalkan Anda menerima lembar kerja yang mengharuskan Anda untuk mengubah data di kolom tertentu. Dan setelah memodifikasi lembar kerja, Anda perlu memasukkan stempel waktu yang dimodifikasi agar orang lain tahu sel mana yang telah diubah. Bagaimana cara menghadapinya? Artikel ini akan menunjukkan kepada Anda metode memasukkan cap waktu saat ini ketika data di sel lain berubah di Excel seperti gambar di bawah ini.
Masukkan stempel waktu saat ini ketika data di sel lain berubah dengan kode VBA
Masukkan stempel waktu saat ini ketika data di sel lain berubah dengan kode VBA
Seperti gambar di bawah ini yang ditampilkan, Anda perlu mengisi cap waktu di kolom E jika sel yang sesuai di kolom C diubah. Silakan lakukan sebagai berikut.
1. Pada lembar kerja Anda perlu memodifikasi dan menandai dengan cap waktu, klik kanan tab lembar dan kemudian klik Lihat kode dari menu klik kanan.
2. Kemudian salin dan tempel kode VBA di bawah ini ke file Kode jendela dari Microsoft Visual Basic untuk Aplikasi jendela. Lihat tangkapan layar:
Kode VBA: Masukkan stempel waktu saat ini ketika data di sel lain berubah
Private Sub Worksheet_Change(ByVal Target As Range)
'Updated by Extendoffice 20180830
Dim xCellColumn As Integer
Dim xTimeColumn As Integer
Dim xRow, xCol As Integer
Dim xDPRg, xRg As Range
xCellColumn = 3
xTimeColumn = 5
xRow = Target.Row
xCol = Target.Column
If Target.Text <> "" Then
If xCol = xCellColumn Then
Cells(xRow, xTimeColumn) = Now()
Else
On Error Resume Next
Set xDPRg = Target.Dependents
For Each xRg In xDPRg
If xRg.Column = xCellColumn Then
Cells(xRg.Row, xTimeColumn) = Now()
End If
Next
End If
End If
End Sub
Note: Dalam kode, angka 3 berarti Anda akan mengubah data di kolom C, dan 5 menunjukkan stempel waktu akan diisi ke kolom E. Silakan ubah sesuai kebutuhan Anda.
3. tekan lain + Q kunci untuk menutup Microsoft Visual Basic untuk Aplikasi jendela.
Mulai sekarang, saat mengubah data di kolom C, stempel waktu akan diisi ke sel yang sesuai di kolom E seperti gambar di bawah ini.
Ketik. Pemetik tanggal. itu Masukkan Tanggal kegunaan Kutools untuk Excel membantu Anda dengan cepat memasukkan tanggal dengan format tanggal tertentu ke dalam sel yang dipilih.
Unduh dan coba sekarang! (Jejak gratis 30 hari)
Terkait artikel:
- Bagaimana cara memasukkan atau menampilkan cap waktu yang terakhir disimpan pada lembar kerja di Excel?
- Bagaimana cara memasukkan cap waktu ke dalam sel tertentu saat makro dijalankan di Excel?
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!