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:
Menjumlahkan setiap baris ke-n

download

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:

Buat sebuah module baru
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 5
```
Angka 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))
```