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

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
Range("B" & Lastrow).Value = Application.Sum(Range("A1:A" & Lastrow)) - Application.Sum(Range("B1:B" & Lastrow))
Selamat Mencoba
Terimakasih sudah membaca
Tutorial: Menjumlahkan Nilai Secara Otomatis di Setiap Baris Ke-n
Label: Macro VBA - Author: excelive
Tutorial: Menjumlahkan Nilai Secara Otomatis di Setiap Baris Ke-n
Label: Macro VBA - Author: excelive
Masih mau belajar lagi !
Yuk, klik tautan berikut ini :