Home | Sitemap | Excel Tips and Tricks | Technology | Cerita Unik


Welcome to My Blog

Banyak pengguna excel menggunakan salah satu software spreadsheet canggih microsoft ini hanya sebagai alat bantu hitung. Padahal sebenarnya banyak sekali fitur-fitur excel yang sangat bermanfaat apabila kita mengetahuinya. Melalui Blog ini saya ingin berbagi beberapa fitur hebat lain excel pada anda. Selamat Mencoba!

Sabtu, 25 Februari 2012

Fungsi Excel ; Mengetahui Jumlah Data Unik

Formula berikut digunakan untuk mengetahui apakah data merupakan data unik, kelebihannya juga adalah dengan fungsi ini kita akan mengetahui berapa jumlah data pada kolom yang merupakan data unik.

Untuk mencobanya pertama-tama buatlah sebuah worksheet dengan beberapa data dalam satu kolom, misalnya kolom B mulai dari row (baris) 1 sampai dengan 10.




Kemudian pada C2 ketikan formula sebagai berikut:

=IF(COUNTIF($B$2:$B$10,B2)=1,"Data Unik",COUNTIF($B$2:$B$10,B2)&" Data Kembar")

kemudian copy rumusnya sampai ke baris terakhir.

Akan muncul pada kolom C apabila data di kolom b merupakan data unik maka tertulis "Data Unik" tetapi apabila terdapat data yang sama pada kolom tersebut pada cell akan tertulis jumlah data yang sama atau kembar.


bagaimana tidak terlalu sulit kan?

Selamat mencoba..!


Alfi

Kamis, 16 Februari 2012

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...