rumus excel 2

Rumus Excel Merubah Angka Menjadi Bilangan

Makro ini merupakan pembuatan rumus yang berfungsi untuk mengubah angka menjadi bilangan, contohnya di cel A1 ada angka 1.000 dan akan berubah menjadi "seribu" dengan mengetikkan rumus =ambil(A1)di cell yang lain...

Function ambil(ByVal nilai As Currency) As String
Dim satuan As Variant satuan = Array("", "Satu", "Dua", "Tiga", "Empat", "Lima", "Enam", "Tujuh", "Delapan", "Sembilan", "Sepuluh", "Sebelas")
Select Case nilai
Case 0 To 11
ambil = " " + satuan(Fix(nilai))
Case 12 To 19
ambil = ambil(nilai Mod 10) + " Belas"
Case 20 To 99
ambil = ambil(nilai / 10) + " Puluh" + ambil(nilai Mod 10)
Case 100 To 199
ambil = " Seratus" + ambil(nilai - 100)
Case 200 To 999
ambil = ambil(Fix(nilai / 100)) + " Ratus" + ambil(nilai Mod 100)
Case 1000 To 1999
ambil = " Seribu" + ambil(nilai - 1000)
Case 2000 To 999999
ambil = ambil(Fix(nilai / 1000)) + " Ribu" + ambil(nilai Mod 1000)
Case 1000000 To 999999999
ambil = ambil(Fix(nilai / 1000000)) + " Juta" + ambil(nilai Mod 1000000)
Case Else
ambil = ambil(Fix(nilai / 1000000000)) + " Milyar" + ambil(nilai Mod 1000000000)
End Select
End Function