Koding sumif dengan macro

Koding sumif dengan macro - Sumif merupakan fungsi dari penjumlahan dengan satu kriteria tertentu, dan yang jago formula pasti sudah tau bagaimana sumif itu bekerja (biasanya kalau hari minggu sumif libur alias tidak bekerja, heheheh). Yang akan saya uraikan pada artikel kali ini adalah Sumif menggunakan macro atau VBA, bisakah?, mari kita buktikan.

Sebelumnya anda harus mwndownload file latihan pada link dibwah ini

Baca sebelumnya Sumif dengan macro

Buka file microsoft excel hasil download, setelah itu tekan ALT+F11 untuk masuk kejendela Microsoft excel visual basic editor (VBE/VBA), pada design userform klik dua kali lalu copy pastekan kode sumif dengan macro dibwah ini

Sub TampilkanSemua()
Set iParengan = Sheets("Sheet1")
ListBox1.Clear
With ListBox1
.AddItem
.List(.ListCount - 1, 0) = "Nomor"
.List(.ListCount - 1, 1) = "Nama Siswa"
.List(.ListCount - 1, 2) = "Tabungan"
.ColumnWidths = 45 & ";" & 125 & ";" & 70
End With
With iParengan
Set rgTampil = iParengan.Range("Nomor"). _
SpecialCells(xlCellTypeVisible)
For Each sTampil In rgTampil
With ListBox1
.AddItem sTampil.Value
.List(.ListCount - 1, 0) = sTampil.Value
.List(.ListCount - 1, 1) = sTampil.Offset(0, 1).Value
.List(.ListCount - 1, 2) = _
Format(sTampil.Offset(0, 2).Value, "#,##0")
End With
Next sTampil
End With
TotTabungan = 0
For Total = 1 To ListBox1.ListCount - 1
TotTabungan = TotTabungan + CDbl(ListBox1.List(Total, 2))
TextBox1.Value = Format(TotTabungan, "#,##0")
Next Total
End Sub

Private Sub CommandButton1_Click()
Unload Me
End Sub

Private Sub UserForm_Activate()
Call TampilkanSemua
End Sub

Untuk memahami kode macro diatas, silahkan anda merujuk penjelasanya pada link dibwah ini
Begitulah cara sumif dengan macro, semoga dapat dimengerti dan selamat berakhir pekan