ANGKA MENJADI BILANGAN

Sekarang aku coba bikin tulisan lagi... mengenai makro excel... buat yang master punten nyak... bukan maksud hati bersombong ria... cuman catetan aja... daripada harus mikir lagi, bila ada case yang sama.

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... begicuuu....ocreh deh langsung tancap kodenya...

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

beres... caranya tinggal ketik aja rumusnya... yaitu =ambil(A1)... selesai