23 February 2019

Cara Menjumlahkan Angka Berdasarkan Warna di VBA Excel

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 


Share This

SD IT Nurul Jannah, adalah sekolah dasar berbasis islam yang merangkum antara pendidikan formal atau umum dengan pendidikan agama secara menyeluruh, sehingga harapan kami nanti, mampu menciptakan generasi yang mandiri, cerdas, serta berahklakul karimah

0 Comments:

Berminat ingin menjadi penulis disini, silahkan kirimkan alamat email anda melalui halaman kontak kami.