Cara Menjumlahkan Warna di Excel dan Juga Menghitung Warna Menggunakan VBA

Excel adalah alat yang sangat berguna untuk mengatur dan menganalisis data. Salah satu fitur canggih yang sering kali digunakan adalah Menjumlah dan Menghitung nilai di sel berdasarkan warna. Ini memungkinkan Anda untuk menyoroti data penting dengan warna latar belakang atau font. Lantas bagaimanakah cara menjumlahkan Warna di Excel dan juga menghitung warna di sel?

Excel sendiri tidak memiliki fitur langsung untuk melakukannya, tetapi dengan bantuan VBA (Visual Basic for Applications), Anda dapat membuat fungsi kustom untuk tugas ini. Dalam artikel ini, kami akan membahas cara menghitung dan menjumlahkan sel berdasarkan warna latar belakang di Excel menggunakan VBA.

Mengapa Kode VBA untuk Menghitung dan Menjumlahkan Sel Berdasarkan Warna?

Pada beberapa kasus, Anda mungkin ingin melakukan perhitungan atau penjumlahan data berdasarkan kriteria pemformatan tertentu. Excel memiliki beberapa fitur pemformatan, seperti format kondisional, yang memungkinkan Anda memberikan warna latar belakang tertentu kepada sel-sel berdasarkan kondisi tertentu. Misalnya, Anda mungkin telah memberi warna latar belakang merah untuk semua penjualan di bawah target, dan hijau untuk penjualan di atas target.

Namun, tanpa bantuan kode VBA, sangat sulit untuk menghitung atau menjumlahkan sel berdasarkan warna ini. Inilah sebabnya mengapa VBA menjadi alat yang sangat berguna untuk tugas ini. Dengan membuat fungsi kustom, Anda dapat dengan mudah menghitung atau menjumlahkan sel yang sesuai dengan kriteria pemformatan tertentu.

Cara Menjumlahkan Warna di Excel dan Juga Menghitung Warna Menggunakan VBA

Berikut adalah langkah-langkah untuk membuat dan menggunakan kode VBA sebagai cara menjumlahkan warna di Excel dan juga menghitung warna menggunakan VBA:

Langkah 1: Membuka Editor VBA

• Pertama, Anda perlu membuka editor VBA di Excel. Caranya adalah dengan menekan ALT + F11 pada keyboard Anda.

Langkah 2: Membuat Fungsi Kustom untuk menghitung warna di Excel

• Setelah Anda masuk ke editor VBA, klik Insert di menu atas dan pilih Module untuk membuat modul baru.
• Sekarang, Anda dapat menyalin dan menempelkan kode VBA sebagai cara menjumlahkan warna di Excel dan juga menghitung warna berikut ke dalam modul:

Option Explicit

