Formula Ms Excel Merubah Angka Menjadi Bilangan

Makro ini merupakan pembuatan rumus Excel 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. Berikut kode nya :
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

Selesai. Caranya tinggal ketik saja rumusnya... yaitu =ambil(tempat cell). Silahkan Download Kode diatas dalam Format Ms Word Klik DISINI atau DISINI

• facebook
• twitter
• google+
• tumblr
• linkedin
• pinterest
• Whatsapp
• blackberry