Fungsi Terbilang Pada Excel

Firhan on November 14th, 2014

Kali ini saya akan berbagi ilmu tentang Fungsi Terbilang Pada Excel

berikut codingnya :

 

 

 

 

 

 

 

 

—————————————————————————————-

Function Terbilang(ByVal n As Long) As String ‘—–max 2.147.483.647

Dim satuan As Variant, x

On Error GoTo terbilang_error

satuan = Array(“”,”Satu”,”Dua”,”Tiga”,”Empat”,”Lima”,”Enam”,”Tujuh”,”Delapan”,”Sembilan”,”Sepuluh”,”Sebelas”)

Select Case n

Case 0 To 11

Terbilang= ” ” & satuan(fix(n))

Case  12 To 19

Terbilang = Terbilang (n Mod 10) & “Belas”

Case 20 To 99

Terbilang = Terbilang(Fix(n/10)) & “Puluh” & Terbilang (n Mod 10)

Case 100 To 199

x = n – 100

Terbilang = “Seratus” & Terbilang(x)

Case 200 To 999

Terbilang = Terbilang(Fix(n/100)) & “Ratus” & Terbilang (n Mod 100)

Case 1000 To 1999

x = n – 1000

Terbilang = “Seribu” % Terbilang(x)

Case 2000 To 999999

Terbilang = Terbilang(Fix(n/1000)) & “Ribu” & Terbilang (n Mod 1000)

Case 1000000 To 999999999

Terbilang = Terbilang (Fix(n/1000000)) & “Juta” & Terbilang (n Mod 1000000)

Case Else

Terbilang = Terbilang (Fix(n/1000000000)) & “Milyar” & Terbilang (n Mod 1000000000)

End Select

Exit Function

terbilang_error:

MsgBox Err.Description & Err.Number, vbCritical, “Error..”

End Function

————————————————————————–

Sekian Artikel Tentang Fungsi Terbilang Pada Excel

Leave a Reply