Macro excel pengganti sumifs - Lanjutan 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

Artikel ini merupakan artikel Lanjutan Macro excel pengganti SUMIFS, artikel sebelumnya bisa anda lihat disini

Kita akan belajar kembali menggunakan fungsi SUMIFS dengan VBA (Macro) dengan beberapa kriteria di Excel menggunakan kode VBA. Kali ini Untuk mendapatkan outputnya kita akan menggunakan kombinasi fungsi OFFSET & COUNTA untuk membuat Name Manager List.

Contoh kasus adalah sebagaimana gambar dibawah ini memiliki laporan Penjualan untuk Salesman, Region, dan Produk untuk tahun 2012 sampai 2014.


Kemudian kita akan mencari sesuai dengan kriteria Salesman, Region dan Product


Kemudian buatlah name manager pada tab menu formulas atau tekan kombinasi tombol CTRL + F3


Dibawah ini list name manager yang harus anda susun

nDate=OFFSET(Sheet1!$A$1,1,0,COUNTA(Sheet1!$A:$A)-1)
nProduct=OFFSET(Sheet1!$D$1,1,0,COUNTA(Sheet1!$A:$A)-1)
nRegion=OFFSET(Sheet1!$C$1,1,0,COUNTA(Sheet1!$A:$A)-1)
nSales=OFFSET(Sheet1!$E$1,1,0,COUNTA(Sheet1!$A:$A)-1)
nSalesman=OFFSET(Sheet1!$B$1,1,0,COUNTA(Sheet1!$A:$A)-1)

Selesai membuat name manager, masuk kejendela VBE atau ekan kombinasi tombol ALT+F11
Buat modul dan ketikan kode macro dibawah ini
Sub VBASumifs()
mysalesman = [H3]
myregion = [H4]
myproduct = [H5]
tsales = Application.WorksheetFunction.SumIfs([nsales], [nsalesman], mysalesman, [nregion], myregion, [nproduct], myproduct)
[H6] = tsales
End Sub


Tutup jendela VBE, masih ditab Developper, pilih Macros dan jalankan module VBASumifs



Demikianlah tutorial kali ini Macro excel pengganti SUMIFS, semoga bermanfaat
No comments