ubah datatype dari range menjadi variant, kemudian input dengan :
*=AveragePalsu( {12,14} )*Bila input tidak pasti berupa array, tambahkan cek IsArray sebelum For, dilengkapi End IF setelah Next Bagian else dari IF diisi dengan *AveragePalsu=myrange *Kid. 2011/6/21 MAMUDA PONTIM <[email protected]> > ** > > > Beberapa waktu lalu saya menanyakan UDF yang sama dengan fungsi average di > worksheet. > Mbak Siti memberikan jawaban seperti ini: > > Function AveragePalsu(MyRange As Range) As Double > > 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 > > UDF tersebut berfungsi. > Namun, ketika kita coba menuliskan angka langsung pada rumus (contoh * > =AveragePalsu(12,14)*), hasilnya Error. > Bagaimana solusinya.....? > Terima kasih > > > >
