Excel Macro : Mengubah Uang jadi Terbilang Rupiah

Karena suatu permintaan, penulis membuat program di bawah ini,, yaitu kode program Macro VB di Microsoft Excel untuk mengubah angka uang menjadi kalimat terbilang rupiah, misal : 1234560 menjadi Satu Juta Dua Ratus Tiga Puluh Empat Ribu Lima Ratus Enam Puluh Rupiah.

Program ini sangat berguna ketika kita membuat kuitansi.


Private Sub CommandButton1_Click()
    Range("A2").FormulaR1C1 = UCase(terbilang())
End Sub

Private Sub CommandButton2_Click()
    Range("A2").FormulaR1C1 = LCase(terbilang())
End Sub

Private Sub CommandButton3_Click()
    Range("A2").FormulaR1C1 = "=PROPER(""" & ubah(Range("A1").Value) & """)"
End Sub

Function terbilang()
'
' Terbilang Macro
' Macro recorded 20/06/2010 by erlin estiana
'

'
  Range("A2").FormulaR1C1 = ubah(Range("A1").Value)
  terbilang = ubah(Range("A1").Value)
End Function

Function satuan(inp)
    If (inp = 1) Then
        satuan = "satu "
    ElseIf (inp = 2) Then
        satuan = "dua "
    ElseIf (inp = 3) Then
        satuan = "tiga "
    ElseIf (inp = 4) Then
        satuan = "empat "
    ElseIf (inp = 5) Then
        satuan = "lima "
    ElseIf (inp = 6) Then
        satuan = "enam "
    ElseIf (inp = 7) Then
        satuan = "tujuh "
    ElseIf (inp = 8) Then
        satuan = "delapan "
    ElseIf (inp = 9) Then
        satuan = "sembilan "
    Else
        satuan = ""
    End If
End Function