Loncat ke daftar isi utama

Bagaimana cara memantau perubahan sel di Excel?

Bagaimana Anda bisa memantau sel lembar kerja jika datanya diubah di Excel? Ini dapat membantu Anda mengidentifikasi sel yang berubah secepat mungkin. Artikel ini, saya akan berbicara tentang beberapa metode menarik untuk menangani tugas ini di Excel.

Pantau perubahan sel di Excel dengan fungsi Track Changes

Pantau perubahan sel di Excel dengan kode VBA

panah gelembung kanan biru Pantau perubahan sel di Excel dengan fungsi Track Changes

Excel memiliki file Lacak Perubahan fitur, ini dapat membantu Anda menandai sel yang diubah, lakukan hal berikut:

1. Klik ULASAN > Lacak Perubahan > Sorot Perubahan, lihat tangkapan layar:

perubahan monitor doc 1

2. di Sorot Perubahan kotak dialog, lakukan operasi berikut:

(1.) Periksa Lacak perubahan saat mengedit. Ini juga membagikan buku kerja Anda.

(2.) Di bawah Sorot perubahan mana bagian, tentukan item Kapan, Siapa, dan Di mana yang Anda butuhkan.

(3.) Akhirnya, periksa Sorot perubahan di layar .

perubahan monitor doc 2

3. Setelah menyelesaikan pengaturan, klik OK tombol, sekarang, ketika Anda mengubah nilai sel apa pun di sel yang ditentukan, perbatasan dengan ikon segitiga ada di sekitar sel yang diubah, lihat tangkapan layar:

perubahan monitor doc 3

Note: Dengan metode ini, buku kerja Anda akan menjadi buku kerja bersama.

panah gelembung kanan biru Pantau perubahan sel di Excel dengan kode VBA

Kode VBA berikut juga dapat membantu Anda memantau nilai sel saat diubah, lakukan seperti ini:

1. Klik kanan tab lembar yang ingin Anda pantau perubahan selnya, dan pilih Lihat kode dari menu konteks, di buka Microsoft Visual Basic untuk Aplikasi jendela, silakan salin dan tempel kode VBA berikut ke dalam Modul:

Kode VBA: Pantau perubahan sel di lembar kerja Excel:

Private Sub Worksheet_Change(ByVal Target As Range)
'Updateby Extendoffice 20160728
    Dim xrng As Range
    Set xrng = Range("A1:E7")
    If Not Application.Intersect(xrng, Range(Target.Address)) _
           Is Nothing Then
        MsgBox "Cell " & Target.Address & " has changed.", vbInformation, "Kutools for Excel"
    End If
End Sub

perubahan monitor doc 4

Catatan: Pada kode di atas, A1: E7 adalah rentang data yang ingin Anda pantau jika sel berubah, Anda dapat mengubahnya sesuai kebutuhan.

2. Kemudian simpan dan tutup jendela kode ini, dan sekarang, ketika Anda mengubah nilai sel dalam kisaran yang ditentukan, sebuah kotak pesan akan muncul untuk mengingatkan Anda, lihat tangkapan layar:

perubahan monitor doc 5

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 Teratas:  12 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 (7)
No ratings yet. Be the first to rate!
Hasan Ali
Hasan Ali
This comment was minimized by the moderator on the site
Merhaba. WhatsApp 眉zerinden bana gelen bir excell dosyas谋 var. Bunu bilgisayar 眉st眉nden a莽谋p. Bunda ki hareketleri ve de臒i艧iklikleri g枚rme 艧ans谋m var m谋 ?
Reply
0
0
John Doe
John Doe
This comment was minimized by the moderator on the site
I got "syntax error" with "Dim xrng As Range" when I inserted the below code in my worksheet_change event :-(
VBA code: Monitor cell changes in Excel worksheet:

Private Sub Worksheet_Change(ByVal Target As Range)
'Updateby Extendoffice 20160728
    Dim xrng As Range
    Set xrng = Range("A1:E7")
    If Not Application.Intersect(xrng, Range(Target.Address)) _
           Is Nothing Then
        MsgBox "Cell " & Target.Address & " has changed.", vbInformation, "Kutools for Excel"
    End If
End Sub
Reply
0
0
yogy
yogy
This comment was minimized by the moderator on the site
if i have large amount of data in excel file, and i just want to know status in one different colum that if any cell gets change its value then it should indicate in from of that cell's row , tha status shoild be changed, how can i do this
Reply
0
0
ram
ram
This comment was minimized by the moderator on the site
hello how can we track by date and time in the change in the cell
Reply
0
0
chandisciple
chandisciple
This comment was minimized by the moderator on the site
Woooow this is nowhere else except here! Amazing!

Is there any way to insert a row right below the row of the cell where the cell was updated?

To make it more challenging, if I have list validation enabled or formula enabled can that as well be copied to the new row?
Reply
Report
0
0
skyyang
skyyang     chandisciple
This comment was minimized by the moderator on the site
Hi, amar,
To insert a row below the changed value, the following VBA code can help you, please try it.

Private Sub Worksheet_Change(ByVal Target As Range)
Dim xRg As Range
Dim xStrPre, xStr As String
On Error Resume Next
Set xRg = Range("A1:E7")
If Intersect(xRg, Target) Is Nothing Then Exit Sub
Application.EnableEvents = False
xStr = Target.Value
Application.Undo
xStrPre = Target.Value
Target.Offset(1, 0).EntireRow.Insert xlShiftDown
Target.Offset(1, 0).Value = xStrPre
Target.Value = xStr
Application.EnableEvents = True
End Sub
Reply
Report
0
0
chelsea
chelsea     skyyang
This comment was minimized by the moderator on the site
Hello, I have it copying old number to new line - how do I have the new line go to a new tab instead?
Reply
0
0
There are no comments posted here yet
Please leave your comments in English
Guest
Posting as Guest
脳
Rate this post:
Reset
0   Characters
Suggested Locations