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) <setiyowati.d...@gmail.com>,===
' 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: setiyowatid...@gmail.com)
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
--------------------------------------------------------------------------------
2011/4/1 STDEV(i) <setiyowati.d...@gmail.com>
>
> Selama ini kita wajar saja kalau DI SHEET EXCEL merekayasa agar bilangan
dapat
> diterjemahkan menjadi kata-kata; Karena milis ini memang khusus bicara
mengenai
> Excel, Excel dan Excel
> Saya tidak tahu apakah ada milis yg khusus ngubek-ubek ms.WORD, mestiny
ada,
> .. aku kurang gaul cih....
>
> Tetapi karena Word dan Excel itu ibarat sodara /sedulur sesumur dan
sekasur dengan
> Excel, terpikir juga bagaimana cara mengotomatiskan penterjemahan ANGKA
menjadi
> KATA-KATA "TERBILANG" langsung di Word nya tanpa bantuan Excel.
>
> Kebetulan beberapa hari y.l. ada juga member yg menanyakan walaupun yg
ditanyakan
> FORMULA (bagaimana cara mengaplikasikan formula terbilang di dokumen Word)
>
> Masuk di VBE dari WORD ternyata siti seperti monyet liar masuk kampung,
celingukan
> gag tahu apa yg harus dikerjakan. Terlalu keseringan melihat object model
Excel, ketika
> masuk ke Word semuanya seperti asing, karena memang belum kenal.
> Tapi tentu saja masih banyak hal yang sama. Nah itulah untungnya sesumur
& sekasur...
>
> Akhirnya setelah sambil berkali-kalli menoba makro-rekam-nya, ada
beberapa properties
> dan methods yg didapat, khusus untuk keperluan men-TERBILANG-kan Angka
menjadi
> Kata-Kata. (Plisss find attached: sebuah dokumen WORD yg sudah di beri
japa mantera
> "terbilang indonesia")
>
> So.. anda jangan berharap terlalu banyak dulu dengan TERBILANG DI MS WORD
ini.
> Cara menjalankanpun masih primitif:
> ** Setiap angka yg akan di-Terbilang-kan; misalnya 123456789 harus
didekati dulu
> dengan kursor (insertion point)
> ** Letakkan kursor di sebelah kanan angka tersebut misalnya 123456789|
> (karakter "|" merah itu angaplah sebagai kursornya)
> ** Pencet Alt + F8 (atau melalui menu: Tools > Macro > Macros.. )
>
> ** Pilih nama Makro > kilik Tombol RUN
>
>
> Tentu saja anda dapat membuat sendiri short-cut berupa Aikon (icon) dan
ditempelkan
> di ToolBar agar makro Terbilang ini lebih mudah anda SURUH kerja di Word
anda.
> Mainan ini masih perlu pengembangan, misalnya mengenal pecahan dsb...
>
> Members yg tidak kebagian attachment (karena gabung di milis ini jauh
hari setelah
> tgl posting (1 April 2011), atau karena berstatus web-only atau
daily-digest, atau
> misalnya siti lupa meng-attached lampirannya; jika berminat dapat
mengunduh sendiri
> di box siti, di sini
> http://www.box.net/shared/jycu9zie0j
>
> semoga lebih banyak manfaatnya daripada mudharatnya...
