Fungsi Excel ; Average If

Sudah lama nggak posting,

nggak tau kenapa hari ini suasana hati mampu menggerakkan kedua jari untuk menulis.

Beberapa waktu lalu seorang rekan di kantor bertanya ada nggak formula average tetapi dengan kriteria.

Kali ini saya akan mencoba membagikan jawabannya..

Fungsi average if digunakan untuk mengetahui nilai rata dari suatu range dengan kriteria yang telah kita tentukan

Langkahnya adalah sebagai berikut:

bukalah visual basic editor pada microsoft excel anda dan ketiklah module berikut:

Function averageif(range, kriteria, ave_range)
iconditioncolno = range.Column
inumbercolno = ave_range.Column


For lrowno = 1 To range.Rows.Count
vcellvalue = range.Parent.Cells(range.Row + lrowno - 1, inumberscolno.Value)
If IsNumeric(vcellvalue) = True Then
If (range.Parent.Cells(range.Row + lrowno - 1, iconditioncolno).Value = kriteria) Then
lmatch = lmatch + 1
sngaverage = sngaverage + range.Parent.Cells(range.Row + lrowno - 1, inumbercolno).Value
End If
End If

If sngaverage <> 0 And IsEmpty(vcellvalue) = True Then Exit For
End If
Next lrowno
averageif = sngaverage / lmatch

End Function


Save file excel dan kembalilah ke worksheet anda

anda sudah bisa menggunkan fungsi =averageif pada worksheet anda.


Selamat mencoba...