Menjumlahkan Nilai Secara Otomatis di Setiap Baris Ke-n

Tujuan dari tutorial ini adalah untuk menjumlahkan data secara otomatis di setiap baris ke-n yang biasanya hasil penjumlahan ini dibuat untuk melihat sub total dari kumpulan suatu nilai. Umumnya, model penjumlahan seperti ini biasanya sering kita temui dalam penulisan sebuah laporan. Meskipun demikian, tidak menutup kemungkinan tutorial ini bisa diterapkan untuk keperluan lainnya.

Untuk lebih memahami maksud dan tujuan dari tutorial yang akan kita buat, perhatian hasil berikut:


Dari tampilan di atas bisa dilihat bahwa penjumlahan akan secara otomatis dilakukan di setiap baris ke 5 dan kelipatannya, yang mana hasilnya di diletakkan di baris yang dimaksud yang terdapat di kolom sebelahnya.

Cara di atas dapat dilakukan dengan menggunakan bantuan Macro VBA seperti berikut:

1. Buat sebuah module baru
2. Kemudian tulis baris kode berikut ke dalam module yang baru saja dibuat
   Application.ScreenUpdating = False
Dim x As Long
Dim Lastrow As Long
Lastrow = Cells(Rows.Count, "A").End(xlUp).Row
For x = 5 To Lastrow Step 5
Range("B" & x).Value = Application.Sum(Range("A" & x & ":A" & x - 4))
Next
Range("B" & Lastrow).Value = Application.Sum(Range("A1:A" & Lastrow)) - Application.Sum(Range("B1:B" & Lastrow))
Application.ScreenUpdating = True

   Baris kode di atas hanya akan menjumlahkan nilai jika kumpulan data berjumlah 5 dan kelipatannya, serta sisa dari baris yang belum terjumlahkan.
   
   Untuk memodifikasi penjumlah nilai ke-n dari kode VBA di atas, perhatikan baris kode berikut
   For x = 5 To Lastrow Step 5Angka 5 merupakan sebuah nilai yang berfungsi untuk melihat baris ke 5 dan kelipatannya.
   
   sementara pada baris kode :
   Range("B" & x).Value = Application.Sum(Range("A" & x & ":A" & x - 4))Terdapat angka 4 (atau lebih tepatnya -4) yang mempunyai arti ia akan membaca baris ke x - 4
   di mana x adalah baris ke 5 dan kelipatannya di kurangi dengan 4.
   Jadi hasil akhir dari baris kode ini akan membaca range seperti berikut :
   
   • penjumlahan pertama : A5:A1
   • penjumlahan kedua : A10:A6
   • penjumlahan ketiga : A15:A11
   Sementara untuk menjumlahkan sisa dari baris akhir, terdapat di dalam kode:
   Range("B" & Lastrow).Value = Application.Sum(Range("A1:A" & Lastrow)) - Application.Sum(Range("B1:B" & Lastrow))

Mudah-mudahan penjelasan singkat ini bisa di pahami.
Selamat Mencoba