Friday, June 26, 2020

Membuat Fungsi Terbilang pada Excel

 
Ada kalanya kita ingin membuat laporan yang mengharuskan ada kalimat terbilangnya, misalnya untuk membuat kuitansi,  nota atau lainnya yang harus ada kata terbilangnya. Misalnya angka Rp. 2.300.000,00 menjadi “Dua Juta Tiga Ratus Ribu Rupiah”.

Fungsi Terbilang pada Excel
Ilutrrasi. Terbilang.

Bagaimana cara membuatnya di dalam SpreeatSheet Excel? Langkah pertama marilah mulai dengan membuka aplikasi Microsoft Excel dan membuat file baru. Kemudian pilih menu View pada bagian atas menu Excel.

Macro Excel
Tampilan Menu View pada MS Excel

Pada bagian kanan menu tersebut ada menu Macros. Pilihlah menu ini. Di dalamnya ada pilihan View Macros. Klik saja menu tersebut sehingga tampilan Excel seperti dibawah ini:

Tampilan Menu VBAProject di menu Macros Excel

Pada menu ini klik Macro name. Di box ini silahkan ketik nama macro yang diinginkan. Misalnya ketik saja:  terterbilang (tanpa spasi). Dibagian bawah ada pilihan menu Create yang aktif, silahkan klik. Tampilan Excel akan memunculkan VBAProject seperti dibawah ini.


Tulis nama macro disini

Pindahkan kode dibawah ini kedalam box module1(code) yang ada dibawah VBAProject.

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) = "Triliun "

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 = bilangan(tampung, tanda)
        teks = teks & bagian & letak(i)
    End If
    x = x - tampung * (10 ^ (3 * i))
Next

teks = teks & bilangan(x, False)
TERBILANG = teks & "Rupiah"
End Function

Function bilangan(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)
bilangan = bilang
End Function
Kemudian simpan kode Visual Basic Macro diatas. Kemudian tutuplah menu Macros diatas dan kembali ke SpreatSheet.  Ketiklah angka pada cell B2. Kemudian ketik angka ini: 6.700.000,00. Selanjutnya pada cell B3 ketiklah rumus fungsi berikut ini: =terbilang(B2) kemudian enter. Maka nanti pada cell B3 akan tertulis Enam Juta Tujuh Ratus Ribu Rupiah.

Selamat Mencoba.