Macro excel pengganti sumifs - SUMIFS sebenarnya merupakan gabungan dua fungsi yaitu fungsi SUM yang merupakan fungsi penjumlahan dan fungsi IF yang merupakan penentuan suatu kondisi yang akan menghasilkan nilai nilai TRUE dan FALSE, pada beberapa jam yang lalu saya telah menjelaskan Fungsi formula SUMIF dan SUMIFS untuk melengkapi artikel tentang SUMIFS berikut ini merupakan cara lain menggunakan fungsi SUMIFS dengan macro

Kinerja excel akan lebih powerfull jika semua fungsi formula yang anda gunakan diganti ke macro, dan sudah menjadi rahasia umum menggunakan formula dalam excel bisa mempengaruhi kinerja excel itu sendiri yang mengakibatkan aplikasi excel bekerja dengan lamban. Baca juga Macro excel pengganti VLOOKUP

Langsung saja kita praktekan Macro excel pengganti sumifs, silahkan lihat gambar dibawah ini


Kita akan mengambil nilai total penjualan HP SAMSUNG pada tanggal 19 Desember 2017, kita buat modul SUMIFS

Private Sub Sumifs_Asis()
On Error Resume Next
Range("I6").Value = "" 'menghapus nilai kolom I6
If Range("I6").Value <> "" Then Exit Sub 'jika kolom I6 bernilai maka prosedur dibatalkan
If Range("I4").Value = "" Then Exit Sub 'jika kolom i4 blank maka prosedur dibatalkan
If Range("I5").Value = "" Then Exit Sub 'jika kolom I5 blank maka prosedur dibatalkan
namahp = Range("I4").Text ' kriteria pertama nama hp pada kolom i4
tanggal = Range("I5").Value ' kriteria kedua tanggal pada kolom i5
For i = 1 To WorksheetFunction.CountA(Range("B4:B18")) ' jumlah baris adalah 18 dikurangi 3
If Format(namahp, "@") = Format(Cells(i + 3, 4).Value, "@") _
And Format(tanggal, "dd/mm/yyyy") = Format(Cells(i + 3, 3).Value, "dd/mm/yyyy") Then ' pemeriksaan kondisi kriteria pertama dan kedua yang sesuai dengan kolom i4 dan kolom i5
Range("I6").Value = Range("I6").Value + Cells(i + 3, 5).Value 'penjumlahan nilai sesuai dengan kedua kriteria yang telah ditentukan sebelumnya
End If
Next i
End Sub

Penjelasan kode macro bisa tampak lebih jelas bila disalin dijendela VBE.

Jika modul Sumifs_Asis dijalankan maka pada kolom I6 akan menghasilkan angka 80, nilai ini sesuai dengan dua kriteria yang telah ditentukan sebelumnya.


Tambahkan kode macro dibawah ini agar SUMIFS bekerja langsung ketika kolom i4 dan i5 dirubah nilainya

Private Sub Worksheet_Change(ByVal Target As Range)
Sumifs_Asis
End Sub

Download sampel penggunaan Macro excel pengganti sumifs
Berhubung musim hujan yang mengakibatkan sinyal Telkomsel menjadi luelet, maka File sampel belum bisa diupload
Sampai saat ini saya masih belum paham cara berpikir para operator yang notabenya membiarkan ketidaknyamanan ini terus terjadi bertahun tahunm inilah layanan buruk dihari yang buruk
Admin akan berusaha semampu mungkin untuk mengunggah file sampel, jadi mohon doanya

Alhamdulillah file sampel sudah bisa diupload silahkan diambil dan didownload

Macro excel pengganti sumifs ini merupakan hasil utak atik admin asis10.com yang tidak akan bisa anda temukan dalam blog atau forum manapun, karenna syntax yang saya pakai merupakan syntax gabungan dari beberapa fungsi

Demikianlah penjelasan Macro excel pengganti sumifs, semoga dapat dipahami dan bermanfaat
No comments