Cara Menjumlahkan Angka Berdasarkan Warna di VBA Excel

Posted by Admin

Salam sahabat excel kali ini saya akan share bagaimana Cara Menjumlahkan Angka Berdasarkan Warna di VBA Excel.

Contoh kasus:
Anda telah meminjamkan uang kepada dua belas orang. Beberapa orang telah mengembalikannya (hitam) dan beberapa masih berhutang uang padamu (merah). Anda ingin tahu berapa banyak uang yang masih Anda terima.

1. Pertama, saya mendeklarasikan dua variabel tipe Integer. Satu bernama toReceive dan satu bernama i. Saya menginisialisasi variabel toReceive dengan nilai 0.

Dim toReceive As Integer, i As Integer
toReceive = 0

2. Kedua, kita mulai loop Untuk Berikutnya.

For i = 1 To 12

3. Sekarang silahkan periksa setiap nomor dan hanya jika warna nomornya merah, saya menambahkan nomor ke toReceive.

If Cells(i, 1).Font.Color = vbRed Then
    toReceive = toReceive + Cells(i, 1).Value
End If

4. Jangan lupa untuk menutup loop.

Next i

5. Akhirnya, uang ditampilkan masih untuk menerima. Saya menggunakan operator & untuk menggabungkan dua string. Meskipun toReceive bukan string.

MsgBox "Masih Menerima " & toReceive & " dollars"

6. Tempatkan makro Anda di tombol perintah dan silahkan dicoba.
Untuk coding lengkap nya silahkan copy paste dibawah ini tepatnya di tombol Commonbutton.

Option Explicit
Private Sub CommandButton1_Click()
Dim toReceive As Integer, i As Integer
toReceive = 0
For i = 1 To 12
    If Cells(i, 1).Font.Color = vbRed Then
        toReceive = toReceive + Cells(i, 1).Value
    End If
Next i
MsgBox "Masih Menerima " & toReceive & " Dolar"
End Sub

File yang sudah jadi silahkan download di tombol bawah ini.

Atau

Semoga bermanfaat 

Excel

Share This :