Diskusi tentang Excel

Macro Excel - Menghitung Jumlah Total dengan Kriteria Warna Merah

Belajar macro excel bagaimana menghitung jumlah total secara otomatis tanpa menggunakan rumus SUM. Tutorial macro excel kali ini saya akan bahas bagaimana menjumlahkan beberapa data yang ada pada range dengan kriteria warna tertentu.

Sebenarnya untuk menjumlahkan dengan cara biasa Anda bisa lihat Cara menjumlahkan data secara otomatis Hal ini sudah dan sering sekali kita gunakan ketika mengolah data angka dengan operator penjumlahan. Untuk pengolahan pengurangan, perkalian dan pembagian silakan lihat juga Rumus Excel Perkalian, Penjumlahan, dan pembagian.

Ok, langsung saja untuk belajar macro excel kali ini yaitu bagaimana cara menjumlahkan data menggunakan macro dengan kriteria warna. Artinya script VBA macro ini akan menjumlahkan secara otomatis ketika ada data yang memiliki warna merah.



Perhatikan data diatas, ada beberapa data yang diberi tanda warna merah yaitu 10.000, 16.000, 1.000, dan 9.000 Data tersebut akan dijumlahkan dengan menggunakan macro dan hanya yang berwarna merah saja.

Langkah berikutnya silakan buat sebuah CommanButton kemudian ganti tulisan menjadi "Jumlahkan" kemudian silakan masuk ke VBA editor atau menekan tombol ALT+F11 kemudian pada Microsoft Object pilih Sheet1 kemudian ketikkan kode VBA berikut

Private Sub CommandButton1_Click()
Dim Total As String, i As Integer
Total = 0
For i = 1 To 12
    If Cells(i, 1).Font.Color = vbRed Then
        Total = Total + Cells(i, 1).Value
    End If
Next i
MsgBox "Jumlah total " & Total & " rupiah"
End Sub
Lebih jelasnya kira-kira seperti gambar dibawah ini




Selanjutnya silakan kembali masuk jendela worksheet dan coba klik tombol "Jumlahkan" silakan lihat hasilnya jika benar maka akan menghasilkan informasi berupa pesan dan hasil penjumlahan yaitu "36000 rupiah" Lihat tampilan seperti gambar dibawah ini



Selesai,
Semoga macro excel bagaimana cara menghitung jumlah total dengan kriteria warna ini bermanfaat dan selamat mencoba.

Related

Macro Excel VBA 2249085458596345423

Post a Comment

Tulisan ini Bermanfaat..? Silakan berkomentar sesuai topik artikelnya, tidak dianjurkan menggunakan kata-kata yang dapat menimbulkan hal negatif. Mohon maaf apabila tidak memiliki etika akan Admin HAPUS tanpa pemberitahuan kembali. Terimakasih... salam Exceler

emo-but-icon

item