Function FungsiWarna(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
   FungsiWarna = vResult

End Function

Langkah 3: Menggunakan Fungsi Kustom

• Sekarang Anda dapat kembali ke lembar kerja Excel Anda.

• Untuk menghitung sel berdasarkan warna latar belakang tertentu, gunakan rumus berikut di sel J3: =FungsiWarna($I3;$B$2:$G$11;FALSE)
  • I3 adalah sel yang berisi warna latar belakang yang ingin Anda cocokkan.
  • $B$2:$G$11 adalah rentang sel di mana Anda ingin menghitung jumlah sel warna yang cocok.
  • FALSE digunakan untuk menghitung sel dengan warna yang cocok.

• Untuk menjumlahkan sel berdasarkan warna latar belakang tertentu, gunakan rumus berikut di sel K3:
  =FungsiWarna($I3;$B$2:$G$11;TRUE)
  • I3 adalah sel yang berisi warna latar belakang yang ingin Anda cocokkan.
  • $B$2:$G$11 adalah rentang sel di mana Anda ingin menjumlahkan sel warna yang cocok.
  • TRUE digunakan untuk menjumlahkan sel dengan warna yang cocok.

Dan berikut adalah hasil akhirnya setelah fungsi tersebut dicopy-paste ke sel dibawahnya

Penjelasan Kode VBA

Kode VBA yang sudah kita buat di atas adalah sebuah fungsi kustom yang digunakan untuk menghitung atau menjumlahkan sel berdasarkan warna latar belakang di Excel. Mari kita jelaskan setiap bagian dari kode tersebut secara rinci:

Option Explicit

Option Explicit adalah pernyataan yang biasanya ditempatkan di bagian paling atas modul VBA. Ini merupakan praktik yang dianjurkan yang memaksa penggunaan deklarasi variabel sebelum variabel digunakan dalam kode. Hal ini membantu mencegah kesalahan penulisan nama variabel yang mungkin tidak disadari. Dengan Option Explicit, setiap variabel yang digunakan harus dideklarasikan sebelum digunakan.

Function FungsiWarna(rColor As Range, rRange As Range, Optional SUM As Boolean)

Ini adalah deklarasi fungsi kustom yang dinamai FungsiWarna. Fungsi ini menerima tiga argumen: rColor (range warna yang akan dicocokkan), rRange (range sel yang akan diperiksa), dan SUM (argumen opsional yang menentukan apakah fungsi akan melakukan penjumlahan). Jika SUM diterapkan, fungsi akan menjumlahkan nilai sel, jika tidak, fungsi hanya akan menghitung jumlah sel.

   Dim rCell As Range
   Dim lCol As Long
   Dim vResult

Di sini, dilakukan pendeklarasian beberapa variabel yang akan digunakan dalam fungsi:

• rCell: Variabel untuk melintasi setiap sel dalam rRange.
• lCol: Variabel bertipe Long (bilangan bulat) yang akan menyimpan indeks warna latar belakang dari sel rColor.
• vResult: Variabel tanpa tipe data yang akan menyimpan hasil perhitungan atau penjumlahan sel.

   lCol = rColor.Interior.ColorIndex

Baris ini menetapkan nilai indeks warna latar belakang dari sel rColor ke variabel lCol menggunakan properti Interior.ColorIndex.

   If SUM = True Then

Perintah If digunakan untuk memeriksa apakah argumen SUM adalah True. Jika benar, maka kode di bawahnya akan dieksekusi untuk melakukan penjumlahan nilai sel.

      For Each rCell In rRange
         If rCell.Interior.ColorIndex = lCol Then
            vResult = WorksheetFunction.SUM(rCell, vResult)
         End If
      Next rCell

Pada blok If, fungsi akan melakukan iterasi melalui setiap sel dalam rRange. Jika warna latar belakang sel tersebut sama dengan lCol, nilai sel akan dijumlahkan ke dalam variabel vResult menggunakan WorksheetFunction.SUM.

   Else
      For Each rCell In rRange
         If rCell.Interior.ColorIndex = lCol Then
            vResult = 1 + vResult
         End If
      Next rCell
   End If

Jika argumen SUM tidak benar (atau tidak diberikan), maka fungsi akan melakukan perhitungan jumlah sel yang memiliki warna latar belakang yang sesuai. Iterasi akan dilakukan melalui setiap sel dalam rRange, dan jika warna latar belakangnya sama dengan lCol, nilai vResult akan diinkremen (ditambah 1).

   FungsiWarna = vResult

Baris terakhir fungsi mengembalikan nilai dari vResult yang akan menjadi hasil dari perhitungan atau penjumlahan sel berdasarkan kriteria warna latar belakang yang dipilih.

Ini adalah sebuah fungsi VBA yang memungkinkan Anda untuk dengan mudah menghitung atau menjumlahkan sel berdasarkan warna latar belakang tertentu di Excel. Dengan menggunakan fungsi ini, Anda dapat melakukan analisis data yang lebih canggih dan spesifik sesuai dengan kebutuhan Anda.

Keuntungan Penggunaan Kode VBA

Penggunaan kode VBA untuk menghitung dan menjumlahkan sel berdasarkan warna latar belakang di Excel memiliki beberapa keuntungan:

1. Fleksibilitas: Anda dapat menghitung atau menjumlahkan data berdasarkan kriteria pemformatan apa pun yang Anda tetapkan.
2. Menghemat Waktu: Ini menghemat waktu Anda daripada melakukannya secara manual.
3. Keakuratan: Anda dapat yakin bahwa perhitungan dan penjumlahan dilakukan dengan benar berdasarkan kriteria pemformatan yang tepat.
4. Meningkatkan Produktivitas: Ini membantu Anda meningkatkan produktivitas dengan mengotomatiskan tugas yang mungkin memakan waktu.

Dengan menguasai kode VBA ini, Anda dapat dengan mudah menghitung atau menjumlahkan data berdasarkan warna latar belakang di Excel, yang merupakan alat yang sangat berguna dalam menganalisis data Anda.

Terakhir, jika memerlukan file contoh cara menjumlahkan warna di Excel dan juga menghitung warna ini silahkan download melalui tautan di bawah ini: