zalut ama 2 tante ini... makan apa tante.. biar biza pintar kek kalian -- R125
On 1/20/12, i Haps <[email protected]> wrote: > Terbilang (konversi ANGKA ke KATA-KATA dlm bahasa Indonesia) yg JALAN di > WORD pernah di'siar'kan di milis ini > http://tech.groups.yahoo.com/group/belajar-excel/message/8833 > bertepatan dengan "hari April Mop" 2011 > > Saat ini file workbook tsb sudah di update sehingga tidak bermasalah jika > harus dijalankan di WORD 2007 > (sudah di re-test pada WORD 2003 dan 2007) > > Peningkatannya masih tetap dalam level / kelas: abal-abal, ecek-ecek : > > *1. * > *Kapasitas* > > Versi lama: > *15 digit (trilyunan)* tanpa desimal (max 999999999999999) harus *tanpa > *tanda > pemisah ribuan > > Versi sekarang: > *18 digit (kuadriliun) + dua digit desimal* (max > 999,999,999,999,999,999.99 ) > Bagian bilangan utuh boleh bertanda pemisah ribuan, boleh polos... > Simbol Pemisah Ribuan = KOMA (,) Simbol Pemisah Desimal = TITK (.) > (atau sesuai setting di Control Panel > Regional & Language Option Anda ) > Bagian pecahan akan diterjemahkan bila memang ada, > jika ada bagian pecahan ( misal 21*.99*) cara penyebutannya "dan sembilan > puluh sembilan per seratus" > Terjemahan akan ditulis di Baris berikutnya. > * > * > *2* > *Seleksi karakter angka yg akan diproses.* > Angka yg akan diproses harus di-blok / diselect / di-higlilghted lebih dulu > Angka tsb harus tertulis pada satu baris tersendiri (tidak tercampur dng > teks lain) > (Pada versi sebelumnya: cara memilih angka yg akan diproses : di dekati > dengan kursor pada ujung kanannya) > > *3.* > *Cara menjalankan 'Otomatis'nya: * > Masih sama dengan versi sebelumnya: Dengan ALt+F8 > tunjuk Nama Prosedurnya >> ENTER / OK. > Diharapkan penggunanya meningkatkan sendiri misal dgn membuat tool-ikon di > QAT > ( atau dibuatkan Pop_up Menu on Right-Click ?? - cobalah ) > > *4.* > *Makro / VBA Project * > Tidak diproteksi ( boleh dilihat lihat dan dikembangkan sendiri ) > > *Coding VBA - WORD yg dipakai*, kira kira spt ini > > Sub ctvTerbilang() > '== STDEV(i) <[email protected]>,=== > ' retouched: awal Janari 2012 > '-------------------------------------------- > Dim Number As Variant, Kata As String, sText As String > Const Ttel As String = "ctv_Terbilang Max 18 digit!!" > > sText = Replace(Selection, Chr(10), "") > Selection = sText > '-- text angka dikonversi menjadi bilangn type decimal dengan fungsi * > CDec**** > If IsNumeric(Selection) Then > *Number* = *CDec*(Selection) > With Selection > .Copy > .EndKey Unit:=wdLine > .TypeParagraph > End With > > Select Case *Number* > Case 0 > Kata = "Zero" > Case 1 To 1E+18 > Kata = *TERBILANG(Number)* > Case Else > MsgBox "Bilangan Terlalu besar!", 48, Ttel > End Select > Else > MsgBox "Tidak ada bilangan di dalam selection!!", 48, Ttel > End If > Selection = Kata > End Sub > > *5* > *Download* > Mohon maaf file tidak dilampirkan di posting ini, tetapi dapat anda unduh > langsung di sini > http://www.box.com/shared/jycu9zie0j > > *6. * > *Lan-Liyo-liyane ..* > Koreksi, pemberitahuan bugs, tegur sapa, comments (bila ada..) akan sangat > dihargai. > (japri ke: [email protected]) > Bila "berbau teknis Excel, boleh via milis BeExcel..) > > *** sedikit penjelasan mengenai bilangan type DECIMAL* > di VBA, data type Decimal tidak dapat langsung didiklarasikan kecuali > konversi dari Variant ke Decimal > Decimal memakai memory sebesar 96 bit (= 12 byte); Bandingkan dengan > kapasitas type Double > (Double Precission Floating Point) yg hanya 64 bit ( = 8 byte); > Integer : 16-bit > (2-byte). > > Di bawah ini penjelasan dari VBA Help, "besarnya" bilangan dinyatakan > dlm *format > scientific* > E308 artinya 10 pangkat 308 sedangkan E-324 artinua 10 pangkat -324 > > *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* > > *Double (double-precision floating-point) variables* are stored as IEEE > 64-bit (8-byte) > floating-point numbers ranging in value > from -1.79769313486231E308 to -4.94065645841247E-324 for negative values > and > from 4.94065645841247E-324 to 1.79769313486232E308 for positive values. > The type-declaration character for Double is the number sign (#). > > kindest regards & wassalam > - i - // on behalf of ctv (yg lagi gak enak body..) > > -------------------------------------------------------------------------------- > *terbilang 18 digit + 2 Desimal* > versi WORD : http://www.box.com/shared/jycu9zie0j > versi EXCEL : http://www.box.com/s/lxzuzvism887uoqq1uxr > *terbilang 27 Digit !! * > versi Excel : http://www.box.com/s/0feuadh2n2evl6bdrxzq > --------------------------------------------------------------------------------
