Cara Mudah Menjumlahkan Berdasarkan Warna Cell di Excel

Tutorial Excel h3ndr4

Pada beberapa postingan yang lalu, saya sudah menjelaskan bahwa Excel bisa menjumlahkan berbagai data numerik yang ada pada Cell dengan menggunakan fungsi Sum. Penjumlahan ini di lakukan baik dengan 1 kriteria atau lebih dari 1 kriteria. Sekarang saya akan mencoba menjelaskan cara menjumlahkan berdasarkan warna cell di Excel. Berikut adalah caranya.

  1. Buka program Excel dan buat tabel seperti di bawah ini
    Screenshot_1
  2. Tekan Alt+11 atau klik menu Developer, lalu klik Ikon Visual Basic
    Screenshot_2
  3. Setelah itu di Workbook VBA klik Insert, lalu pilih Module
  4. Klik Module 1 lalu ketik kode Visual Basic di bawah iniFunction ColorFunction(rColor As Range, rRange As Range, Optional SUM As Boolean)
    Dim rCell As Range
    Dim lCol As Long
    Dim vResult
    lCol = rColor.Interior.ColorIndex
    If SUM = True Then
    For Each rCell In rRange
    If rCell.Interior.ColorIndex = lCol Then
    vResult = WorksheetFunction.SUM(rCell, vResult)
    End If
    Next rCell
    Else
    For Each rCell In rRange
    If rCell.Interior.ColorIndex = lCol Then
    vResult = 1 + vResult
    End If
    Next rCell
    End If
    ColorFunction = vResult
    End Function
    Untuk lebih jelas lihat tampilan di bawah ini
    Screenshot_3
  5. Lalu simpan VBA dalam format extension Excel Macro-Enabled Workbook, setelah itu tutup Workbook VBA dan kembali ke Workbook Excel
  6. Setelah itu ketik Rumus di bawah ini di Cell D18 (Untuk Cell Berwarna Biru)
    =colorfunction(F7,F3:F16,TRUE)
    Rumus di bawah ini di Cell D19 (Untuk Cell Berwarna Kuning)
    =colorfunction(F3,F3:F16,TRUE)
    Rumus di bawah ini di Cell D20 (Untuk Cell Berwarna Hijau)
    =colorfunction(F6,F3:F16,TRUE)
    Rumus di bawah ini di Cell D21 (Untuk Cell Berwarna Orange)
    =colorfunction(F4,F3:F16,TRUE)
    Maka hasilnya akan seperti di gambar di bawah ini
    Screenshot_4

You Might Also Like

Most popular articles related to Cara Mudah Menjumlahkan Berdasarkan Warna Cell di Excel