Menjumlah sesuai Warna Font atau Cell

Assalamualaikum Wr Wb
Kali ini kita mencoba menjumlahkan nilai pada tabel sesuai dengan warna,

Silahkan perhatikan gambar berikut :

Terkadang kita memiliki data tabel dengan warna-warna pada cell atau warna font untuk menandakan tingkatan data tersebut. tetapi saat kita diminta untuk merekapitulasi terkadang kita menjadi ribet dengan sendirinya menjumlahkannya :v , padahal sudah kita kasi tanda loh
yup memang ribet karena kita harus menyorot lagi satu persatu cell yang telah kita beri sesuai tanda hehehehe. cara mudahnya ya dengan menggunakan Formula Rank jika data itu dijumlahkan secara range Horizontal atau Vertikal saja, tetapi jika secara acak keseluruhan maka perlu menggunakan VBA.

Ok langsung saja untuk hal tersebut kita pecahkan dengan VBA walaupun saya juga masih belajar :v

Silahkan buka file anda kemudian pada Keyboard tekan Alt F11 (masuk ke VBA) , kemudian insert module, lalu masukkan kode berikut :

Function JumlahkanSesuaiWarna(Warna As Range, tujuan As Range)
Dim Areajumlah As Range
Dim JumlahkanWarna As Long
JumlahkanWarna = 0
For Each Areajumlah In tujuan
    If Areajumlah.Interior.Color = Warna.Interior.Color Then
        JumlahkanWarna = JumlahkanWarna + Areajumlah.Cells.Value
    End If
Next Areajumlah
JumlahkanSesuaiWarna = JumlahkanWarna
End Function

Function SumSesuaiWarnaHuruf(WarnaHuruf As Range, Bloktujuan As Range)
Dim rJumlah As Range
Dim HitungWhuruf As Long
HitungWhuruf = 0
For Each rJumlah In Bloktujuan
    If rJumlah.Font.Color = WarnaHuruf.Font.Color Then
        HitungWhuruf = HitungWhuruf + rJumlah.Cells.Value
    End If
Next rJumlah
SumSesuaiWarnaHuruf = HitungWhuruf
End Function

Tekan Logo Excel di Kiri atas pada panel VBA untuk kembali ke Panel Excel

Ingat untuk Save As File anda ke Macro Enabled atau Office 97-2003 atau Binary agar VBA berfungsi :)

untuk Eksekusi Function yang kita buat caranya :

- untuk Warna Cell : =JumlahkanSesuaiWarna(warna dasar, range yang dijumlahkan)

   Contoh : =JumlahkanSesuaiWarna(L3,$C$3:$J$12)

- untuk Warna Font : =SumSesuaiWarnaHuruf(WarnaHuruf, Range yang dijumlahkan)

   Contoh : =SumSesuaiWarnaHuruf(Y3,$P$3:$W$12)

Merujuk ke warna cell sesuai tabel
Seperti Gambar berikut :

Untuk lebih jelasnya silahkan download file contohnya DISINI

Selamat mencoba, semoga sukses :)

Salam KJ

Posted in: belajar dasar-dasar excel,belajar excel,belajar excel dasar,belajar excel dengan mudah,cara cepat belajar excel,hal terpenting di excel,mahir menggunakan excel