UDF dapat menyerderhanakan tugas Anda dengan membolehkan Anda menggunakan rumus yang lebih pendek dan lebih mudah dibaca.

Tip kali ini akan membahas contoh penggunaan UDF sebagai solusi cara menjumlahkan angka dalam sel yang diwarnai.

Jika sel-sel diwarnai dengan menggunakan Conditional Formatting, maka penyelesaian untuk menambahkan bilangan yang hanya pada sel-sel yang telah diwarnai saja adalah dengan menjumlahkan barisan sel menurut syaratnya misalnya dengan menggunakan fungsi SUMIF.

Namun, menilai properti suatu sel (yang dalam kasus ini adalah warna sel) maka ini akan lebih menyulitkan karena tidak ada satu pun fungsi bawaan yang tersedia untuk dapat menanganinya.

Sebagai contoh, gambar di atas menunjukkan daftar bilangan pada barisan sel A2:A15, dimana hanya beberapa sel saja yang diwarnai kuning dan yang lainnya tidak. 

Tugasnya adalah menjumlahkan bilangan yang selnya berwarna kuning saja.

Di luar barisan sel, sel C2 melayani dua kegunaan sekaligus yaitu menerima UDF dan juga menampilkan warna acuan yang akan dijumlahkan.

Dengan cara tersebut, UDF cukup memerlukan satu buah argumen saja untuk menentukan barisan sel yang akan dijumlahkan menurut warnanya.

Silakan ikuti langkah demi langkah sebagai berikut untuk menyusun kode UDF:

1. Buat contoh barisan sel seperti pada gambar.

2. Tekan Alt+F11 untuk menampilkan VBE.

3. Buat module baru melalui menu Insert > Module.

4. Berikan judul UDF misalnya SumW dengan mengetik garis kode berikut diakhiri dengan Enter:

Function SumW(BS As Range) As Long

5. Tepat di bawah garis kode di atas, tetapkan variabel-variabel yang diperlukan sebagai berikut:

Dim NoWn As Integer, SWn As Range, jml As Long

6. Kenali variabel NoWn untuk mengetahui warna apa yang dicari:

NoWn = Range(Application.Caller.Address).Interior.ColorIndex

7. Loop ke setiap sel pada barisan sel:

For Each SWn In BS

8. Jika warna sel cocok dengan warna yang dicari, tetap hitung subtotal dengan menambahkan angka yang ada di sel ke dalam variabel jml:

If SWn.Interior.ColorIndex = NoWn Then jml = jml + SWn.Value
Next SWn

9. Semua sel telah dinilai, jadi Anda bisa menetapkan fungsi SumW dengan membuatnya sama dengan variabel jml:

SumW = jml

5. Susunan kode UDF lengkapnya adalah sebagai berikut:

Function SumW(BS As Range) As Long
Dim NoWn As Integer, SWn As Range, jml As Long
NoWn = Range(Application.Caller.Address).Interior.ColorIndex
For Each SWn In BS
If SWn.Interior.ColorIndex = NoWn Then jml = jml + SWn.Value
Next SWn
SumW = jml
End Function

6. Tekan Alt+Q untuk membuka kembali worksheet.

7. Di sel C2 yang juga diberi warna kuning, silakan Anda masukkan rumus baru Anda =SumW(A2:A15) lalu tekan Enter.

Itulah pembahasan tentang cara menjumlahkan angka dalam sel yang diwarnai, selamat mencoba mempraktikkan dan semoga bermanfaat.