Betul kata mas Ko*v*lo bahwa bekerja dengan* angka di atas 15 digit* bisa bikin *revot.* Angka *digit ke enambelas dst* dibulatkan oleh excel manjadi NOL Karena menurut cerita dari "sonoh"nya cell excel hanya di-mampu-kan menampilkan nilai bilangan presisi pada MAX 15 digit saja..
Agar pekerjaan Pak Kovlo cepat selesai, disarankan pakai* fungi khusus* saja
(1)
Mengkonversi text angka besat agar tampil seperti bilangan yg diformat
berpemisah ribuan ; rumusnya (satu cel satu rumus)
*=Text2BigNum(B4)*
(2)
Menjumlah range berisi data text angka besar, rumusnya (seperti SUM)
*=BigSum(B4:B35)*
Kedua Fungsi itu menghasilkan DATA TYPE TEXT yg penampakannya seperti
Numbers (Bilangan); tetapi hasil penjumlahannya sepertinya benar
(kalau tidak percaya dihuitng ulang saja .. xD :D )
tentu saja lebar bilangan juga tetap ada batasnya ( 28 digit..)
*VBA coding UDFnya*
' hapsari / smg, 28 okt 2011
Function BigSum(Rng As range) As String
Dim i As Long, big As Variant
For i = 1 To Rng.Cells.Count
big = *CDec*(big) + CDec(Rng(i))
Next
BigSum = CStr(Format(big, "###,###"))
End Function
Function Text2BigNum(X As String) As String
Text2BigNum = Format(*CDec*(X), "###,###")
End Function
cmiiw
***Decimal variables* are stored as 96-bit (12-byte) signed integers scaled
by a variable power of 10.
The power of 10 scaling factor specifies the number of digits to the right
of the decimal point,
and ranges from 0 to 28. With a scale of 0 (no decimal places), the largest
possible value is
+/-79,228,162,514,264,337,593,543,950,335.
With a 28 decimal places, the largest value is
+/-7.9228162514264337593543950335
and the smallest, non-zero value is +/-0.0000000000000000000000000001.
2011/10/28 Koplo Sukoplo <[email protected]>
>
> Pak Boss punya tabel berisi angka-angka yg lebarnya (length of text) = 20
digit .
> Semua angka tanpa tanda pemisah ribuan maupun pemisah desimal; setiap
kolom
> berisi 32 baris. Tabel diberikan dlm bentuk kertas (tulisannya pun sulit
dibaca
> karena terlalu "bagus")
> Seperti yg kami takutkan, (karena angka lebih lebar dari 15 digit akan
dibulatkan
> oleh excel), kemarin sore Pak Boss minta dibuatkan tabel ditambah data
hasil
> penjumlahannya per kolom; dalam diminta bentuk worksheet excel 2007 dan
> print out nya; dengan dua catatan
> 1. type data yg tertulis tidak harus Numbers (bilangan) / type Text
diperkenankan
> 2 harus ada tanda pemisah ribuan (baik pada 32 data maupun pada hasil
penjumlahan).
> Kami sudah mencoba dengan memotong menjadi 3 bagian mengkonversi ke angka
> menjumlahkan (tiap bagian diolah secara terpisah) kemudian jumlah 3 bagian
itu
> digabung, tetapi ternyata sering salah dan memang ilmunya belum sampai
kesitu..
> diambah dikejar waktu...
> Mohon bantuan apakah di excel ada rumus atau cara praktis lain, yg bisa
> menjumlahkan angka-angka besar (dlm bentuk text) seperti itu.
> Telampir contoh 3 kolom data saja + 1 kolom gambaran hasil yg diinginkan.
> Terima kasih...
> si Ovlo..
UDF_menjumlah text angka 20 digit (haps).xlsm
Description: application/vnd.ms-excel.sheet.macroenabled.12
