Hot Fox: Re: ]] XL-mania [[ konvert dari phone number ke huruf

sexta-feira, 2 de outubro de 2009

Re: ]] XL-mania [[ konvert dari phone number ke huruf

mau yg ringkas dan "agak jelas" ??

mari kita buat FUNGSI SENDIRI (UDF)
nanti di woksit tinggal tulis =KATAANGKA(A1)
dimana cell A1 berisi data NOMOR TELEPONNYA

Code Persis seperti ini dulu pernah di posted ke milis ini juga:

'---------------
Function KataAngka(D As Range) As String
'-- ctv // 2 okt 09 --
Dim kata As Variant, n As Integer, k As String
kata = Split("nol,satu,dua,tiga,empat,lima,enam,tujuh,delapan,sembilan", ",")
For n = 1 To Len(Trim(D))
   k = kata(CInt(Mid(D, n, 1)))
   KataAngka = KataAngka & " " & k
Next n
'Spasi terdepan dihilangkan, biar rapih..
KataAngka = Right(KataAngka, Len(KataAngka) - 1)
End Function
'----------------

UDF spt diatas hanya dimaksudkan untuk mengkonvert 1 cell demi satu cell
cell berikutnya tinggal mengcopy rumusnya
( misal   =KATAANGKA(A1)

UDF tsb belum ditingkatkan untuk ditulis sbg array formula di worksheet
( misal =KATAANGKA(A1:A1000) yg kayaknya memanag tidak perlu.

Sebetulnya ini = termasuk terbilang juga, tetapi dlm bentuk paling sederhana.

2009/9/30 hadysys <hadisys@pln.co.id>
>
> suhu minta bantuan
> gimana caranya konversi angka ke huruf bukan terbilang loh ya ?
>
> misal
> 100 menjadi satu nol nol bukan seratus
> 1000 menjadi satu nol nol nol bukan seribu
> ini untuk merubah nomer hape ke huruf
>
> makasih atas bantuannya
>
> sys

__._,_.___

Messages in this topic (6) Reply (via web post) | Start a new topic

Messages

+-:: XL-mania ::::::::::::::::::::----------------------------------+
| Tolong cariin momods kerjaan jadi direktur dongggg... :D :D :D    |
| http://www.facebook.com/group.php?gid=37671048001&ref=mf          |
+-------------------------------------------------------------------+
| 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              |
+-------------------------------------------------------------------+

MARKETPLACE

Mom Power: Discover the community of moms doing more for their families, for the world and for each other