Re: ]] XL-mania [[ Menjumlahkan Biaya Berdasarkan Mata Uang yang Macam2

 

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

[$Php-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 <hendrikkarnadi@yahoo.com>
>
> 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 <dinamaulin@yahoo.com>
> 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

__._,_.___

Reply to sender | Reply to group | Reply via web post | Start a New Topic

Messages in this topic (6)

Recent Activity:

• New Members 60

Visit Your Group

+-:: XL-mania ::::::::::::::::::::----------------------------------+
| tiap tanggal gajian, order buku "mengapa boss benci chart anda    |
| membludak :) ayo2 pesan yang belum punya....                      |
| btw... selamat menunaikan ibadah puasa ya...                      |
| www.facebook.com/pages/XL-mania/104233892978057                   |
+-------------------------------------------------------------------+
| DILARANG : MLM, money game, OOT, iklan tanpa izin, SARA, testing, |
| pembicaraan pribadi, one line message,  melecehkan,  tidak sopan. |
+-------------------------------------------------------------------+
| Buat subjek yang kreatif, jangan : "tanya", "help", "mohon bantu" |
| Usahakan besar attachment < 200 kb. Gunakan  winzip  jika  perlu. |
+-------------------------------------------------------------------+
| Ajak teman-teman Anda bergabung dengan mengirim e-mail kosong ke  |
| XL-mania-subscribe@yahoogroups.com atau kirimkan mereka file dari |
| http://groups.yahoo.com/group/XL-mania/files/Promotion/           |
+-------------------------------------------------------------------+
| Berikan testimoni di : http://www.friendster.com/xlmania atau...  |
| http://www.xl-mania.com/2008/06/testimoni-xl-mania.html           |
+-------------------------------------------------------------------+
| Message lama ada di :                                             |
| http://groups.yahoo.com/group/XL-mania/messages [perlu yahoo id]  |
| http://www.mail-archive.com/xl-mania@yahoogroups.com              |
+-------------------------------------------------------------------+

Switch to: Text-Only, Daily Digest • Unsubscribe • Terms of Use

.

__,_._,___