Anda sering membuat laporan keuangan ? Tentu Anda sudah sangat terbiasa membuat Jumlah dari nominal dan Terbilangnya.

Contohnya adalah pada gambar 1 sebagai berikut:

Contoh Laporan Keuangan

Contoh Laporan Keuangan

Anda lihat pada gambar 1 tersebut di atas, terdapat rekapitulasi jumlah pemasukan dari Iklan pada http://boeditea.web.id adalah sebesar Rp.77.800.000 .

Mungkin selama ini kita menuliskan secara MANUAL dari Terbilangnya, contoh yakni “Tujuh Puluh Tujuh Juta Delapan Ratus Ribu Rupiah”

Sekarang… Anda TIDAK perlu lagi menuliskannya secara MANUAL, karena saya akan memberikan TIPS kepada Anda, Bagaimana caranya Membuat Fungsi Terbilang secara Otomatis pada Excel.

Berikut ini adalah langkah-langkahnya:

  1. Buka Microsoft Excel.
  2. Tekan Alt + F11 untuk membuka VBA Editor, atau klik menu Tools -> Macro -> Visual Basic Editor. (Contoh pada Gambar 2)
Run Visual Basic

Run Visual Basic

3. Di Visual Basic Editor, klik menu Insert -> Module. (contoh pada Gambar 3)

Insert Module

Insert Module

4. Lalu copy-paste script ini ke bidang kerjanya (Anda Blok semua, copy (ctrl+c) lalu Paste (ctrl+v):

Public Function TERBILANG(x As Double) As String
Dim tampung As Double
Dim teks As String
Dim bagian As String
Dim i As Integer
Dim tanda As Boolean
Dim letak(5)
letak(1) = "RIBU "
letak(2) = "JUTA "
letak(3) = "MILYAR "
letak(4) = "TRILYUN "
If (x < 0) Then
    TERBILANG = ""
Exit Function
End If
If (x = 0) Then
    TERBILANG = "NOL"
Exit Function
End If
If (x < 2000) Then
    tanda = True
End If
teks = ""
If (x >= 1E+15) Then
    TERBILANG = "NILAI TERLALU BESAR"
Exit Function
End If
For i = 4 To 1 Step -1
    tampung = Int(x / (10 ^ (3 * i)))
    If (tampung > 0) Then
        bagian = ratusan(tampung, tanda)
        teks = teks & bagian & letak(i)
    End If
    x = x - tampung * (10 ^ (3 * i))
Next
teks = teks & ratusan(x, False)
TERBILANG = teks & " RUPIAH"
End Function
Function ratusan(ByVal y As Double, ByVal flag As Boolean) As String
Dim tmp As Double
Dim bilang As String
Dim bag As String
Dim j As Integer
Dim angka(9)
angka(1) = "SE"
angka(2) = "DUA "
angka(3) = "TIGA "
angka(4) = "EMPAT "
angka(5) = "LIMA "
angka(6) = "ENAM "
angka(7) = "TUJUH "
angka(8) = "DELAPAN "
angka(9) = "SEMBILAN "
Dim posisi(2)
posisi(1) = "PULUH "
posisi(2) = "RATUS "
bilang = ""
For j = 2 To 1 Step -1
    tmp = Int(y / (10 ^ j))
    If (tmp > 0) Then
        bag = angka(tmp)
        If (j = 1 And tmp = 1) Then
            y = y - tmp * 10 ^ j
            If (y >= 1) Then
                posisi(j) = "BELAS "
            Else
                angka(y) = "SE"
            End If
            bilang = bilang & angka(y) & posisi(j)
            ratusan = bilang
            Exit Function
        Else
            bilang = bilang & bag & posisi(j)
    End If
End If
y = y - tmp * 10 ^ j
Next
If (flag = False) Then
    angka(1) = "SATU "
End If
bilang = bilang & angka(y)
ratusan = bilang
End Function

Ini contoh gambar screenshot-nya:

Copy Paste The script

Copy Paste The script

5. Setelah di paste, coba cek script ini dengan klik menu Debug -> Compile VBA Project, jika tidak keluar kotak peringatan apapun biasanya script anda sudah beres.

6. Tutup jendela Visual Basic Editor anda.

Nah sekarang tinggal coba aja:

Contoh Berdasarkan Gambar 1 tersebut di atas, hasilnya dapat Anda lihat pada Gambar 5 di bawah ini :

Result Fungsi Terbilang

Result Fungsi Terbilang

Keterangan: Pada cell B11, saya ketik =terbilang(D10), lalu Enter

Demikian Rekan-rekan sekalian, Semoga Artikel Saya bermanfaat.

Incoming search terms for the article: