Tanya lagi boleh ya....! Beda Range dengan Ranges di VBA gimana?
________________________________ From: STDEV(i) <[email protected]> To: [email protected] Sent: Friday, June 17, 2011 12:10 PM Subject: Re: [belajar-excel] UDF untuk Average 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.
