Tecnologia, programação e muito Visual FoxPro.

sexta-feira, 19 de junho de 2009

]] XL-mania [[ Excel-ku Bisa Menjumlah "Bilangan" 27 digit



Caranya ??
Bilangan-Bilangan harus ditulis di kolom yg sudah diformat text
atau bilangan ditulis dengan didahului karakter ' (tandakutiptunggal)

Text-Bilangan itu di konversi menjadi data type Bilangan subtype Decimal (dgn fungsi CDEC)
Lalu dijumlahkan

Hasilnya diformat tampil bertanda pemisah ribuan (biar gampang dibaca)
sambil dikonversi menjadi data type string/teks (agar bisa ditulis di cell excel tanpa dibulatkan)

semua gerak-gerik diatas dapat dicodekan dlm prosedur fungsi, misal kita beri nama fungsi BigSUM
Nulisnya di woksit  ya biasa saja  =BigSum(A1:A20)
tentunya di kolom A1:A20 telah tertulis data text-bilangan yg width-nya lebih dari 15 digit

Function BIGSUM(Rng) As String
   Application.Volatile
   Dim Cel As Range
   Dim tmp As Variant
   For Each Cel In Rng
   If Not IsEmpty(Cel) Then tmp = CDec(tmp) + CDec(Cel)
   Next Cel
   BIGSUM = Format(CDec(tmp), "#,##0")
End Function

~ctv~

__._,_.___
+-:: XL-mania ::::::::::::::::::::----------------------------------+
| XL-mania, berjuang untuk rakyat, pancen oyeeee, LANJUTKAN!        |
| http://www.facebook.com/group.php?gid=37671048001&ref=mf          |
+-------------------------------------------------------------------+
| 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              |
+-------------------------------------------------------------------+
Recent Activity
Visit Your Group
Yahoo! Finance

It's Now Personal

Guides, news,

advice & more.

Y! Groups blog

the best source

for the latest

scoop on Groups.

Yahoo! Groups

Mental Health Zone

Learn about issues

Find support

.

__,_._,___

Nenhum comentário:

Arquivo do blog