Kalau mau tambahkan fungsi sumcurrency sbb Function sumCurrency(sign As String, rng As Range) Dim cl As Range For Each cl In rng If Mid(cl.NumberFormat, 3, 2) = sign Then sumCurrency = sumCurrency + cl.Value Next cl End Function
cara pakai lihat file terlampir ________________________________ From: Dina Maulin <[email protected]> To: "[email protected]" <XL-maniayahoogroups.com> Sent: Monday, August 22, 2011 2:56 PM Subject: ]] XL-mania [[ Menjumlahkan Biaya Berdasarkan Mata Uang yang Macam2 Dear Pakar Excel, 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
xlAu-Biaya Perjalanan.xlsm
Description: application/vnd.ms-excel.sheet.macroenabled.12
