dibuatkan Fungsi sendiri saja pak tapi di sheet harus ada kriterianya ; misal di cell *C20* tertulis *Rp* di cell *C21* tertulis *Php* Setiap cell dlm range yg akan dijumlah harus sudah diformat number dengan baik
di D20 tinggal menulis
=SumCurr($D$5:$H$19,C20)
di D21
=SumCurr($D$5:$H$19,C21)
'------------
'--coding UDF nya / di module standar
Function *SumCurr*(Rng As Range, Criteria As String) As Double
' siti Vi // Semarang, 25 Agu 2011
'---------------------------------------
Dim Dat As Range, Tot As Double
Dim nf As String, cf As String
For Each Dat In Rng
nf = Dat.NumberFormat
cf = Mid(nf, 3, InStr(1, nf, "-") - 3)
If Dat > 0 Then
If cf = Criteria Then Tot = Tot + Dat.Value
End If
Next
SumCurr = Tot
End Function
peniadaan variable nf dan cf akan dapat mempersingkat coding makro
di sini dibuat spt itu agar lebih mudah difahami "jalan ceritaknya"
oiya untuk pemahaman "teks currency /number format (variable nf)
yg akan diolah adalah spt ini
[$*Ph**p*-3409]#,##0.0
[$*Rp*-3409]#,##0.0
Dengan fungsi MID kita hanya mengambil bagian MERAH nya saja, untuk
dibandingkan
dengan kriteria
2011/8/25 hendrik karnadi <[email protected]>
>
> Karena anda main di format kelihatannya agak susah.
> Alternatifnya pakai SUMKOLOR nya Mbak Siti, apabila masing2 diberi kolor
(kolor dibaca
> colour)
>
> Salam,
> Hendrik Karnadi
> From: Dina Maulin <[email protected]>
> Sent: Monday, August 22, 2011 2:56 PM
>
> Saya sedang menghitung biaya perjalanan, dimana pengeluarannya ada yang
menggunakan Rupiah dan Philipine Peso. Biasanya malah ada 3 mata uang,
tambah USD. Pertanyaanya, bagaimana ya rumusnya, supaya tidak hitung satu2.
>
> Terlampir ya filenya.Terima kasih sebelumnya.
> Salam,
> Dina
ctv_UDF_SumByCurrency_Biaya Perjalanan.xlsm
Description: Binary data
