Kalau mau PINJAM PAKAI Fungsi Worksheet (SUM dan COUNTIF) Function AveragePalsu2(MyRange As Range) As Double ' siti Vi / 17 Jun 2011 Dim Jumlah As Double,Banyak As Long
Jumlah = WorksheetFunction.Sum(MyRange) Banyak = WorksheetFunction.COUNTIF(MyRange,"<>0") AveragePalsu2 = Jumlah / Banyak End Function 2011/6/17 STDEV(i) <[email protected]> > kalau ingin mendekati algoritmanya kira kira begini > > Function AveragePalsu(MyRange As Range) As Double > ' siti Vi / 17 Jun 2011 > Dim Jumlah As Double > Dim Banyak As Long > Dim cel As Range > > For Each cel In MyRange > Jumlah = Jumlah + cel > If cel <> 0 Then Banyak = Banyak + 1 > Next > AveragePalsu = Jumlah / Banyak > End Function > > --workbook terlampirrrr > > >> >> *From:* MAMUDA PONTIM <[email protected]> >> *To:* "[email protected]" <[email protected]> >> *Sent:* Friday, June 17, 2011 11:05 AM >> *Subject:* [belajar-excel] UDF untuk Average >> >> Mohon maaf sebelumnya, pertanyaan ini bukan untuk mengada-ada, tapi buat >> media belajar bagi saya khususnya. Mudah-mudahan bermanfaat bagi member yang >> lain. >> Saya mau tanya, bagaimana membuat fungsi (UDF) yang sama dengan AVERAGE di >> worksheet function. >> >>
