Terbilang (konversi angka ke kata-kata dlm bahasa indonesia) yg JALAN di WORD pernah di'siar'kan di milis ini
(sudah di re-test pada WORD 2003 dan 2007)
2011/4/1 STDEV(i) <setiyowati.devi@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, mestinya 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
Peningkatannya masih tetap kelas abal-abal, ecek-ecek :
1.
Kapasitas
Versi lama:
15 digit (trilyun) 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 (.)
Bagian pecahan akan diterjemahkan bila memang ada,
jika ada 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 ??
4.
Makro / VBA Project Tidak diproteksi ( boleh dilihat lihat dan dikembangkan sendiri )
5.
Coding VBA - WORD yg dipakai
Sub ctvTerbilang()
'== STDEV(i) <setiyowati.devi@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
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
6
Download
Mohon maaf file tidak dilampirkan di posting ini, tetapi dapat anda download langsung di sini
7.
Lan-Liyo-liyane ..
Koreksi, pemberitahuan bugs, tegur sapa, comments akan sangat dihargai.
(japri ke: setiyowatidevi@gmail.com)
kindest regards & wassalam
- i - // on behalf of ctv (yg lagi gak enak body..)
> 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, mestinya 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...
__._,_.___
+-:: XL-mania ::::::::::::::::::::----------------------------------+
| ayooo... coba cari XL-mania di linkedin.com |
| boss2 dari zone visit, moderasi nge-lag lagi deghhhh :( |
+-------------------------------------------------------------------+
| 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 |
+-------------------------------------------------------------------+
| ayooo... coba cari XL-mania di linkedin.com |
| boss2 dari zone visit, moderasi nge-lag lagi deghhhh :( |
+-------------------------------------------------------------------+
| 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 |
+-------------------------------------------------------------------+
.
__,_._,___
Nenhum comentário:
Postar um comentário