Akhirnya... kalau mau Pinjam Pakai fungsi Worksheet: AVERAGE Function AverageDiVBA(MyRange As Range) As Double AveragediVBA = WorksheetFunction.Average(MyRange) End Function
ya memang singkat lha wong cuma pinjem saja, tanpa tahu ceritak kalklasi didalamnya 2011/6/17 STDEV(i) <[email protected]> > 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]> >>> *Sent:* Friday, June 17, 2011 11:05 AM >>> >>> 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. >>> >>
