Cara Membuat Rumus Terbilang Microsoft Excel!

Pasti banyak dari kalian apalagi yang berkecimpung di dunia keuangan akan kesusahan saat harus mengetik nilai terbilang pada kwitansi secara manual seperti dibawah ini.

Contoh kwitansi manual microsoft excel

Jika harus mengerjakan hanya satu atau dua kwitansi saja, tentu cara manual sepertinya tidak akan menjadi masalah. Namun, jika harus mengerjakan banyak kwitansi tiap bulannya, tentu cara manual HARUS DITINGGALKAN!

Sebagai orang yang berprofesi sebagai bagian keuangan pada sebuah perusahaan, kita dituntut untuk bekerja cepat dan tepat. Karena itu, penggunaan teknologi harus sangat dimaksimalkan untuk menghemat waktu dan mempermudah kinerja.

Mari Kita MULAI!

1. First step yang musti kita lakukan setelah membuat format kwitansi dan menginput nilai kwitansi       secara manual adalah MENGINPUT KODE TERBILANG.
    
     a. Klik Alt dan F11 secara bersamaan. Kemudian akan muncul tampilan seperti berikut.

      

    b. Klik Insert, Kemudian Klik Module.

    c. Setelah klik Module. Tampilan layar akan tampak seperti ini.

     

    d. Kemudian, INPUT KODE TERBILANG kedalam kotak putih.
        Copy dan Paste saja kode terbilang berikut ini:

Function Terbilang(n As Long) As String 'max 2.147.483.647

Dim satuan As Variant, Minus As Boolean

On Error GoTo terbilang_error

satuan = Array("", "Satu", "Dua", "Tiga", "Empat", "Lima", "Enam", "Tujuh", "Delapan", "Sembilan", "Sepuluh", "Sebelas")

If n < 0 Then

Minus = True

n = n * -1

End If    

Select Case n

Case 0 To 11

Terbilang = " " + satuan(Fix(n))

Case 12 To 19

Terbilang = Terbilang(n Mod 10) + " Belas"

Case 20 To 99

Terbilang = Terbilang(Fix(n / 10)) + " Puluh" + Terbilang(n Mod 10)

Case 100 To 199

Terbilang = " Seratus" + Terbilang(n - 100)

Case 200 To 999

Terbilang = Terbilang(Fix(n / 100)) + " Ratus" + Terbilang(n Mod 100)

Case 1000 To 1999

Terbilang = " Seribu" + Terbilang(n - 1000)

Case 2000 To 999999

Terbilang = Terbilang(Fix(n / 1000)) + " Ribu" + Terbilang(n Mod 1000)

Case 1000000 To 999999999

Terbilang = Terbilang(Fix(n / 1000000)) + " Juta" + Terbilang(n Mod 1000000)

Case Else

Terbilang = Terbilang(Fix(n / 1000000000)) + " Milyar" + Terbilang(n Mod 1000000000)

End Select

If Minus = True Then

Terbilang = "Minus" + Terbilang

End If

Exit Function

terbilang_error:

MsgBox Err.Description, vbCritical, "^_^Terbilang Error"

End Function

    e. Ketika kode terbilang sudah Anda input seperti gambar diatas, kemudian klik saja tanda Close              "x" di pojok kanan paling atas.

2. Step kedua, ketik =terbilang(nilai kwitansi)&"Rupiah". 

3. Step terakhir, Klik ENTER pada rumus yang telah diketik tadi. Maka muncul tampilan seperti ini. 

Hore... kwitansi manual sudah jadi. Jika ingin membuat kwitansi baru pada file yang sama, buat saja format kwitansi manual seperti biasa kemudian masukkan jumlah uang dan ketik =terbilang(nilai kwitansi)&"Rupiah" pada kolom terbilang. Maka tulisan akan sesuai dengan jumlah uang yang tertera secara otomatis. 

Kode terbilang ini pernah saya lihat di sebuah situs tetapi saat saya butuhkan situs itu tidak saya temukan lagi di Google. Selain itu saya lupa nama situs yang mencantumkan kode terbilang ini. 

Semoga dapat membantu pembaca khususnya para pekerja di bidang keuangan. Cheers!