Mengubah Angka Menjadi Bilangan Pada Excel 2007

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