001-234-567-8910

5th Avenue Madson, NY758, USA

Get Update on our recent Gadgets & Tabs

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

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

No comments:
Write comments
Hallo, mau belajar excel. Di sini tempatnya. -
Tutorial Microsoft Excel

Join excelive newsletter now...