p.e.r.i.n.g.
'------------
Function KataAngka(D As Range) As String
Dim n As Integer, kata
kata = Split("nol satu dua tiga empat lima enam tujuh delapan sembilan")
For n = 1 To Len(Trim(D))
KataAngka = KataAngka & " " & kata(CInt(Mid(
Next n
KataAngka = Trim(KataAngka)
End Function
'------------
dgn mantera 'Function' saja, (di VBA) prosedur sudah ostosmastis bersifat public
(buktikan dengan menggunakan fungsi tsb langsung dari woksit!)
karena public adalah default pendeklarasian prosedur...
demikian juga dengan deklarasi 'kata' tanpa 'As Variant'
karena type Variant adalah default type, jika variable di-declared tanpa disebut typenya.
jangan salah kaprah... 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,
For n = 1 To Len(Trim(D))
k = kata(CInt(Mid(
KataAngka = KataAngka & " " & k
Next n
'Spasi terdepan dihilangkan, biar rapih..
KataAngka = Right(KataAngka, Len(KataAngka) - 1)
'------------
| 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 |
+-------------------------------------------------------------------+
Change settings via the Web (Yahoo! ID required)
Change settings via email: Switch delivery to Daily Digest | Switch format to Traditional
Visit Your Group | Yahoo! Groups Terms of Use | Unsubscribe
Nenhum comentário:
Postar um comentário