1. Membuat mail marge,yang datanya diambil dari excel,data tersebut berupa data uang dengan format cell currency,nah ketika data tersebut di masukkan ke mail merge, data titik (.)nya hilang alias tidak muncul di word,adakah solusinya?
2. Bagaimana merubah angka menjadi huruf misal 50 menjadi Lima Puluh,masih dlm excel

Jawaban :

1. Pada hal master mail mergenya (file word), item yang akan dipakein titik, diklik kanan lalu pilih edit field lalu tekan field codes
Setelah itu akan muncul window baru dan di field codes-nya ditambahin \# "#"

2. Untuk Excel itu pake program macro dengan fungsi terbilang. Copy aja koding
ini di Module VBA :

Option Explicit

Function EkaDigit(N)
Dim Teks(0 To 9) As String
Teks(0) = ""
Teks(1) = "satu"
Teks(2) = "dua"
Teks(3) = "tiga"
Teks(4) = "empat"
Teks(5) = "lima"
Teks(6) = "enam"
Teks(7) = "tujuh"
Teks(8) = "delapan"
Teks(9) = "sembilan"
EkaDigit = Teks(N)
End Function

Function TriDigit(N As Integer) As String
Dim Teks As String
Dim Ratus As Integer
Dim Puluh As Integer
Dim Satu As Integer

Teks = Right("000" & Trim(Str(N)), 3)
Ratus = Val(Mid(Teks, 1, 1))
Puluh = Val(Mid(Teks, 2, 1))
Satu = Val(Mid(Teks, 3, 1))

TriDigit = ""
Select Case Ratus
Case Is = 0
TriDigit = ""
Case Is = 1
TriDigit = "seratus "
Case Is > 1
TriDigit = EkaDigit(Ratus) & " ratus "
End Select
Select Case Puluh
Case Is = 0
TriDigit = TriDigit & EkaDigit(Satu)
Case Is = 1
If Satu = 0 Then
TriDigit = TriDigit & "sepuluh"
ElseIf Satu = 1 Then
TriDigit = TriDigit & "sebelas"
Else
TriDigit = TriDigit & EkaDigit(Satu) _
& " belas"
End If
Case Is > 1
TriDigit = TriDigit & EkaDigit(Puluh) _
& " puluh " & EkaDigit(Satu)
End Select
End Function

Function Terbilang(N As Double) As String
Dim Teks As String
Dim Triliun As Integer
Dim Milyar As Integer
Dim Juta As Integer
Dim Ribu As Integer
Dim Satu As Integer

Teks = Right("000000000000000" & Trim(Str(N)), 15)
Triliun = Val(Mid(Teks, 1, 3))
Milyar = Val(Mid(Teks, 4, 3))
Juta = Val(Mid(Teks, 7, 3))
Ribu = Val(Mid(Teks, 10, 3))
Satu = Val(Mid(Teks, 13, 3))

Terbilang = ""
If Triliun > 0 Then Terbilang = Terbilang & _
TriDigit(Triliun) & " triliun "
If Milyar > 0 Then Terbilang = Terbilang & _
TriDigit(Milyar) & " milyar "
If Juta > 0 Then Terbilang = Terbilang & _
TriDigit(Juta) & " juta "
If Ribu > 0 Then Terbilang = Terbilang & _
TriDigit(Ribu) & " ribu "
If Satu > 0 Then Terbilang = Terbilang & _
TriDigit(Satu)
Terbilang = Terbilang & " rupiah"

End Function

Lalu di Sheet XL nya :

Untuk data angka di Range(C2), hasil tulisannya di Range yang lain :
=terbilang(C2)

Mudah2an bermanfaat.

Disalin dari :
Yudi Prasetya
Project Warehouse