Bagaimana cara merekam nilai yang berubah dalam sel di Excel?
Bagaimana cara merekam setiap nilai yang berubah untuk sel yang sering berubah di Excel? Misalnya, nilai asli di sel C2 adalah 100, ketika mengubah angka 100 menjadi 200, nilai asli 100 akan ditampilkan di sel D2 secara otomatis untuk direkam. Silahkan ganti 200 menjadi 300, nomor 200 akan dimasukkan ke sel D3, perubahan 300 menjadi 400 akan menampilkan 300 ke D4 dan seterusnya. Metode dalam artikel ini dapat membantu Anda mencapainya.
Catat nilai yang berubah dalam sel dengan kode VBA
Catat nilai yang berubah dalam sel dengan kode VBA
Kode VBA di bawah ini dapat membantu Anda merekam setiap nilai yang berubah dalam sel di Excel. Silakan lakukan sebagai berikut.
1. Dalam lembar kerja berisi sel yang ingin Anda rekam mengubah nilai, klik kanan tab lembar dan kemudian klik Lihat kode dari menu konteks. Lihat tangkapan layar:
2. Kemudian Microsoft Visual Basic untuk Aplikasi Jendela terbuka, salin kode VBA di bawah ini ke jendela Kode.
Kode VBA: merekam nilai perubahan dalam sel
Dim xVal As String
'Update by Extendoffice 2018/8/22
Private Sub Worksheet_Change(ByVal Target As Range)
Static xCount As Integer
Application.EnableEvents = False
If Target.Address = Range("C2").Address Then
Range("D2").Offset(xCount, 0).Value = xVal
xCount = xCount + 1
Else
If xVal <> Range("C2").Value Then
Range("D2").Offset(xCount, 0).Value = xVal
xCount = xCount + 1
End If
End If
Application.EnableEvents = True
End Sub
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
xVal = Range("C2").Value
End Sub
Catatan: Di dalam kode, C2 adalah sel yang ingin Anda rekam semua nilainya yang berubah. D2 adalah sel Anda akan mengisi nilai perubahan pertama C2.
3. tekan lain + Q kunci untuk menutup Microsoft Visual Basic untuk Aplikasi jendela.
Mulai sekarang, setiap kali Anda mengubah nilai di sel C2, nilai yang berubah sebelumnya akan direkam di D2 dan sel di bawah D2.
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!