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
2011/6/17 hendrik karnadi <[email protected]>
> Coba gunakan cara merekam Macro (UDF)
> Caranya :
> - Aktifkan perekaman macro.
> - Ketik formula "AVERAGE" yang anda inginkan
> - Stop perekaman macro
> Macro yang sudah dibuat secara otomatis tersebut dapat diupdate sesuai
> kebutuhan.
> Salam,
> Hendrik Karnadi
>
>
> *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.
>
>
ctv_UDF_Average Palsu.xls
Description: MS-Excel spreadsheet
