Cukup sering, situasi muncul ketika kita perlu menjumlahkan (mengumpulkan) beberapa nilai yang dimasukkan secara berurutan ke dalam satu sel:
Itu. jika, misalnya, Anda memasukkan angka 1 di sel A5, maka angka 1 akan muncul di B15. Jika Anda kemudian memasukkan angka 1 di A7, maka 1 akan muncul di sel B22, dan seterusnya. Secara umum, apa yang oleh akuntan (dan bukan hanya mereka) disebut sebagai total kumulatif.
Anda dapat menerapkan akumulator sel penyimpanan seperti itu menggunakan makro sederhana. Klik kanan pada tab lembar tempat sel A1 dan B1 berada dan pilih dari menu konteks Sumber teks (Kode sumber). Di jendela editor Visual Basic yang terbuka, salin dan tempel kode makro sederhana:
Private Sub Worksheet_Change(ByVal Target As Excel.Range) Dengan Target If .Address(False, False) = "A1" Kemudian If IsNumeric(.Value) Then Application.EnableEvents = False Range("A2").Value = Range(" A2").Value + .Value Application.EnableEvents = True End If End If End If End With End Sub Alamat sel A1 dan A2, tentu saja, dapat diganti dengan alamat Anda sendiri.
Jika Anda perlu melacak entri data dan meringkas bukan sel individual, tetapi seluruh rentang, maka makro harus sedikit diubah:
Private Sub Worksheet_Change(ByVal Target As Excel.Range) If Not Intersect(Target, Range("A1:A10")) Tidak Ada Lalu If IsNumeric(Target.Value) Kemudian Application.EnableEvents = False Target.Offset(0, 1) .Value = Target.Offset(0, 1).Value + Target.Value Application.EnableEvents = True End If End If End Sub Diasumsikan bahwa data dimasukkan dalam sel rentang A1:A10, dan angka yang dimasukkan dirangkum dalam kolom yang berdekatan di sebelah kanan. Jika dalam kasus Anda tidak berdekatan, maka tingkatkan pergeseran ke kanan di operator Offset – ganti 1 dengan angka yang lebih besar.
- Apa itu makro, di mana memasukkan kode makro di VBA, bagaimana cara menggunakannya?