• Menjumlahkan Nilai Secara Otomatis di Setiap Baris Ke-n

    auto sum vba excel 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:
    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 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))
    Mudah-mudahan penjelasan singkat ini bisa di pahami.
    Selamat Mencoba

    Artikel Terkait

  • Still haven't found what are you looking for

    We have provided a complete list of articles on this site to make it easier for you and giving the best solution for your excel issues

    VISIT LINK
    loading...
    DMCA.com Protection Status

    excelive.com
    is a blogger resources site who provides best excel tutorial based on daily needs. The main mission of excelive is to share our little experience in excel to deliver best time killer for your excel issues.
    T.O.S
    Term of service

    Read More
    Download Area
    to complete all excel lessons, we have provided a download link for you Find Here
    Copyright © 2016 - excelive.com. Some rights reserved.
    Menyalin sebagian atau keseluruhan materi situs hanya diperbolehkan dengan tautan balik terbuka ke sumbernya.
    equipped with by blogger