Coba seperti ini Pak HK, semoga sesuai keinginan.

Public Function get_Average(Stock_awal As Double, nilai_beli As Double, 
stok_awal As Double, qty_pembelian As Double) As Double
On Error GoTo Err
get_Average = (Stock_awal + nilai_beli) / stok_awal + qty_pembelian
Exit Function
Err:
get_Average = 0
End Function


From: [email protected] [mailto:[email protected]]
Sent: Monday, October 26, 2015 2:16 PM
To: [email protected]
Subject: [belajar-excel] Menangkap/mengalihkan error


Dear Be-Excelers,
Saya sedang mencoba membuat perhitungan harga pokok dengan macro SQL).

FORMULA ntuk menghitung harga pokok dengan sistim average adalah sbb รท
(Nilai Stok Awal + nilai pembelian)/qty stok awal + qty pembelian).
Permasalahan timbul ketika hasil penjumlahan pembilang dan penyebut sama2 
0(nol)..hasilnya Error.

Pertanyaan saya:
Bagaimana penulisannya di macro agar apabila hasilnya Error, Error tsb diganti 
dengan 0 (nol) sehingga hppnya = 0 (nol).

Terima kasih.

Salam,
HK



Sent from Samsung Mobile

Kirim email ke