Mentakjubkan ..!! Pak Boss manggut-manggut, tetapi saya lebih dari puas, karena sekarangjadi agak mengenal teknik penggunaan bilangan type DECIMAL yg kapasitasnyasampai 30 digit (max tanpa pecahan = 79 koma 228 trilyun trilyun?) Terima kasih mba Haps, terima kasih BeExcel... Dari UDF yg diberikan itu sekilas kami menangkap caranya, yaitu:Variable dideklarasikan dulu sbg data type VARIANT, nanti pada pengunaanya baru diisi dengan bilangan yg dikonversi sbg type Decimal (dengan fungsi CDec). Apakah benar seperti itu ?? Saya masih ada 1 pertanyaan lagi (masih di topik ini, tetapi mau bernapas dulu sambil mengagumi amazing-UDF tsb Sekali lagi terima kasih atas bantuan dan pemberiannya... o'Vlo (alias koplo)
--- In [email protected], Haps <hapsari.stlizbeth@...> wrote: > > 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
