Fungsi Excel Sum Berdasarkan Warna

on

Fungsi Excel VBA untuk menjumlahkan nilai cell berdasarkan warna cell
Sum dan SumIf merupakan fungsi yang sering digunakan di dalam fungsi excel. Fungsi sum digunakan untuk menjumlahkan nilai cell secara otomatis. Sedangkan fungsi sumif adalah penggabungan fungsi Sum dan fungsi If dan digunakan untuk menjumlahkan nilai cell dengan kondisi tertentu. Kedua fungsi ini telah tersedia dalam microsoft excel dan bisa langsung kita gunakan. Untuk lebih jelas lagi kita bisa lihat pada gambar dibawah ini.
Fungsi Excel Sum dan Sumif
Fungsi Excel Sum
Fungsi Excel Sum dan Sumif
Fungsi Excel SumIf
Untuk lebih jauh mengenai fungsi Excel Sum dan Sumif, tutorial excel pernah membahasnya di artikel Menggunakan Fungsi Sumif dan Sumifs. Pada postingan kali ini kita akan membuat sebuah fungsi excel yang akan menjumlahkan nilai cell berdasarkan warna background cell tersebut. Hampir sama dengan penggunaan fungsi sumif atau sumifs, tapi kali ini kita akan membuat fungsi excel tersendiri dengan menggunakan VBA excel macro.

Fungsi Excel Menjumlahkan Berdasarkan Warna Cell

Pada bagian ini kita akan lebih banyak membahas macro excel dan VBA. Untuk anda yang belum memahami cara menggunakan macro excel dapat membaca tutorial Memulai Macro Excel. Tahap ini kita akan membuat sebuah fungsi tersendiri yang akan menghitung nilai cell berdasarkan warna cell tersebut. Untuk memudahkan pemahaman ikuti tahap-tahap berikut ini :
  1. Buat lah satu tabel seperti tabel seperti kasus di atas (tabel Fungsi Tabel Sumif)
  2. Pilih menu Developer dan pilih icon Visual Basic pada toolbar kemudian Visual Basic Editor akan tampil.
  3. Tambahkan module baru dengan mengklik menu Insert lalu pilih Module. Seperti gambar di bawah ini
    Membuat Fungsi menghitung umur dengan macro excel
    menambahkan module di Visual Basic Editor
    .
  4. Klik module1 lalu ketiklah kode Visual Basic dibawah ini.
    Function SumByColor(CellColor As Range, rRange As Range)
Dim cSum As Long
Dim ColIndex As Integer
ColIndex = CellColor.Interior.ColorIndex
For Each cl In rRange
    If cl.Interior.ColorIndex = ColIndex Then
        cSum = WorksheetFunction.Sum(cl, cSum)
    End If
Next cl
SumByColor = cSum
End Function
  5. Untuk lebih jelas lihat gambar di bawah ini
    Fungsi Excel VBA
    Penulisan Kode Visual Basic
  6. Simpan module lalu buka kembali workbook yang telah berisi tabel contoh kasus tadi kemudian ketik nama fungsi  yang telah kita buat beserta parameternya. Lihat gambar di bawah ini.
    Fungsi Excel VBA untuk menjumlahkan nilai cell berdasarkan warna cell
    Penulisan Fungsi Excel SumByColor
  7. Keterangan penulisan : SumByColor = Merupakan nama dari Fungsi Excel, D4 = Cell referensi warna, C2:C13 = merupakan range yang akan kita jumlahkan.
  8.  Simpan file tersebut dalam dua format, format pertama format Excel Workbook seperti biasanya dan format yang kedua yaitu format Excel Add-In, agar fungsi tersebut dapat digunakan pada banyak file excel. Untuk format Excell Add-In lihat gambar di bawah ini.
    Menyimpan Fungsi Excel dalam format Excel Add-In
    Menyimpan Fungsi Excel dalam format Excel Add-In
Demikian Tuturial membuat Fungsi Excel untuk menjumlahkan nilai cell berdasarkan warna pada cell tersebut semoga membantu anda dalam melakukan pekerjaan yang berkenaan dengan microsoft Excel.